تحميل برنامج يومية الايرادات والمصروفات مجانى 100 %

 

بسم الله الرحمن الرحيم

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

لقد شرحنا فى المقال السابق كيفية تقسيم صفحات ملف الاكسيل الى ملفات Excel  مستقلة

وسنقوم اليوم بعمل شرح لكود اخر

 كيفية تقسيم صفحات ملف الاكسل الى ملفات PDF  مستقلة

في حالة رغبتك في تقسيم أوراق العمل وحفظها كملفات PDF بدلاً من ملفات Excel، يمكنك استخدام الكود أدناه:

   Option Explicit

'=============== EMAD GHAZI===============

Sub SplitEachWorksheet()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets

    ws.Copy

  Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & ws.Name & ".xlsx"

    Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub   

 

الأشياء التي تحتاج إلى التأكد منها قبل استخدام هذا الرمز:

قم بإنشاء مجلد حيث تريد الحصول على جميع الملفات الناتجة.

احفظ ملف Excel الرئيسي (الذي يحتوي على كافة أوراق العمل التي تريدها كملفات منفصلة) في هذا المجلد.

يقوم الكود أعلاه بتقسيم كل ورقة في ملف Excel وحفظها كملف PDF في نفس المجلد الذي قمت بحفظ ملف Excel الرئيسي فيه.

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