ไปยังเนื้อหาหลัก

วิธีบันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์ CSV / PDF ใน Excel

ตัวอย่างเช่นคุณมีสมุดงานขนาดใหญ่ที่มีแผ่นงานหลายแผ่นและคุณต้องการบันทึกหรือส่งออกแผ่นงานแต่ละแผ่นเป็นไฟล์. csv หรือไฟล์ PDF แต่ละแผ่นจะทำอย่างไรให้เสร็จอย่างง่ายดายและรวดเร็ว ในบทความนี้ผมจะแนะนำวิธีการต่างๆในการแก้ปัญหา


บันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์ CSV / PDF พร้อมคุณสมบัติบันทึกเป็น

ดังที่คุณทราบ Microsoft Excel สามารถบันทึกแผ่นงานปัจจุบันเป็นไฟล์. csv หรือไฟล์ PDF แต่ละไฟล์ ดังนั้นคุณสามารถบันทึกหรือส่งออกทุกแผ่นเป็นไฟล์. csv หรือไฟล์ PDF ทีละไฟล์ได้ด้วยตนเอง

1. สลับไปยังแผ่นงานที่คุณจะบันทึกหรือส่งออกเป็นไฟล์. csv แต่ละไฟล์แล้วคลิก เนื้อไม่มีมัน (หรือ ปุ่ม Office)> บันทึกเป็น.

2. ในกล่องโต้ตอบเปิดให้ระบุโฟลเดอร์ปลายทางที่คุณจะบันทึกไฟล์. csv ลงในคลิกไฟล์ บันทึกเป็นชนิด และเลือก CSV (คั่นด้วยจุลภาค) (* .csv) or PDF (* .pdf) จากรายการแบบเลื่อนลงและคลิก ลด ปุ่ม

3. จะมีกล่องโต้ตอบคำเตือนสองกล่องออกมาต่อเนื่องกัน กรุณาคลิก OK > ใช่.

หมายเหตุ หากคุณบันทึกแผ่นงานที่ใช้งานอยู่เป็นไฟล์ PDF กล่องโต้ตอบเหล่านี้จะไม่ปรากฏขึ้น เพียงแค่ไปที่ขั้นตอนต่อไป

4. ทำซ้ำขั้นตอนที่ 1-3 ข้างต้นเพื่อบันทึกแผ่นงานอื่น ๆ เป็นไฟล์. csv ทีละไฟล์


Batch บันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์ CSV ด้วย VBA

หากมีแผ่นงานจำนวนหนึ่งที่คุณต้องการบันทึกหรือส่งออกเป็นไฟล์. csv วิธีแรกจะค่อนข้างใช้เวลานานและน่าเบื่อ VBA นี้สามารถทำให้การทำงานง่ายขึ้นและทำให้ง่ายต่อการบันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์. csv

1 กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Application

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ต่อไปนี้ลงในหน้าต่างโมดูลใหม่

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 แต่ละไฟล์ในโฟลเดอร์ปลายทางที่ระบุ


Batch บันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์ CSV / PDF ด้วย Kutools for Excel

ผู้ใช้ Excel บางรายอาจปฏิเสธรหัส VBA ด้วยเหตุผลบางประการ ไม่ต้องกังวล! วิธีที่สามยังสามารถบันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์. csv หรือไฟล์ PDF ได้อย่างง่ายดายโดยใช้ไฟล์ แยกสมุดงาน ยูทิลิตี้ของ Kutools for Excel

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now

1 คลิกที่ Enterprise > สมุดงาน > แยกสมุดงาน.

doc แต่ละแผ่นเป็น csv 2

2. ในกล่องโต้ตอบแยกสมุดงานเปิด

doc แต่ละแผ่นเป็น csv 8

(1) เลือกแผ่นงานทั้งหมด หากไม่เป็นเช่นนั้นคุณสามารถเลือกช่องทำเครื่องหมายก่อน ชื่อแผ่นงาน เพื่อเลือกแผ่นงานทั้งหมด

(2) ตรวจสอบไฟล์ ระบุรูปแบบการบันทึก ตัวเลือก;

(3) คลิกช่องด้านล่าง ระบุรูปแบบการบันทึก ตัวเลือกและเลือก CSV (แมคอินทอช) (*. csv) or PDF (* .pdf) จากรายการแบบหล่นลง

(4) คลิกไฟล์ แยก ปุ่ม

 

หมายเหตุ: หากมีเวิร์กชีทที่ซ่อนอยู่และว่างเปล่าอยู่ในสมุดงานของคุณให้ตรวจสอบไฟล์ ข้ามแผ่นงานที่ซ่อนอยู่ กล่องและ ข้ามแผ่นงานเปล่า กล่องจะละเว้นแผ่นงานว่างหรือที่ซ่อนอยู่ทั้งหมดขณะส่งออก

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now

3. ในกล่องโต้ตอบเปิดเรียกดูโฟลเดอร์ให้ระบุโฟลเดอร์ปลายทางที่คุณจะบันทึกไฟล์. csv หรือไฟล์ PDF ทั้งหมดลงในและคลิก OK ปุ่ม

ตอนนี้คุณจะเห็นทุกแผ่นถูกส่งออกและบันทึกเป็นไฟล์. csv แต่ละไฟล์ในโฟลเดอร์ที่ระบุ


สาธิต: บันทึกหรือส่งออกแต่ละแผ่นเป็นไฟล์ CSV / PDF ใน Excel


Kutools สำหรับ Excel: เครื่องมือแสนสะดวกกว่า 300 รายการอยู่แค่เพียงปลายนิ้วสัมผัส! เริ่มทดลองใช้ฟรี 30 วันโดยไม่มีข้อจำกัดด้านฟีเจอร์ตั้งแต่วันนี้ Download Now!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (7)
No ratings yet. Be the first to rate!
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!
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. :)
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
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
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.
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
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations