วิธีการแปลงไฟล์ Excel หลายไฟล์เป็นไฟล์ CSV ใน Excel
ใน Excel เราสามารถแปลงเวิร์กบุ๊กเป็นไฟล์ CSV ด้วยฟังก์ชันบันทึกเป็น แต่คุณสามารถทราบวิธีแปลงไฟล์ Excel หลายไฟล์เป็นไฟล์ CSV แยกกันได้อย่างไร ในบทความนี้ฉันแนะนำรหัส VBA เป็นแบทช์แปลงไฟล์ Excel ทั้งหมดในโฟลเดอร์เป็นไฟล์ CSV ใน Excel
Batch แปลงไฟล์ Excel ของโฟลเดอร์เป็นไฟล์ CSV ด้วย VBA
แปลงแผ่นงานเป็นไฟล์ CSV แยกต่างหากด้วย Kutools for Excel
Batch แปลงไฟล์ Excel ของโฟลเดอร์เป็นไฟล์ CSV ด้วย VBA
ใน Excel ไม่มีฟังก์ชันในตัวที่สามารถแก้ปัญหานี้ได้อย่างรวดเร็วยกเว้น VBA
1. เปิดใช้งาน Excel แล้วกด Alt + F11 คีย์เปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลใหม่
3. คัดลอกโค้ดด้านล่างและวางลงในหน้าต่างโมดูลใหม่
VBA: Batch แปลงไฟล์ Excel เป็น CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4 กด F5 เลือกโฟลเดอร์ที่มีไฟล์ Excel ที่คุณต้องการแปลงเป็นไฟล์ CSV ในกล่องโต้ตอบ popping แรก
5 คลิก OKจากนั้นในกล่องโต้ตอบ popping ที่สองให้เลือกโฟลเดอร์ที่จะวางไฟล์ CSV
6 คลิก OKตอนนี้ไฟล์ Excel ในโฟลเดอร์ถูกแปลงเป็นไฟล์ CSV และบันทึกไว้ในโฟลเดอร์อื่น
แปลงแผ่นงานเป็นไฟล์ CSV แยกต่างหากด้วย Kutools for Excel
อย่างที่เราทราบกันดีว่าเราสามารถแปลงสมุดงานทั้งหมดเป็นไฟล์ CSV ไฟล์เดียวใน Excel ได้ด้วยฟังก์ชันบันทึกเป็น แต่ในบางครั้งคุณต้องการแปลงแผ่นงานเดียวเป็นไฟล์ CSV ในกรณีนี้คือไฟล์ แยกสมุดงาน ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยให้คุณ
Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)
1. เปิดใช้งานสมุดงานที่คุณต้องการแปลงแผ่นงานเป็นไฟล์ CSV แยกจากกันคลิก Kutools พลัส > สมุดงาน > แยกสมุดงาน.
2 ใน แยกสมุดงาน กล่องโต้ตอบตรวจสอบชื่อแผ่นงานที่คุณต้องการแยก (แผ่นงานทั้งหมดจะถูกตรวจสอบตามค่าเริ่มต้น) ตรวจสอบ บันทึกเป็น พิมพ์เลือก CSV (แมคอินทอช) (* .CSV) จากรายการแบบหล่นลง
3 คลิก แยก เพื่อเปิดไฟล์ เรียกดูโฟลเดอร์ โต้ตอบเลือกหรือสร้างโฟลเดอร์เพื่อวางไฟล์ CSV
4 คลิก OKตอนนี้สมุดงานได้ถูกแยกเป็นไฟล์ CSV แยกกัน
แยกสมุดงาน
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!