كيفية تحويل عدة مصنفات أو أوراق عمل إلى ملفات PDF مرة واحدة في Excel؟
في وقت ما ، تحتاج إلى تحويل ملفات Excel إلى ملفات PDF ، بحيث لا يمكن للآخرين تعديلها. في Excel ، يمكننا حفظ ملف Excel كملف PDF باستخدام وظيفة حفظ باسم. ولكن كيف يمكنك تحويل العديد من المصنفات إلى ملفات PDF في نفس الوقت في Excel؟
- قم بتحويل مصنفات متعددة إلى ملفات PDF باستخدام وظيفة Save As واحدًا تلو الآخر
- تحويل مصنفات متعددة إلى ملفات PDF باستخدام كود VBA مرة واحدة
- قم بتحويل العديد من المصنفات إلى ملفات PDF بميزة قوية
- قم بتحويل أوراق عمل متعددة من مصنف إلى ملفات PDF منفصلة برمز VBA
- قم بتحويل أوراق عمل متعددة من مصنف إلى ملفات PDF منفصلة بميزة سهلة الاستخدام
قم بتحويل مصنفات متعددة إلى ملفات PDF باستخدام وظيفة Save As واحدًا تلو الآخر
عادة ، يمكن أن تساعدك ميزة حفظ باسم في Excel على حفظ المصنف بأكمله في ملف PDF ، يرجى القيام بذلك على النحو التالي:
1. قم بتشغيل المصنف الذي تريد تحويله إلى تنسيق PDF.
2. انقر قم بتقديم > حفظ باسم، وفي حفظ باسم مربع الحوار ، يرجى تحديد مجلد لحفظ الملف الجديد ، ثم تحديد PDF من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق مزيد من الخيارات زر ، انظر لقطة الشاشة:
3. ثم ، في ظهرت مزيد من الخيارات مربع الحوار ، تحقق دفتر كامل، انظر لقطة الشاشة:
4. ثم انقر فوق OK > حفظ، تم حفظ هذا المصنف بأكمله بتنسيق ملف 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. ثم اضغط OK، انبثقت نافذة أخرى ، يرجى تحديد مسار المجلد حيث تريد إخراج ملفات PDF الجديدة ، انظر لقطة الشاشة:
5. وبعد ذلك ، clik OK، بعد الانتهاء من التحويل يمكنك الذهاب إلى المجلد المحدد لمعاينة النتيجة المحولة ، انظر لقطات الشاشة:
قم بتحويل العديد من المصنفات إلى ملفات PDF بميزة قوية
إذا كان لديك كوتولس ل إكسيل، بما لديها تنسيق تحويل يمكنك تحويل العديد من المصنفات بسرعة إلى ملفات PDF في وقت واحد.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس بلس > مصنف > تنسيق تحويل، انظر لقطة الشاشة:
2. ويظهر مربع موجه لتذكيرك بضرورة إغلاق المصنفات التي تريد تحويلها.
3. انقر OK، إذن ، في محول تنسيق الملفات مربع الحوار ، حدد الخيارات التالية:
- تحت المبادرة من نوع التحويل القائمة المنسدلة ، حدد مصنف Excel إلى PDF;
- ثم اضغط أضف زر لإضافة ملفات Excel التي تريد تحويلها ، يمكنك إضافة المصنفات من قرص الكمبيوتر أو OneDrive حسب حاجتك ؛
4. بعد إدراج المصنفات التي تريد تحويلها ، لا تزال في ملف محول تنسيق الملف مربع الحوار ، الرجاء الضغط زر لاختيار مسار مجلد واحد لإخراج الملفات المحولة ، ثم حدد بعض العمليات التي تحتاجها في أسفل مربع الحوار ، انظر لقطة الشاشة:
- إذا كانت المصنفات الموجودة في المجلدات الفرعية بحاجة إلى التحويل أيضًا ، فيرجى التحقق من قم بتضمين المجلدات الفرعية عند إضافة المجلدات خانة الاختيار
- إذا كنت تريد إزالة الملفات الأصلية بعد التحويل ، فيرجى التحقق من حذف ملفات المصدر بعد التحويل صندوق؛
- إذا كنت تريد الاحتفاظ بالتاريخ المعدل للملفات الأصلية ، فيرجى التحقق من احتفظ بالتاريخ المعدل للملفات الأصلية صندوق؛
- يمكن الاحتفاظ ببنية الدليل للملف عن طريق التحقق من يتم الاحتفاظ ببنية الدليل للملف عند التحويل صندوق؛
5. ثم اضغط OK لبدء التحويل ، عندما يتم تحويل جميع ملفات Excel المحددة إلى ملفات PDF ، يمكنك الانتقال إلى المجلد المحدد لمعاينة النتيجة المحولة ، انظر لقطات الشاشة:
قم بتحويل أوراق عمل متعددة من مصنف إلى ملفات PDF منفصلة برمز VBA
في بعض الحالات ، قد ترغب في تحويل كل ورقة عمل في المصنف إلى ملفات PDF منفصلة ، إذا كان هناك الكثير من الأوراق في المصنف الخاص بك ، يمكن أن يساعدك رمز VBA أدناه في حفظ كل ورقة عمل كملف PDF في وقت واحد.
1. افتح المصنف الذي تريد تحويله ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: تحويل أوراق عمل متعددة من مصنف لفصل ملفات 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. ثم اضغط OK ، تم تحويل جميع أوراق العمل الموجودة في المصنف الحالي إلى ملفات PDF بشكل منفصل ، انظر لقطة الشاشة:
قم بتحويل أوراق عمل متعددة من مصنف إلى ملفات PDF منفصلة بميزة سهلة الاستخدام
كوتولس ل إكسيل يدعم أيضًا ميزة مفيدة - انقسام وركبوك، باستخدام هذه الميزة ، يمكنك حفظ أوراق عمل متعددة داخل المصنف لفصل ملف Excel وملف Txt وملف CSV وملف PDF حسب حاجتك.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. افتح المصنف الذي تريد حفظ كل ورقة فيه كملف PDF ، ثم انقر فوق كوتول بلس > مصنف > انقسام وركبوك، انظر لقطة الشاشة:
2. في انقسام وركبوك في مربع الحوار ، حدد الورقة التي تريد حفظها ، ثم اختر PDF (* .pdf) من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق الانقسام زر ، في حدد المجلد نافذة ، حدد مجلد لوضع الملفات المحولة ، انظر الصورة:
3. وبعد ذلك ، تم حفظ جميع أوراق العمل المحددة في المصنف الحالي في ملفات PDF بشكل فردي ، انظر لقطة الشاشة:
المزيد من المقالات ذات الصلة:
- تحويل ملفات Xls متعددة إلى ملفات Xlsx في Excel
- لتحويل ملف xls Excel قديم إلى ملف xlsx جديد ، يمكنك تطبيق ميزة Save As في Excel ، ولكن إذا كانت هناك ملفات xls متعددة تحتاج إلى تحويل ، فكيف يمكن التعامل مع هذه المهمة بسرعة وسهولة؟
- احفظ جميع أوراق العمل على هيئة قيم فقط
- إذا كان لديك مصنف يحتوي على صيغ متعددة ، فأنت الآن بحاجة إلى توزيع هذا الملف على مستخدمين آخرين ، ولا ترغب في إظهار الصيغ ولكن يتم عرض القيم فقط. عادة ، يمكننا حفظ ورقة العمل بسرعة كقيم عن طريق نسخ البيانات ولصقها كقيم فقط. ولكن ، كيف يمكنك حفظ جميع أوراق العمل كقيم فقط دون نسخ ولصق واحدة تلو الأخرى؟
- زر الأمر لحفظ ورقة العمل النشطة كملف PDF
- أثناء العمل في Microsoft Excel ، قد تواجه مشكلة حفظ ورقة العمل النشطة كملف PDF. في هذه المقالة ، يمكنك التعرف على كيفية حفظ ورقة العمل النشطة كملف PDF برمز VBA من خلال زر الأمر. وإذا كنت تريد أيضًا حفظ نطاق أو كل ورقة عمل في مصنف نشط كملف PDF فردي ، فيمكن أن تساعدك هذه المقالة أيضًا.
- قسّم طاولة كبيرة إلى عدة طاولات صغيرة
- إذا كانت لديك ورقة عمل كبيرة تحتوي على أعمدة متعددة ومئات أو آلاف من بيانات الصفوف ، فأنت تريد الآن تقسيم هذا الجدول الكبير إلى جداول صغيرة متعددة استنادًا إلى قيمة العمود أو عدد الصفوف للحصول على النتائج التالية. كيف يمكنك التعامل مع هذه المهمة في Excel؟
- تقسيم مصنف لفصل ملفات Excel
- قد تحتاج إلى تقسيم مصنف كبير لفصل ملفات Excel مع حفظ كل ورقة عمل من المصنف كملف Excel فردي. على سبيل المثال ، يمكنك تقسيم مصنف إلى عدة ملفات Excel فردية ثم تسليم كل ملف إلى شخص مختلف للتعامل معه. من خلال القيام بذلك ، يمكنك جعل بعض الأشخاص يتعاملون مع بيانات محددة ، والحفاظ على أمان بياناتك. ستقدم هذه المقالة طرقًا لتقسيم مصنف كبير لفصل ملفات Excel استنادًا إلى كل ورقة عمل.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!