السلام عليكم
يرجى المساعدة في تعديل حفظ ملف ال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