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

كيفية حفظ أو تصدير كل ورقة كملف CSV / PDF في Excel؟

على سبيل المثال ، لديك كتاب عمل كبير به أوراق متعددة ، وتريد حفظ أو تصدير كل ورقة كملف .csv فردي أو ملف PDF ، كيف يتم إنجازه بسهولة وبسرعة؟ في هذه المقالة ، سأقدم عدة طرق لحلها.


احفظ أو صدّر كل ورقة كملف CSV / PDF مع ميزة Save As

كما تعلم ، يمكن لـ Microsoft Excel حفظ ورقة العمل الحالية كملف .csv فردي أو ملف PDF. لذلك ، يمكنك حفظ أو تصدير كل ورقة كملف .csv أو ملف PDF واحدًا تلو الآخر يدويًا.

1. قم بالتبديل إلى الورقة التي ستقوم بحفظها أو تصديرها كملف .csv فردي ، وانقر فوق قم بتقديم (أو زر المكتب)> حفظ باسم.

2. في مربع حوار الفتح ، حدد المجلد الوجهة الذي ستحفظ فيه ملف .csv ، انقر فوق حفظ كنوع مربع وحدد CSV (محدد بفواصل) (* .csv) or PDF (* .pdf) من القائمة المنسدلة ، وانقر فوق حفظ .

3. سيظهر مربعا حوار تحذير على التوالي. من فضلك اضغط OK > نعم.

ملاحظة: إذا قمت بحفظ ورقة العمل النشطة كملف PDF ، فلن تظهر مربعات الحوار هذه. فقط انتقل إلى الخطوة التالية.

4. كرر الخطوة 1-3 أعلاه لحفظ الأوراق الأخرى كملفات .csv فردية واحدة تلو الأخرى.


قم بحفظ أو تصدير كل ورقة دفعة واحدة كملف CSV باستخدام VBA

إذا كان هناك عدد من الأوراق التي تريد حفظها أو تصديرها كملفات .csv ، فإن الطريقة الأولى ستكون مضيعة للوقت ومملة. يمكن أن يبسط VBA العمل ويجعل من السهل حفظ أو تصدير كل ورقة كملف .csv.

1. صحافة قديم + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Application.

2. انقر إدراج > وحدة، ثم قم بلصق التعليمات البرمجية لـ VBA التالية في نافذة الوحدة النمطية الجديدة.

فبا: احفظ كل ورقة كملف CSV فردي

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. انقر فوق يجري زر أو اضغط F5 مفتاح لتشغيل هذا VBA.

4. في مربع حوار الفتح تصفح ، حدد المجلد الوجهة الذي ستحفظ فيه جميع ملفات .csv ، وانقر فوق OK .

ثم سترى يتم حفظ / تصدير كل ورقة كملف .csv فردي في مجلد الوجهة المحدد.


قم بحفظ أو تصدير كل ورقة دفعة واحدة كملف CSV / PDF باستخدام Kutools for Excel

قد يرفض بعض مستخدمي Excel رمز VBA لبعض الأسباب. لا تقلق! يمكن للطريقة الثالثة أيضًا حفظ أو تصدير كل ورقة كملف .csv أو ملف PDF بسهولة بواسطة ملف انقسام وركبوك فائدة Kutools لبرنامج Excel.

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

1. انقر فوق مشروع > مصنف > انقسام وركبوك.

قم بتوثيق كل ورقة إلى csv 2

2. في مربع حوار فتح Split Workbook ،

قم بتوثيق كل ورقة إلى csv 8

(1) استمر في تحديد جميع الأوراق. إذا لم يكن كذلك ، يمكنك تحديد خانة الاختيار من قبل اسم ورقة العمل لتحديد كل الأوراق ؛

(2) تحقق من حدد تنسيق الحفظ الخيار.

(3) انقر فوق المربع أدناه حدد تنسيق الحفظ الخيار، وحدد CSV (Macintosh) (*. csv) or PDF (* .pdf) من القائمة المنسدلة.

(4) انقر فوق الانقسام .

 

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

3. في مربع حوار فتح الاستعراض بحثًا عن مجلد ، حدد مجلد الوجهة الذي ستحفظ فيه جميع ملفات .csv أو ملف PDF ، وانقر فوق OK .

سترى الآن أن كل ورقة يتم تصديرها وحفظها كملف .csv فردي في المجلد المحدد.


عرض توضيحي: احفظ أو صدّر كل ورقة كملف CSV / PDF في Excel


كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود في غضون 30 يومًا. تنزيل وتجربة مجانية الآن!

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (6)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على نصائحك المفيدة جدا. لقد استخدمت كود vba لتحويل ملف excel بأوراق متعددة إلى ملفات csv فردية. أنا أتساءل ، كيف يمكنني تحديد أنني أرغب في أن تكون ملفات csv هذه utf-8؟ هل هناك إضافة إلى الكود أدناه ستضيف هذه الميزة؟ Public Sub SaveWorksheetsAsCsv () Dim xWs As Worksheet Dim xDir As String Dim folder as FileDialog Set folder = Application.FileDialog (msoFileDialogFolderPicker) If folder.Show -1 ثم Exit Sub xDir = folder.SelectedItems (1) لكل xWs In Application.ActiveWorkbook أوراق العمل xWs.SaveAs xDir & "\" & xWs.Name، xlCSV Next End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ActiveWorkbook.SaveAs Filename: = استبدال (استبدال (xSPath & xCSVFile & xWs.Name، ".xlsx"، ""، vbTextCompare)، ".xls"، ""، vbTextCompare) & ".csv"، FileFormat: = xlCSVUTF8، CreateBackup: = خطأ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تحافظ على القيم العشرية وتحافظ عليها عند تصدير أوراق Excel إلى CSV؟ البيانات المالية تتطلب دقة البيانات حتى 3 أرقام عشرية عند التصدير إلى CSV؟ يرجى تقديم النصيحة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا prashan9810 ،
قبل تصدير الأوراق من Excel إلى CSV ، من الأفضل تغيير تنسيق أرقام العملات ، وإصلاح منازلها العشرية إلى 3.
يمكنك تغيير الخانات العشرية كما يلي:
1. في Excel ، حدد خلايا العملة ، وانقر بزر الماوس الأيمن ، ثم حدد تنسيق الخلايا من قائمة السياق.
2. في مربع حوار تنسيق الخلايا ، حدد العملة or محاسبية في ال الاختصاص مربع القائمة ، أدخل 3 في ال منازل عشرية مربع، وانقر فوق OK.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، شكرا لك على هذه النصائح! حاولت استخدام كود فبا ولكنني أتلقى رمز خطأ وقت التشغيل 91 للبنية التالية:

إذا كان المجلد يظهر <> -1 ثم قم بالخروج من الملف الفرعي

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

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

بعد ذلك ، يرجى تشغيل الكود. إذا كان لا يزال لا يعمل ، فيرجى استخدام الكود أدناه:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


أماندا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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