Ali994m قام بنشر يوليو 4, 2020 مشاركة قام بنشر يوليو 4, 2020 السلام عليكم يرجى المساعدة في تعديل حفظ ملف ال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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 4, 2020 أفضل إجابة مشاركة قام بنشر يوليو 4, 2020 تفضل أخي الكريم هذا هو الكود بعد التعديل 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 لاحظ وضع مجلد الحفظ في متغير حتى لا نكرر كتابته وأيضا فحص ما إذا كان المجلد موجودا أو لا فإذا لم يكن موجودا فيتم انشاؤه ثم بعدها يتم التصدير لاجظ إضافة امتداد الملف في نهاية الاسم ولا تنسوني من صاح دعائكم 4 1 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر يوليو 4, 2020 الكاتب مشاركة قام بنشر يوليو 4, 2020 أي يتم أثناء الحفظ انشاء مجلد باسم محتوى احدى الخلايا وحفظ ملف ال pdf بداخله Daily order Microbiology - نسخة.xlsm ج جزاك الله كل خير وزادك من علمه 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 4, 2020 مشاركة قام بنشر يوليو 4, 2020 جميعا بإذن الله بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
a.kawkab قام بنشر يوليو 5, 2020 مشاركة قام بنشر يوليو 5, 2020 عمل رائع استاذ محمد جزاك الله حيرا ممكن تعديل اخر من فضلك على نفس الكود بيحيث يكون مجلد الاخراج فى نفس مسار الملف الاصلى لتعم الفائدة وشكرا لك رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 5, 2020 مشاركة قام بنشر يوليو 5, 2020 شكرا لكلماتك الطيبة @a.kawkab لعمل ذلك يمكنك استبدال السطر الخاص بمجلد الاخراج mypath = "D:\USP41 - NF36\" & Range("C9").Value إلى mypath = ActiveWorkbook.Path وتعني مسار المصنف الحالي بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يوليو 5, 2020 مشاركة قام بنشر يوليو 5, 2020 بارك الله فيك استاذ أ / محمد صالح شكر وتقدير واحترام من اخيك 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 5, 2020 مشاركة قام بنشر يوليو 5, 2020 حياكم الله أستاذ @abouelhassan رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.