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

كيفية حفظ أو تصدير كل ورقة كملف 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.

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن

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

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

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

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

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

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

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

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

 

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

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن

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

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

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


كوتولس ل إكسيل: أكثر من 300 أداة مفيدة في متناول يدك! ابدأ تجربتك المجانية لمدة 30 يومًا دون أي قيود على الميزات اليوم. تحميل الآن!

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

🤖 مساعد 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 (7)
No ratings yet. Be the first to rate!
Angela
Angela
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
Reply
0
0
Charlene
Charlene
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
Reply
0
0
Amanda Lee
Amanda Lee     Charlene
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
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


Amanda
Reply
Report
0
0
prashant9810
prashant9810
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
Reply
Report
0
0
kellytte
kellytte     prashant9810
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
View Attachments (1 / 5)
Reply
Report
0
0
Pav
Pav
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? 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
Reply
0
0
Sriraj
Sriraj     Pav
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations