تعديل كود حفظ وتصدير ورقة عمل

[ضياء 2]

السلام عليكم الاستاذة الافاضل بالمنتدى فضلا من كرمكم " عندي كود حفظ وتصدير ورقة عمل الى ورقة عمل اكسل منفصلة

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

[ضياء 2]

up