بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
اكسيل | حفظ كل ورقة عمل فى ملف الاكسيل كملف 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
وبهذا نكون قد انتهينا من هذا الكود