انتقل إلى المحتوى الرئيسي

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

في وقت ما ، تحتاج إلى تحويل ملفات Excel إلى ملفات PDF ، بحيث لا يمكن للآخرين تعديلها. في Excel ، يمكننا حفظ ملف Excel كملف PDF باستخدام وظيفة حفظ باسم. ولكن كيف يمكنك تحويل العديد من المصنفات إلى ملفات PDF في نفس الوقت في Excel؟


قم بتحويل مصنفات متعددة إلى ملفات PDF باستخدام وظيفة Save As واحدًا تلو الآخر

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

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

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

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

4. ثم انقر فوق OK > حفظ، تم حفظ هذا المصنف بأكمله بتنسيق ملف PDF.

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

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations