Note: The other languages of the website are Google-translated. Back to English

كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟

أثناء العمل في Microsoft Excel ، قد تواجه مشكلة حفظ ورقة العمل النشطة كملف PDF. في هذه المقالة ، يمكنك التعرف على كيفية حفظ ورقة العمل النشطة كملف PDF برمز VBA من خلال زر الأمر. وإذا كنت تريد أيضًا حفظ نطاق أو كل ورقة عمل في مصنف نشط كملف PDF فردي ، فيمكن أن تساعدك هذه المقالة أيضًا.

استخدم زر الأمر لحفظ ورقة العمل النشطة كملف PDF برمز VBA
احفظ بسهولة أو كل ورقة عمل كملف PDF فردي باستخدام Kutools for Excel


استخدم زر الأمر لحفظ ورقة العمل النشطة كملف PDF برمز VBA

يمكنك تشغيل كود فبا التالي لحفظ ورقة عمل نشطة كملف PDF من خلال النقر على زر الأمر. الرجاء القيام بما يلي.

1. أولاً ، تحتاج إلى إنشاء مجلد باسم PDF لحفظ ملف PDF المحول الجديد. هنا أقوم بإنشاء هذا المجلد في القرص المحلي الخاص بي (C :).

2. الرجاء إدخال زر الأمر بالنقر فوق المطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:

2. ثم ارسم زر الأمر إلى ورقة العمل التي تريد إضافة صفوف جديدة إليها ، انقر بزر الماوس الأيمن فوق زر الأمر وانقر عقارات من قائمة النقر بزر الماوس الأيمن.

3. في ال عقارات في مربع الحوار ، أدخل النص المعروض لزر الأمر في ملف شرح مربع تحت مصنف علامة التبويب ، ثم أغلق مربع الحوار.

يمكنك أن ترى تغيير النص المعروض لزر الأمر كما هو موضح أدناه لقطة الشاشة.

4. انقر بزر الماوس الأيمن فوق زر الأمر مرة أخرى ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

5. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، يرجى استبدال الكود الأصلي في نافذة التعليمات البرمجية برمز VBA التالي.

كود فبا: زر الأمر لحفظ ورقة العمل النشطة بصيغة PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود ، CommandButton1 هو اسم زر الأمر الذي ستستخدمه لحفظ الورقة النشطة كملف PDF. "C: \ PDF \ Export.pdf" هو مسار واسم ملف PDF الذي يتم حفظه.

6. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. ثم قم بإيقاف تشغيل وضع التصميم تحت المطور علامة التبويب.

الآن ، انقر فوق زر الأمر ، سيتم حفظ ورقة العمل النشطة كملف PDF باسم تصدير وتقع في الموقع المحدد.


احفظ كل ورقة عمل كملف PDF فردي من مصنف نشط باستخدام Kutools for Excel

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

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

2. في ال انقسام وركبوك مربع الحوار ، يرجى التهيئة على النحو التالي:

2.1) تحقق فقط من اسم الورقة النشط في ملف اسم ورقة العمل صندوق؛
شنومكس) حدد PDF (* .pdf) الخيار من حفظ كنوع قائمة منسدلة؛
شنومكس) انقر فوق الانقسام زر ، ثم أ حدد المجلد ينبثق مربع الحوار ، حدد مجلدًا لحفظ ملف PDF ؛

ثم يتم حفظ ورقة العمل المحددة كملف PDF على الفور.

ملاحظة:

1. يمكنك التحقق من أسماء أوراق عمل متعددة في مربع اسم ورقة العمل لحفظها كملف pdf فردي مرة واحدة ؛
2. باستثناء حفظ ورقة العمل كملفات pdf ، يمكنك حفظ أوراق العمل بتنسيق txt. أو csv. ملف ما تحتاجه.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


العرض التوضيحي: احفظ التحديد أو كل ورقة عمل بتنسيق PDF باستخدام Kutools for Excel


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (33)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكن السماح للمستخدم بإدخال اسم الملف بدلاً من "Export.pdf"؟ شكرا ايان
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حفظ فرعي AsPDF ()
Application.Screen تحديث = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = Application.InputBox ("أدخل اسم الملف")

