تعديل كود حفظ ملف نصي

[محمد يوسف ابو يوسف]

اساتذة وخبراء هذا المنتدي  : السلام عليكم ورحمة الله 

اريد مساعدة في تعديل كود حفظ ملف نصي ---  المشكلة بعد الحفظ  افتح الملف النصي اري الكلام معكوس 

 

الملف عمل نسخة ملف نصي.xlsm

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

عدل ".txt"

الى ".xlsm"

[حسونة حسين]

ولو محتاج يحفظ الشيت كملف نصي

عدل 

ActiveWorkbook.SaveCopyAs MyPathDirectory & MyNime

الى 

ActiveWorkbook.SaveAs MyPathDirectory & MyNime, xlTextWindows

 

[محمد يوسف ابو يوسف]

اخي hassona229  جزاك الله خيرا

 

تم: تعديل الخط بالفعل داخل الملف النصي بعد الحفظ يبقي  شي واحد

اريد: بعد اصدار وحفظ الملف النصي - يبقي البرنامج الاساسي كما هو  لأصدار ملف نصي مرة اخري

توضيح اكثر :لا اريد تغير اسم الملف الاساسي بعد حفظ الملف النصي

شكراً مقدماً وجزاك الله خيرا الجزاء

[محمد يوسف ابو يوسف]

بسم الله الرحمن الرحيم  والحمد الله رب العالمين

بعد البحث الكثير  داخل المنتدي وخارج المنتدي لم اجد ما اريد

ولكن صممت ان اوجد ما اريد 

والحمد لله  وفقني الله -- ان اكتب هذا الكود الجميل الذي يفي بألمطلوب 

وكررت ان اضعه للفائدة

كود تصدير مدي محدد الي ملف نصي وحفظه بأسم خليه معينة - علي برتيشن d

Sub dحفظ_ملف_تاست_بأسم_خلية_علي_برتيشن()
      
            Range("A1:I108").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="D:\" & Cells(1, 2).Text & Nombre & " نسخة" & Format(Now, "-dddd-dd-mm-yyyy-") & ".txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close
    Range("A1").Select
End Sub

تصدير البيانات الي ملف نصي وحفظة بأسم خلية معينه تصدير البيانات الي ملف نصي وحفظ بأسم خلية معينه.xls