รูปแบบเต็มของ CSV คือค่าที่คั่นด้วยจุลภาค นั่นหมายถึงค่า t ใน CSV คั่นด้วยเครื่องหมายจุลภาคเท่านั้น นี่เป็นรูปแบบข้อมูลที่จำเป็นในการจัดการฐานข้อมูล เรายังใช้ Excel ในโครงการจัดการข้อมูลจำนวนมาก ดังนั้นจึงเป็นเรื่องปกติที่จะแลกเปลี่ยนข้อมูลระหว่างสองรูปแบบนี้ แม้ว่าเราจะแปลง CSV ได้อย่างง่ายดาย จัดรูปแบบไฟล์เป็น Excel โดยใช้คุณลักษณะข้อความเป็นคอลัมน์ สำหรับแปลง Excel หลายไฟล์เป็น CSV ไม่มีวิธีการโดยตรงที่มีอยู่จนถึงปัจจุบัน คุณต้องใช้ VBA หรือเครื่องมือออนไลน์เพื่อการนี้ วิธีแปลงไฟล์ Excel หลายไฟล์เป็น CSV มีการกล่าวถึงที่นี่พร้อมคำอธิบายที่เพียงพอ
ดาวน์โหลดคู่มือแบบฝึกหัดด้านล่างนี้
3 วิธีที่เหมาะสมในการแปลงไฟล์ Excel หลายไฟล์เป็น CSV
เพื่อจุดประสงค์ในการสาธิต เราจะใช้ชุดข้อมูลต่อไปนี้ ซึ่งค่อนข้างเข้าใจง่าย เรามี วันที่ซื้อ , ภูมิภาค , สินค้า และ ปริมาณ เป็นส่วนหัวของตาราง
1. การฝัง VBA เพื่อแปลงไฟล์ Excel หลายไฟล์เป็น CSV
การใช้มาโคร VBA . อย่างง่าย สามารถลดเวลาในการ แปลงไฟล์ Excel หลายไฟล์เป็น CSV ได้อย่างมาก รูปแบบ. วิธีนี้จะโหลดไฟล์ Excel โดยตรงแล้วแปลงเป็น CSV ฟอร์แมตไฟล์
ขั้นตอน
- ขั้นแรก ไปที่ Developer แท็บ จากนั้นคลิก Visual Basic
- จากนั้นคลิก แทรก> โมดูล
- ใน โมดูล ให้กรอกรหัสต่อไปนี้
Sub convert_Excel_to_csv()
Dim Con_Mul_Excel As Workbook
Dim Con_Mul_Excel_ws As Worksheet
Dim Con_Mul_Excel_path As String
Dim Con_Mul_Excel_file As String
Dim Con_Mul_Excel_fd As FileDialog
Dim Con_Mul_Excel_sfd As FileDialog
Dim Con_Mul_Excel_spath As String
Dim Con_Mul_Excel_name As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Set Con_Mul_Excel_fd = Application.FileDialog(msoFileDialogFolderPicker)
Con_Mul_Excel_fd.AllowMultiSelect = False
Con_Mul_Excel_fd.Title = "Select the Folder for Your Excel Files"
If Con_Mul_Excel_fd.Show <> -1 Then Exit Sub
Con_Mul_Excel_path = Con_Mul_Excel_fd.SelectedItems(1) & "\"
Set Con_Mul_Excel_sfd = Application.FileDialog(msoFileDialogFolderPicker)
Con_Mul_Excel_sfd.AllowMultiSelect = False
Con_Mul_Excel_sfd.Title = "Select Destination Folder"
If Con_Mul_Excel_sfd.Show <> -1 Then Exit Sub
Con_Mul_Excel_spath = Con_Mul_Excel_sfd.SelectedItems(1) & "\"
Con_Mul_Excel_file = Dir(Con_Mul_Excel_path & "*.xls*")
Do While Con_Mul_Excel_file <> ""
Set Con_Mul_Excel = Workbooks.Open(Filename:=Con_Mul_Excel_path & Con_Mul_Excel_file)
Con_Mul_Excel_name = Con_Mul_Excel_spath & Left(Con_Mul_Excel_file, InStr(1, Con_Mul_Excel_file, ".") - 1) & ".csv"
Con_Mul_Excel.SaveAs Filename:=Con_Mul_Excel_name, FileFormat:=xlCSV
Con_Mul_Excel.Close savechanges:=False
Con_Mul_Excel_file = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub- จากนั้นปิดหน้าต่าง
- หลังจากนั้น ไปที่ ดู แท็บ> มาโคร (ดับเบิลคลิก)
- หลังจากคลิก ดูมาโคร เลือกมาโครที่คุณเพิ่งสร้างขึ้น ชื่อที่นี่คือ convert_Excel-to CSV จากนั้นคลิก เรียกใช้
- หลังจากคลิก เรียกใช้ คุณจะเห็นว่าหน้าต่างเบราว์เซอร์ใหม่จะเปิดขึ้น และจากหน้าต่างนั้น คุณจะต้องเลือกโฟลเดอร์ที่เก็บไฟล์ Excel หลายไฟล์ของคุณ เลือกโฟลเดอร์แล้วคลิก ตกลง
- จากนั้นอีกหน้าต่างหนึ่งจะเปิดขึ้นเพื่อสอบถามตำแหน่งของ CSV ไฟล์หลังจากแปลงจากไฟล์ Excel แล้ว เลือกโฟลเดอร์ปลายทางแล้วคลิก ตกลง ต่อจากนี้
- ถัดไป คุณจะสังเกตเห็นไอคอนการโหลดแบบหมุนเวียน หลังจากนี้ ให้ตรวจสอบโฟลเดอร์ปลายทางสำหรับ CSV . ที่แปลงแล้ว ไฟล์.
- ในโฟลเดอร์ปลายทาง คุณจะสังเกตเห็นว่าทั้งสามแปลงเป็น CSV ไฟล์อยู่ที่นั่นและนามสกุลไฟล์แสดงเป็น CSV .
- คลิกที่ ชุดข้อมูล_1 เพื่อการตรวจสอบ
- หลังจากคลิกไฟล์ คุณจะสังเกตเห็นว่าไฟล์เปิดและแสดงเป็น CSV ไฟล์แทนที่จะเป็นไฟล์ Excel
- ที่ยืนยันว่าการแปลงสำเร็จ
- คลิกที่ ชุดข้อมูล_2 เพื่อการตรวจสอบ
- หลังจากคลิกไฟล์ คุณจะสังเกตเห็นว่าไฟล์เปิดและแสดงเป็น CSV ไฟล์แทนที่จะเป็นไฟล์ Excel
- ที่ยืนยันว่าการแปลงสำเร็จ
- คลิกที่ ชุดข้อมูล_3 เพื่อการตรวจสอบ
- หลังจากคลิกไฟล์ คุณจะสังเกตเห็นว่าไฟล์เปิดและแสดงเป็น CSV ไฟล์แทนที่จะเป็นไฟล์ Excel
- ที่ยืนยันว่าการแปลงสำเร็จ
อ่านเพิ่มเติม:วิธีแปลงไฟล์ Excel เป็นรูปแบบ CSV (5 วิธีง่ายๆ)
2. รวมไฟล์ Excel หลายไฟล์และแปลงเป็น CSV
เราจะรวมไฟล์ Excel หลายไฟล์ไว้ในสมุดงานเดียวเป็นแผ่นงาน แล้วส่งออกแผ่นงานเหล่านั้นเป็น CSV individual แต่ละรายการ ไฟล์.
ขั้นตอน
- ขั้นแรก ไปที่ Developer แท็บ จากนั้นคลิก Visual Basic
- จากนั้นคลิก แทรก> โมดูล
- ใน โมดูล ให้กรอกรหัสต่อไปนี้
Sub Combine_Excel_Files()
Dim fnList, fnCurFile As Variant
Dim cFiles, cSheets As Integer
Dim wkCurSheet As Worksheet
Dim wbCurBook, wbSrcBook As Workbook
fnList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
If (vbBoolean <> VarType(fnList)) Then
If (UBound(fnList) > 0) Then
cFiles = 0
cSheets = 0
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set wbCurBook = ActiveWorkbook
For Each fnCurFile In fnList
cFiles = cFiles + 1
Set wbSrcBook = Workbooks.Open(Filename:=fnCurFile)
For Each wkCurSheet In wbSrcBook.Sheets
cSheets = cSheets + 1
wkCurSheet.Copy after:=wbCurBook.Sheets(wbCurBook.Sheets.Count)
Next
wbSrcBook.Close SaveChanges:=False
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Worked on " & cFiles & " files" & vbCrLf & "Joined " & cSheets & " worksheets", Title:="Merging Multiple Excel Files"
End If
Else
MsgBox "No File is Selected", Title:="Merging Multiple Excel files"
End If
End Sub- จากนั้นปิดหน้าต่าง
- หลังจากนั้น ไปที่ ดู แท็บ> มาโคร (ดับเบิลคลิก)
- หลังจากคลิก ดูมาโคร เลือกมาโครที่คุณเพิ่งสร้างขึ้น ชื่อที่นี่คือ Combine_Excel_Files . จากนั้นคลิก เรียกใช้
- หลังจากนั้น หน้าต่างเบราว์เซอร์ไฟล์ใหม่จะเปิดขึ้น และจากหน้าต่างนั้น คุณจะต้องเลือกไฟล์ที่คุณต้องการรวมเป็นไฟล์ Excel ไฟล์เดียว
- เลือกไฟล์และคลิก เปิด
- หลังจากคลิก เปิด คุณจะสังเกตเห็นว่ามีการโหลดหน้าจอทีละแผ่นสำหรับแต่ละแผ่นงาน หลังจากนั้นครู่หนึ่ง หน้าต่างด้านล่างจะปรากฏขึ้นพร้อมกับข้อความต่อไปนี้
- จากนั้น คุณจะเห็นเวิร์กบุ๊ก Excel ที่แตกต่างกันสามเวิร์กบุ๊กถูกโหลดลงในเวิร์กบุ๊ก Excel ที่ใช้งานอยู่เป็นเวิร์กชีตแต่ละรายการ
- ถัดไป ไปที่ ผู้พัฒนา แท็บ จากนั้นคลิก Visual Basic
- จากนั้นคลิก แทรก> โมดูล
- ใน โมดูล ให้กรอกรหัสต่อไปนี้
Sub Excel_TO_CSV()
Dim wrsh As Worksheet
Dim excsv As String
For Each wrsh In Application.ActiveWorkbook.Worksheets
wrsh.Copy
excsv = CurDir & "\" & wrsh.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename:=excsv, _
FileFormat:=xlCSV, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub- จากนั้นปิดหน้าต่าง
- หลังจากนั้น ไปที่ ดู แท็บ> มาโคร (ดับเบิลคลิก)
- หลังจากคลิก ดูมาโคร เลือกมาโครที่คุณเพิ่งสร้างขึ้น ชื่อที่นี่คือ Excel_TO_CSV . จากนั้นคลิก เรียกใช้
- หลังจากคลิกเรียกใช้ จะมีช่วงเวลาของขั้นตอนการโหลดในเวิร์กชีต
- จากนั้น คุณต้องมีโฟลเดอร์เอกสารไฟล์ในคอมพิวเตอร์ของคุณ ในไดเรกทอรีนี้ คุณจะเห็น CSV . ที่แปลงแล้ว ไฟล์.
- คุณจะสังเกตเห็นว่านามสกุลไฟล์ของไฟล์เหล่านี้แสดงใน CSV รูปแบบ
- เปิด ชุดข้อมูล_1 แล้วคุณจะสังเกตเห็นว่าไฟล์อยู่ใน CSV และแปลงจากเวิร์กชีต Excel
อ่านเพิ่มเติม:วิธีแปลง Excel เป็น CSV โดยไม่ต้องเปิด (4 วิธีง่ายๆ)
3. การใช้เครื่องมือแปลงออนไลน์
หากคุณมีการเข้าถึงแบบออนไลน์ นี่อาจเป็นวิธีที่ง่ายที่สุดในการแปลงไฟล์ Excel เป็น CSV รูปแบบ. คุณเพียงแค่ต้องอัปโหลดไฟล์ที่จำเป็นแล้วคลิกแปลง หลังจากเสร็จสิ้นการแปลง คุณเพียงแค่ต้องดาวน์โหลดไฟล์ไปยังคอมพิวเตอร์ของคุณ
ขั้นตอน
- ไปที่ X LSX (EXCEL) เป็น CSV (ออนไลน์และฟรี) — Convertio . นี่เป็นตัวแปลงออนไลน์ที่ดีมากในการแปลงแผ่นงาน Excel หลายแผ่นเป็น CSV รูปแบบ
- เลือกรูปแบบอินพุตและรูปแบบเอาต์พุตของไฟล์ รูปแบบอินพุตจะเป็น XLSX จากนั้นเลือกรูปแบบเอาต์พุต CSV .
- ถัดไป บนเว็บไซต์ คลิกที่ เลือกไฟล์ ไอคอน.
- เมนูเรียกดูไฟล์จะเปิดขึ้น จากเมนูนั้น ให้เลือกไฟล์ที่ต้องการแปลงแล้วคลิก เปิด . ในกรณีนี้ เราเลือก ชุดข้อมูล_1 , Datset_2 , ชุดข้อมูล_3.
- ตอนนี้ทั้งสามรายการจะถูกอัปโหลดไปยังเว็บไซต์ และรูปแบบปลายทางจะแสดง CSV คลิก แปลง ต่อจากนี้
- หลังจากคลิก แปลง , กระบวนการแปลงจะเริ่มขึ้น
- จากนั้นคลิก ดาวน์โหลด ทางด้านขวาของแต่ละไฟล์เพื่อดาวน์โหลดไฟล์ที่แปลงแล้ว
- หลังจากดาวน์โหลดเสร็จแล้ว ให้เปิดโฟลเดอร์ดาวน์โหลดและสังเกตว่าไฟล์ Excel ทั้งหมดจะถูกแปลงเป็น CSV รูปแบบ
- เปิด ชุดข้อมูล_1 เพื่อการตรวจสอบ
- สังเกตว่าไฟล์นี้เปิดเป็น CSV ไฟล์. นั่นหมายความว่าการแปลงสำเร็จ
อ่านเพิ่มเติม:วิธีแปลงไฟล์ Excel เป็น CSV โดยอัตโนมัติ (วิธีง่ายๆ 3 วิธี)
บทสรุป
โดยสรุปแล้ว คำถาม “วิธีแปลงไฟล์ Excel หลายไฟล์เป็น CSV ” มีคำตอบใน 3 วิธีที่แตกต่างกัน เราใช้ VBA . 2 แบบ แนวทางและวิธีการแปลงออนไลน์หนึ่งวิธี ในบรรดาวิธีการทั้งหมดที่ใช้ในที่นี้ การใช้วิธีการแปลงออนไลน์เป็นวิธีที่ง่ายกว่าในการทำและประหยัดเวลา VBA กระบวนการยังใช้เวลาน้อยลง แต่ต้องใช้ VBAก่อนหน้า - ความรู้ที่เกี่ยวข้อง วิธีการออนไลน์ไม่มีข้อกำหนดดังกล่าว
สำหรับปัญหานี้ มีการแนบสมุดงานที่เปิดใช้งานมาโครซึ่งคุณสามารถฝึกวิธีการเหล่านี้ได้
อย่าลังเลที่จะถามคำถามหรือข้อเสนอแนะใด ๆ ผ่านส่วนความคิดเห็น ข้อเสนอแนะใด ๆ สำหรับการปรับปรุง ExcelDemy ชุมชนจะได้รับการชื่นชมอย่างมาก
บทความที่เกี่ยวข้อง
- มาโครเพื่อแปลง Excel เป็นไฟล์ข้อความที่คั่นด้วยไพพ์ (3 วิธี)
- วิธีการแปลงไฟล์ Excel เป็นไฟล์ข้อความโดยใช้เครื่องหมายจุลภาค (3 วิธี)
- บันทึก Excel เป็น CSV ด้วยเครื่องหมายอัญประกาศคู่ (3 วิธีที่ง่ายที่สุด)
- [แก้ไขแล้ว!] Excel ไม่บันทึก CSV ด้วยเครื่องหมายจุลภาค (7 วิธีที่เป็นไปได้)
- แปลง Excel เป็นไฟล์ CSV ที่คั่นด้วยจุลภาค (2 วิธีง่ายๆ)