strExcelPath = "H: \ My Documents"

Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي طلب مشابه أريد أن يتم تسمية الملف بنفس اسم خلية معينة في علامة التبويب ، IE: G19 (هذا هو رقم الفاتورة وأريد حفظ الملف كملف PDF بهذا الاسم)؟ . لقد تمكنت من تشغيل ملف export.pdf ولكن هذا لن ينجح في عمليات حفظ متعددة. شكرا لأي أفكار
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يمكن أن تساعدك التعليمات البرمجية VBA التالية في حل المشكلة. يرجى تحديد الخلية G19 في مربع الحوار Kutoos for Excel المنبثق بعد تشغيل الكود. شكرا لك على تعليقك.

أمر فرعي خاص
خافت xRg كمدى
خافت xName كسلسلة
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
تعيين xRg = Application.InputBox ("حدد الخلية التي ستقوم بتسمية ملف PDF بقيمة الخلية:" ، "Kutools for Excel" ، Selection.Address ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
xName = xRg (1) .Value
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = "C: \ PDF \" & xName & ".pdf"، _
OpenAfterPublish: = خطأ
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد غيرت المسار إلى محرك الأقراص D ، لكنه لا يحفظ في محرك الأقراص D. ماذا أفعل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Akshay MN ،
إذا قمت بتعديل المسار أعلاه إلى محرك D ، فتأكد من وجود مجلد باسم PDF في محرك الأقراص D.
إذا كنت تريد فقط حفظ الملف في محرك الأقراص D دون إنشاء مجلد فرعي ، فالرجاء استخدام مسار المجلد هذا: "C: \" & xName & ".pdf"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنني تحويل ملفاتي إلى PDF الآن باستخدام زر أمر ، ولكن يمكنني أيضًا الحصول على نفس الوظيفة للسماح باسم مختلف لكل ملف ؛ على أساس بنية عدد موجودة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا راندي ،
آسف لا أستطيع المساعدة في هذا ، مرحبًا بك لنشر أي سؤال في منتدانا: https://www.extendoffice.com/forum.html للحصول على المزيد من دعم Excel من المحترفين لدينا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يظهر خطأ وقت التشغيل "1004"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نزى ،
أحتاج إلى معرفة إصدار Excel الخاص بك. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
plz لصق الترميز للحفظ كزر pdf في Microsoft Excel
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أفعل ذلك لبرنامج MS Word؟ لدي مجموعة من الأسئلة مع خيارات زر الاختيار كإجابات. لذلك أريد إنشاء زر أمر لإخراج الأسئلة بالإجابات المحددة فقط في مستند Word آخر. كيف أقوم بهذا العمل؟ رمز سيساعد حقًا! سأرسل لك المستند بالبريد الإلكتروني إذا احتجت إليه. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
آسف لا أستطيع مساعدتك في ذلك حتى الآن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub ZapiszPDF ()
Dim sNazwaPliku كسلسلة

sNazwaPliku = ActiveSheet.Name

Application.Dialogs (xlDialogSaveAs). Show sNazwaPliku، 57

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد اتبعت الكود ، هذا ما لدي:

أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = النطاق ("P2") ، _
OpenAfterPublish: = صحيح
Application.ScreenUpdating = ترو
نهاية الفرعية

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

كان jemand مير هلفن؟

Ich nutze diese Zeilen und möchte Jedoch، das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird:

أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = "C: \ PDF \ Export.pdf"، _
OpenAfterPublish: = خطأ
Application.ScreenUpdating = ترو
نهاية الفرعية

شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
كان مير جماند عين تيب جبين؟


أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = "c: /" & G3 & ".pdf" ، _
OpenAfterPublish: = خطأ
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ساشا ،
يمكن أن يساعد الكود التالي. قبل تطبيق الكود ، يرجى تغيير "C: \ Users \ Win10x64Test \ Documents \ PDF'في السطر الرابع إلى مسار مجلد الوجهة الخاص بك.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
то за кнопка - "другой" + Q клавиши одновременно "؟ Не поняла что нажимать، подскажите، пожалусй
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Диана ،
إنه مفتاح "Alt" على لوحة المفاتيح. يسمح Microsoft Excel للمستخدمين بالضغط على مفتاحي "Alt" + "Q" لإغلاق نافذة Microsoft Visual Basic for Applications والعودة إلى ورقة العمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Goededag

هل هو فيلم موغيليجك أوم een من een voorbeeld excelblad te maken voor de Command-Knop Om Een Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kom er niet helemaal uit met deodes.
شكرا مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ماكس،
آسف أنا لا أفهم ما تعنيه. قد تحتاج إلى إرفاق لقطة شاشة لما تحاول القيام به. آسف للإزعاج.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا فريق،

فقط أتساءل عما إذا كان بإمكان أي شخص المساعدة في تغيير وجهة الملف الذي تم إنشاؤه إلى سطح مكتب أي مستخدم؟ لا تسمح شركتي بالوصول إلى C: لذا لا يعمل البرنامج النصي.

كثير كثير كثير شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بن ستودارت ،
تحتاج فقط إلى فتح أي مجلد على سطح المكتب ونسخ مسار المجلد في مربع العنوان ، ثم استبدال مسار المجلد في رمز VBA بالمسار الذي نسخته.
هذا هو سطر اسم الملف الجديد (يرجى استبدال اسم المستخدم باسم المستخدم الخاص بك) ، Export.pdf هو اسم وامتداد الملف لملف PDF:
اسم الملف: = "C: \ Users \ Username \ Desktop \ PDF \ Export.pdf"، _
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بتشغيل هذا ، فإنه يحفظ ملف PDF على محرك الأقراص المحلي الخاص بي حيث يتم حفظ أوراق Excel ، كيف يمكنني منع هذا من الحفظ التلقائي؟

أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
OpenAfterPublish: = صحيح
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بتشغيل ما يلي ، فإنه ينشئ إصدارًا محليًا من ملف PDF تلقائيًا - كيف يمكنني منع هذا من الحفظ تلقائيًا؟

أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
OpenAfterPublish: = صحيح
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جيمس،
هل تريد أن تنبثق نافذة لتحديد مجلد لحفظ ملف PDF يدويًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كريستال ، من الناحية المثالية نعم حتى أتمكن بعد ذلك من اختيار مكان حفظ ملف PDF.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ح جيمس ،

يمكن أن يساعدك رمز VBA التالي في حل المشكلة.
ملاحظة: لا يمكنك التعامل مع الوجهة واسم الملف في نفس الوقت. بعد إضافة رمز VBA التالي ، عند النقر فوق الزر ، سيظهر لك مربع حوار لتحديد مجلد وجهة. بعد تحديد مجلد وجهة ، سيظهر لك مربع لإعطاء اسم لملف PDF.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ich nutze diese Zeilen und das funktioniert auch gut، mein problem ist nur، sollte diese diese bereits vorhanden sein، wird diese einfach überschrieben!
Wie kann ich das vermeiden، es sollte eine Meldung kommen، Datei موجودون bereits und es soll beendet werden؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ich nutze diese Zeilen und das funktioniert auch gut، mein problem ist nur، sollte diese diese bereits vorhanden sein، WIRD diese einfach überschrieben!
Wie kann ich das vermeiden، es sollte eine Meldung kommen، Datei موجودون bereits und es soll beendet werden؟


أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = "X: \ firmen \ Buchhaltung \ Rechnungs-Kopie_Ackermann Service GmbH \ 2022 \ RK-Abrechnung \" & ActiveSheet.Range ("G1") & ".pdf"، _
OpenAfterPublish: = صحيح
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ساشا ،
يمكن أن يساعد رمز VBA التالي. يرجى محاولة إعطائها.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL