السلام عليكم الاستاذة الافاضل بالمنتدى فضلا من كرمكم " عندي كود حفظ وتصدير ورقة عمل الى ورقة عمل اكسل منفصلة
لو نقلت ملف الاكسل الاصلي الى جهاز اخر هيتغير مسار حفظ ( 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