موضوع

التاكيد! يوجد أدناه ماكرو Excel VBA الذي سيستخرج كل ورقة في المصنف كملف PDF باسم الورقة:

1. افتح مصنف Excel الخاص بك.
2. اضغط على Alt + F11 لفتح محرر VBA.
3. أدخل وحدة نمطية جديدة بالنقر فوق Insert > Module.
4. انسخ والصق الكود التالي في الوحدة النمطية:

Sub ExportSheetsAsPDF()
    Dim ws As Worksheet
    Dim filePath As String
    Dim fileName As String
    Dim fullPath As String

    ' Set the path to save the PDFs (modify as needed)
    filePath = ThisWorkbook.Path & "\"

    For Each ws In ThisWorkbook.Worksheets
        ' Create the full path and file name
        fileName = ws.Name & ".pdf"
        fullPath = filePath & fileName

        ' Export the sheet as a PDF
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullPath, Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws

    ' Notify user that sheets have been exported
    MsgBox "All sheets have been exported as PDFs to " & filePath, vbInformation
End Sub

5. أغلق محرر VBA.
6. قم بتشغيل الماكرو بالضغط على Alt + F8 وتحديد ExportSheetsAsPDF والنقر فوق Run.

سيقوم هذا الماكرو بتصدير كل ورقة في مصنف Excel كملف PDF منفصل باسم الورقة ، محفوظا في نفس الدليل مثل المصنف. قم بتعديل متغير filePath إذا كنت تريد حفظ ملفات PDF في دليل مختلف.