كيف يمكن تحويل عدة مصنفات أو أوراق عمل إلى ملفات 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 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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 منفصلة. انظر لقطة الشاشة:

مقالات ذات صلة إضافية:

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...