اكسيل | كيفية حفظ كل ورقة عمل فى ملف الاكسيل كملف PDF منفصل Excel VBA

بسم الله الرحمن الرحيم 
اهلا بكم متابعى موقع عالم الاوفيس 

اكسيل | حفظ كل ورقة عمل فى ملف الاكسيل كملف PDF منفصل Excel VBA 


كود جديد من مكتبة اكواد اكسل ماكرو Excel VBA

كثير منا من يتعامل من بيانات لسنوات مختلفة او اقسام مختلفة وتحتاج الى حفظ كل شيت او قسم معين كملف منفصل PDF 
على الرغم لو قمنا بعمل هذا الاجراء يدويا سوف يستغرق وقتا طويل للقيام بذلك 

ولكن مع كود اكسل Excel VBA سوف يتم انجاز هذة المهمة بطريقة سريعة جدا وسهلة جدا


كيف نفعل ذلك ؟

لنفرض ان لدينا ملف عمل وبة مجموعة من اوراق العمل ونريد ان نحفظ هذة الشيتات كل شيت مستقل  على سطح المكتب 

اذا لابد من معرفة المسار 


  • نضغط بزر الفارة الايمن على الفولدر ونختار Proprieties 


فتظهر لنا نافذة الخصائص 

  • نختار منها Security ونقوم بنسخ مسار الملف كما فى الصورة 



وبهذا نكون قد حصلنا على مسار الملف المطلوب

ناتى الى كتابة الكود المطلوب

سوف نفعل ذلك باستخدام الكود التالى 

  • الكود

Sub SaveAsPDF()Sub SaveAsPDF()
Dim ws As Worksheet, fw
fw = "C:\Users\emad ghazi\Desktop\New folder"
For Each ws In ThisWorkbook.Worksheets
ws.ExportAsFixedFormat xlTypePDF, fw & ws.Name & ".pdf"
Next ws
End Sub
وبهذا نكون قد انتهينا من هذا الكود 

لتحميل ملف العمل

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق