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

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


Ali994m
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

إلى

mypath = ActiveWorkbook.Path

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

بالتوفيق

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information