أريد ماكرو ينسخ ملف بامتداد xls ويلصقه بامتداد txt

[خالدو]

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

حسبما شرحت في العنوان:

لدي ملف cust.xls اريد من خلال ملف آخر نسخ هذا الملف نفسه من C:\Customers إلى D:\Bacup

باسم Cust(date).txt

هل هذا ممكن من خلال الماكرو؟

وجزاكم الله خيراً

[طارق محمود]

السلام عليكم

الكود هو

Sub Macro2()


'

Application.DisplayAlerts = False


ActiveWorkbook.SaveAs Filename:="C:\Customers\cust.xls", FileFormat:=xlExcel8

s = WorksheetFunction.Text(Date, "dd-mmm-yyy")

txtNM = "Cust(" & s & ").txt"

ActiveWorkbook.SaveAs Filename:="D:\Bacup\" & txtNM, FileFormat:=xlTextWindows

Application.DisplayAlerts = True


End Sub

لاحظ أنني كتبت Bacup كما كتبتها أنت

الصح هو : Backup

[خالدو]

جزاك الله خيراً أخي طارق ولكن الملف غير مفتوح أنا أريد اتمام عملية النسخ واللصق بامتداد مختلف وهو مغلق لانك ذكرت:

ActiveWorkbook.SaveAs Filename:="D:\Bacup\" & txtNM, FileFormat:=xlTextWindow

وأكرر شكري لك أستاذي العزيز طارق

[طارق محمود]

السلام عليكم

لابد من فتحه لتمكين خاصية SaveAs

من الممكن فتحه وعمل اللازم ثم غلقه

[خالدو]

أخي طارق

الكود سيكون موجوداً في ملف آخر وليس نفس الملف المطلوب نسخه