هل ممكن عمل نسخة لورقة من مصنف والعودة اليها في حالة احتياجها

[زوهير]

السلام عليكم ورحمة الله  ورمضان كريم وتقبل الله منا ومنكم ان اشاءالله

 

هل ممكن كود يقوم بعمل نسخة احتاطية  لورقة او اثنتين من مصنف والعودة اليهما في حالة الاحتياج

وحبذا لوتكون امتداد 

txt

 

بحثت في المنتدى وجدت عمل الاخ ياسر جزاه الله كل خير لكن يعمل النسخة لمصنف كامل

 

 

 

 

 

 

 

 

 

 

 

[ياسر خليل أبو البراء]

أخي الغالي زوهير

ارفق الملف والكود الذي تقصده لنحاول العمل عليه

[زوهير]

 

 

السلام عليك اخي ياسر

اليك المرفق وهو عبارة عن مثال فقط للتوضيح

ارجوا ان اوفق في تبليغ الفكرة

 

مثال.rar

[ياسر خليل أبو البراء]

أخي الكريم زوهير

جرب الملف التالي عله يفي بالغرض

 

Export & Import Text File YasserKhalil.rar

[زوهير]

السلام عليك اخي ياسر ورمضان كريم

مجهود كبير منك وجزاك الله خيرا 

 - بعد تجربة  الملف عند عمل نسخة ثانية

يستغني عن البيانات السابقة  وحبذا تحديد مكان النسخة

وسامحني في مجهودك

[ياسر خليل أبو البراء]

أخي الكريم لم أفهم المطلوب الثاني ؟ ماذا تقصد بتحديد مكان النسخة ؟

[زوهير]

اخي ياسر انت في الكود   وضعت  هذه الصيغة وهي مكان النسخة     Path & "\Test.txt

 

لذا اريد تحديد المسار  الذي توضع فيه  النسخة

          مثلا في          \:c    او   \ : d .........

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

[ياسر خليل أبو البراء]

حدد المسار بالضبط وأنا سأقوم بالتعديل أو قم بالتعديل وحاول

غير السطر

ThisWorkbook.Path

إلى المسار الذي تريده

C:\Test.txt

[زوهير]

عملت ذلك لكن لم ينجح الامر

 Kill ThisWorkbook.Path C:\Test.txt
    Sheets("AMEL").Range("A2:D3").Select
    ExportToTextFile FName:=ThisWorkbook.Path C:\Test.txt , Sep:=";", SelectionOnly:=True, AppendData:=True

هكذا تظهر الاسطر حمراء

[ياسر خليل أبو البراء]

جرب السطر بهذا الشكل

ExportToTextFile FName:="C:\Test.txt" , Sep:=";", SelectionOnly:=True, AppendData:=True

[زوهير]

جزاك الله خيرا نجحت العملية

الف شكر

ورمضان كريم وتقبل الله منا ومنكم وسائر الامة الاسلامية صالح الاعمال

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

متنسناش بدعوة على السحور