ضياء 2 قام بنشر ديسمبر 22, 2022 مشاركة قام بنشر ديسمبر 22, 2022 (معدل) السلام عليكم الاستاذة الافاضل بالمنتدى فضلا من كرمكم " عندي كود حفظ وتصدير ورقة عمل الى ورقة عمل اكسل منفصلة لو نقلت ملف الاكسل الاصلي الى جهاز اخر هيتغير مسار حفظ ( sfolder = "F:\folder\new" ) الى ( sfolder = "D:\folder\HR" )المطلوب تعديل بشرط لو تغيير مسار الحفظ يعمل خروج نهائي من ورقة العمل ، لو هو نفس مسار الحفظ ( sfolder = "F:\folder\new" ) ينفذ الكود Sub folder() Dim fso Dim sfolder As String On erroro GoTo 1 sfolder = "F:\folder\new" Set fso = CreateObject("scripting.filesystemobject") If Not fso.folderexists(sfolder) Then fso.createfolder (sfolder) MsgBox "تم انشاء فولدر", vbExclamation Else 1 MsgBox "الفولدر موجود بالفعل", vbExclamation End If End Sub تم تعديل ديسمبر 22, 2022 بواسطه ضياء 2 رابط هذا التعليق شارك More sharing options...
ضياء 2 قام بنشر ديسمبر 25, 2022 الكاتب مشاركة قام بنشر ديسمبر 25, 2022 up رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان