تعديل كود حفظ ملف الpdf ليعمل على انشاء مجلد

[Ali994m]

السلام عليكم

يرجى المساعدة في تعديل  حفظ ملف الpdf أريد أن يشمل المسار على انشاء مجلد باسم خلية معينة 

أي يتم أثناء الحفظ انشاء مجلد باسم محتوى احدى الخلايا 

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

Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
    Sheets(Array("Report")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\USP41 - NF36\" _
& "\" & Range("c8").Value, _
xlQualityStandard

Worksheets("Report").Select
Application.ScreenUpdating = True


End Sub

على سبيل المثال ينشئ مجلد باسم محتو الخلية C9

Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
    Sheets(Array("Report")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\USP41 - NF36\ Range("C9").Value" _
& "\" & Range("c8").Value, _
xlQualityStandard

Worksheets("Report").Select
Application.ScreenUpdating = True


End Sub

 

[أ / محمد صالح]

تفضل أخي الكريم

هذا هو الكود بعد التعديل

Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
Sheets(Array("Report")).Select
mypath = "D:\USP41 - NF36\" & Range("C9").Value
If Dir(mypath, vbDirectory) = "" Then MkDir mypath
ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("c8").Value & ".pdf", xlQualityStandard
Worksheets("Report").Select
Application.ScreenUpdating = True
MsgBox "Done"
End Sub

لاحظ وضع مجلد الحفظ في متغير حتى لا نكرر كتابته

وأيضا فحص ما إذا كان المجلد موجودا أو لا

فإذا لم يكن موجودا فيتم انشاؤه

ثم بعدها يتم التصدير لاجظ إضافة امتداد الملف في نهاية الاسم

ولا تنسوني من صاح دعائكم

[Ali994m]

أي يتم أثناء الحفظ انشاء مجلد باسم محتوى احدى الخلايا وحفظ ملف ال pdf بداخله

‫Daily order Microbiology - نسخة.xlsm

ج

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

[أ / محمد صالح]

جميعا بإذن الله 

بالتوفيق

[a.kawkab]

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

[أ / محمد صالح]

شكرا لكلماتك الطيبة @a.kawkab

لعمل ذلك يمكنك استبدال السطر الخاص بمجلد الاخراج

mypath = "D:\USP41 - NF36\" & Range("C9").Value

إلى

mypath = ActiveWorkbook.Path

وتعني مسار المصنف الحالي

بالتوفيق

[abouelhassan]

بارك الله فيك استاذ أ / محمد صالح

شكر وتقدير واحترام من اخيك

[أ / محمد صالح]

حياكم الله أستاذ @abouelhassan