كيفية تحويل عدة مصنفات أو أوراق عمل إلى ملفات PDF دفعة واحدة في Excel؟

تحويل ملفات Excel إلى PDF هو مهمة شائعة عندما تريد مشاركة البيانات مع منع التعديلات. بينما يتيح لك خيار حفظ باسم في Excel تحويل مصنف واحد إلى PDF، قد يستغرق الأمر وقتًا طويلاً عند التعامل مع عدة ملفات. هذا الدليل يستعرض طرقًا مختلفة، بما في ذلك كود VBA وأداة Kutools لـ Excel، لتحويل عدة مصنفات أو أوراق عمل إلى ملفات PDF بسرعة ودفعة واحدة.

• تحويل عدة مصنفات إلى ملفات PDF باستخدام وظيفة حفظ باسم واحدة تلو الأخرى
• تحويل عدة مصنفات إلى ملفات PDF باستخدام كود VBA دفعة واحدة
• تحويل عدة مصنفات إلى ملفات PDF باستخدام ميزة قوية
• تحويل عدة أوراق عمل من مصنف إلى ملفات PDF منفصلة باستخدام كود VBA
• تحويل عدة أوراق عمل من مصنف إلى ملفات PDF منفصلة باستخدام ميزة عملية

تحويل عدة مصنفات إلى ملفات PDF باستخدام وظيفة حفظ باسم واحدة تلو الأخرى

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

1. افتح المصنف الذي تريد تحويله إلى تنسيق PDF.

2. انقر فوق ملف > حفظ باسم، وفي مربع حوار حفظ باسم، حدد مجلدًا لحفظ الملف الجديد، ثم اختر PDF من قائمة نوع الحفظ المنسدلة، وبعد ذلك انقر فوق زر الخيارات، انظر الصورة:

3. بعد ذلك، في مربع الحوار المنبثق للخيارات، حدد المصنف بأكمله، انظر الصورة:

4. ثم انقر فوق موافق > حفظ، وسيتم حفظ المصنف بالكامل بصيغة ملف PDF.

تحويل عدة مصنفات إلى ملفات PDF باستخدام كود VBA دفعة واحدة

إذا كان هناك مئات من ملفات Excel التي تحتاج إلى تحويلها، فإن الطريقة أعلاه ستكون مرهقة، هنا سأتحدث عن كود VBA لتحويل عدة مصنفات إلى ملفات PDF دفعة واحدة، يرجى اتباع الخطوات التالية:

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تحويل عدة مصنفات إلى ملفات PDF دفعة واحدة

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. اضغط على مفتاح F5 لتشغيل هذا الكود، وسيظهر نافذة، يرجى تحديد مجلد يحتوي على المصنفات التي تريد تحويلها، انظر الصورة:

4. انقر فوق موافق، ستظهر نافذة أخرى، يرجى تحديد مسار مجلد حيث تريد حفظ ملفات PDF الجديدة، انظر الصورة:

5. انقر فوق موافق، بعد الانتهاء من التحويل، يمكنك الانتقال إلى المجلد المحدد لعرض النتائج المحولة، انظر الصور:

تحويل عدة مصنفات إلى ملفات PDF باستخدام ميزة قوية

إذا كنت تمتلك Kutools لـ Excel، باستخدام أداة تحويل التنسيقات الخاصة بها، يمكنك بسرعة تحويل عدة مصنفات إلى ملفات PDF دفعة واحدة.

1. انقر فوق Kutools Plus > أدوات المصنف > تحويل التنسيقات، انظر الصورة:

2. سيظهر مربع تلميح ينبهك لإغلاق المصنفات التي تريد تحويلها.

3. انقر فوق موافق، ثم في مربع الحوار تحويل التنسيقات، حدد الخيارات التالية:

• من قائمة نوع التحويل المنسدلة، حدد تحويل مصنف Excel إلى PDF؛
• انقر فوق زر الإضافة لتحديد ملفات Excel التي تريد تحويلها. يمكنك اختيار المصنفات من جهاز الكمبيوتر الخاص بك أو OneDrive حسب الحاجة.

4بعد إدراج المصنفات التي تريد تحويلها، لا تزال في محول تنسيق الملفات مربع الحوار، يرجى النقر لتحديد مسار مجلد لحفظ الملفات المحولة، ثم حدد بعض العمليات التي تحتاج إليها في أسفل مربع الحوار، انظر الصورة:

5. ثم انقر فوق موافق لبدء التحويل. بمجرد تحويل جميع ملفات Excel المحددة إلى ملفات PDF، انتقل إلى المجلد المحدد لعرض النتائج. انظر الصور أدناه:

تحويل عدة أوراق عمل من مصنف إلى ملفات PDF منفصلة باستخدام كود VBA

في بعض الحالات، قد ترغب في تحويل كل ورقة عمل في المصنف إلى ملفات PDF منفصلة. إذا كان المصنف يحتوي على العديد من الأوراق، يمكن أن يساعدك الكود التالي لـ VBA في حفظ كل ورقة عمل كملف PDF منفصل في نفس الوقت.

1. افتح مصنفًا تريد تحويله، ثم اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تحويل عدة أوراق عمل من مصنف إلى ملفات PDF منفصلة

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر نافذة؛ يرجى اختيار مسار مجلد لحفظ ملفات PDF المحولة. انظر الصورة:

4. انقر فوق زر موافق، وستتحول جميع الأوراق في المصنف الحالي إلى ملفات PDF منفصلة:

تحويل عدة أوراق عمل من مصنف إلى ملفات PDF منفصلة باستخدام ميزة عملية

يدعم Kutools لـ Excel أيضًا ميزة مفيدة - فصل المصنف، باستخدام هذه الميزة، يمكنك حفظ عدة أوراق عمل داخل المصنف كملفات Excel منفصلة، ملفات Txt، ملفات CSV وملفات PDF حسب حاجتك.

1. افتح المصنف حيث تريد حفظ كل ورقة كملف PDF منفصل، ثم انقر فوق Kutool Plus > أدوات المصنف > فصل المصنف، انظر الصورة:

2. في مربع الحوار فصل المصنف، حدد الورقة التي تريد حفظها، ثم اختر PDF (*.pdf) من قائمة نوع الحفظ المنسدلة، وبعد ذلك انقر فوق زر الفصل، في نافذة تحديد المجلد، حدد مجلدًا لوضع الملفات المحولة، انظر الصورة:

3. وبعد ذلك، تم حفظ جميع الأوراق المحددة في المصنف الحالي كملفات PDF بشكل فردي، انظر الصورة:

مقالات ذات صلة: