اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ضياء 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

 

تم تعديل بواسطه ضياء 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information