Dạng đầy đủ của CSV là Giá trị được Phân tách bằng Dấu phẩy. Điều đó có nghĩa là giá trị t trong CSV chỉ được phân tách bằng dấu phẩy. Đây là một định dạng dữ liệu cần thiết trong quản lý cơ sở dữ liệu. Chúng tôi cũng sử dụng Excel trong nhiều dự án quản lý dữ liệu. Vì vậy việc trao đổi dữ liệu giữa hai định dạng này là khá bình thường. Mặc dù chúng tôi có thể dễ dàng chuyển đổi CSV định dạng tệp sang Excel bằng cách sử dụng tính năng văn bản thành cột, để chuyển đổi nhiều Excel thành CSV không có phương pháp trực tiếp nào tồn tại cho đến nay. Bạn cần sử dụng VBA hoặc các công cụ trực tuyến cho mục đích này. Cách bạn có thể chuyển đổi nhiều tệp Excel thành CSV được thảo luận ở đây với một lời giải thích đầy đủ.
Tải xuống các sách bài tập thực hành này bên dưới.
3 cách thích hợp để chuyển đổi nhiều tệp Excel sang CSV
Với mục đích trình diễn, chúng tôi sẽ sử dụng tập dữ liệu sau, khá dễ hiểu. Chúng tôi có Ngày mua , Vùng , Sản phẩm và Số lượng làm tiêu đề bảng.
1. Nhúng VBA để chuyển đổi nhiều tệp Excel sang CSV
Sử dụng VBA Macro đơn giản có thể giảm đáng kể thời gian để chuyển đổi nhiều tệp Excel sang CSV định dạng. Phương pháp này sẽ trực tiếp tải các tệp Excel và sau đó chuyển đổi chúng thành CSV định dạng tệp.
Các bước
- Trước tiên, hãy chuyển đến Nhà phát triển , sau đó nhấp vào Visual Basic.
- Sau đó, nhấp vào Chèn > Mô-đun.
- Trong Mô-đun cửa sổ, nhập mã sau.
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- Sau đó, đóng cửa sổ.
- Sau đó, đi tới Xem tab> Macro (Nhấp đúp).
- Sau khi nhấp vào Xem Macro, chọn macro mà bạn vừa tạo. Tên ở đây là convert_Excel-to CSV. Sau đó, nhấp vào Chạy.
- Sau khi nhấp vào Chạy, bạn sẽ thấy một cửa sổ trình duyệt mới sẽ mở ra và từ cửa sổ đó, bạn cần chọn thư mục lưu trữ nhiều tệp Excel của mình, chọn thư mục và nhấp vào OK.
- Sau đó, một cửa sổ khác sẽ mở ra hỏi vị trí của CSV sau khi chúng được chuyển đổi từ các tệp Excel. Chọn thư mục đích và nhấp vào OK sau cái này.
- Tiếp theo, bạn sẽ thấy biểu tượng tải tuần hoàn. Sau bước này, hãy kiểm tra thư mục đích cho CSV đã chuyển đổi tệp.
- Trong thư mục đích, bạn sẽ nhận thấy rằng cả ba CSV đã được chuyển đổi tệp ở đó và phần mở rộng tệp của chúng đang hiển thị dưới dạng CSV .
- Nhấp vào Tập dữ liệu_1 để kiểm tra.
- Sau khi nhấp vào tệp, bạn sẽ thấy tệp được mở và hiển thị dưới dạng CSV chứ không phải là tệp Excel.
- Điều đó khẳng định rằng chuyển đổi thành công.
- Nhấp vào Tập dữ liệu_2 để kiểm tra.
- Sau khi nhấp vào tệp, bạn sẽ thấy tệp được mở và hiển thị dưới dạng CSV chứ không phải là tệp Excel.
- Điều đó khẳng định rằng chuyển đổi thành công.
- Nhấp vào Tập dữ liệu_3 để kiểm tra.
- Sau khi nhấp vào tệp, bạn sẽ thấy tệp được mở và hiển thị dưới dạng CSV chứ không phải là tệp Excel.
- Điều đó khẳng định rằng chuyển đổi thành công.
Đọc thêm:Cách chuyển đổi tệp Excel sang định dạng CSV (5 cách dễ dàng)
2. Kết hợp nhiều tệp Excel và chuyển đổi chúng sang CSV
Chúng tôi sẽ kết hợp một số tệp Excel hoàn toàn trong một sổ làm việc duy nhất dưới dạng trang tính. Và sau đó xuất các trang tính đó dưới dạng CSV riêng lẻ tệp.
Các bước
- Trước tiên, hãy chuyển đến Nhà phát triển , sau đó nhấp vào Visual Basic .
- Sau đó, nhấp vào Chèn > Mô-đun.
- Trong Mô-đun cửa sổ, nhập mã sau.
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- Sau đó, đóng cửa sổ.
- Sau đó, đi tới Xem tab> Macro (Nhấp đúp).
- Sau khi nhấp vào Xem Macro, chọn macro mà bạn vừa tạo. Tên ở đây là Combine_Excel_Files . Sau đó, nhấp vào Chạy.
- Sau đó, một cửa sổ trình duyệt tệp mới sẽ mở ra và từ cửa sổ đó, bạn cần chọn các tệp mà bạn muốn hợp nhất thành một tệp Excel.
- Chọn tệp và nhấp vào Mở.
- Sau khi nhấp vào Mở , bạn sẽ nhận thấy rằng có các màn hình đang tải lần lượt cho mỗi trang tính. Sau một lúc, cửa sổ bên dưới sẽ xuất hiện thông báo sau.
- Sau đó, bạn sẽ thấy ba sổ làm việc Excel khác nhau hiện đã được tải vào Sổ làm việc Excel đang hoạt động dưới dạng các trang tính riêng lẻ.
- Tiếp theo, chuyển đến Nhà phát triển , sau đó nhấp vào Visual Basic .
- Sau đó, nhấp vào Chèn > Mô-đun.
- Trong Mô-đun cửa sổ, nhập mã sau.
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- Sau đó, đóng cửa sổ.
- Sau đó, đi tới Xem tab> Macro (Nhấp đúp).
- Sau khi nhấp vào Xem Macro, chọn macro mà bạn vừa tạo. Tên ở đây là Excel_TO_CSV . Sau đó, nhấp vào Chạy.
- Sau khi nhấp vào chạy, sẽ có những khoảnh khắc của giai đoạn tải trong trang tính.
- Sau đó, bạn cần thư mục tài liệu tệp trên máy tính của mình. Trong thư mục này, bạn sẽ thấy CSV được chuyển đổi tệp.
- Bạn sẽ nhận thấy rằng phần mở rộng tệp của những tệp này đang hiển thị trong CSV định dạng.
- Mở Tập dữ liệu_1 , Sau đó, bạn sẽ nhận thấy rằng tệp ở trong CSV và được chuyển đổi từ trang tính Excel.
Đọc thêm:Cách chuyển đổi Excel sang CSV mà không cần mở (4 phương pháp dễ dàng)
3. Sử dụng Công cụ Chuyển đổi Trực tuyến
Nếu bạn có quyền truy cập trực tuyến, đây có lẽ là cách dễ nhất để chuyển đổi tệp Excel thành CSV định dạng. Bạn chỉ cần tải lên các tệp cần thiết và nhấp vào chuyển đổi. Sau khi hoàn tất quá trình chuyển đổi, bạn chỉ cần tải tệp xuống máy tính của mình.
Các bước
- Đi tới X LSX (EXCEL) sang CSV (Trực tuyến &Miễn phí) - Chuyển đổi . Đây là một công cụ chuyển đổi trực tuyến rất tốt để chuyển đổi nhiều trang tính Excel sang CSV định dạng.
- Chọn định dạng đầu vào và định dạng đầu ra của tệp. Ở đây, định dạng đầu vào sẽ là XLSX , sau đó chọn định dạng đầu ra CSV .
- Tiếp theo, Trên trang web, nhấp vào nút Chọn tệp. biểu tượng.
- Trình đơn duyệt tệp sẽ mở ra, từ trình đơn đó, hãy chọn các tệp cần được chuyển đổi và nhấp vào Mở . Trong trường hợp này, chúng tôi đã chọn Tập dữ liệu_1 , Datset_2 , Tập dữ liệu_3.
- Giờ đây, cả ba trong số chúng sẽ được tải lên trang web và định dạng đích của chúng sẽ hiển thị CSV Nhấp vào Chuyển đổi sau cái này.
- Sau khi nhấp vào Chuyển đổi , quá trình chuyển đổi sẽ bắt đầu.
- Sau đó, nhấp vào Tải xuống ở bên phải của mỗi tệp để tải xuống các tệp đã chuyển đổi.
- Sau khi hoàn tất quá trình tải xuống, hãy mở thư mục tải xuống và nhận thấy rằng tất cả các tệp Excel hiện đã được chuyển đổi thành CSV định dạng.
- Mở Tập dữ liệu_1 để kiểm tra.
- Lưu ý rằng tệp hiện đang được mở dưới dạng CSV tập tin. Điều đó có nghĩa là chuyển đổi thành công.
Đọc thêm:Cách tự động chuyển đổi tệp Excel sang CSV (3 phương pháp dễ dàng)
Kết luận
Tóm lại, câu hỏi “làm thế nào để chuyển đổi nhiều tệp Excel thành CSV ”Được trả lời ở đây theo 3 cách khác nhau. Chúng tôi đã sử dụng 2 VBA khác nhau phương pháp tiếp cận và một phương pháp chuyển đổi trực tuyến . Trong số tất cả các phương pháp được sử dụng ở đây, sử dụng phương pháp chuyển đổi trực tuyến là dễ thực hiện và tiết kiệm thời gian nhất. VBA quá trình này cũng tốn ít thời gian hơn nhưng yêu cầu VBA trước -các kiến thức liên quan. Phương thức trực tuyến không có yêu cầu như vậy.
Đối với sự cố này, một sổ làm việc hỗ trợ macro được đính kèm để bạn có thể thực hành các phương pháp này.
Vui lòng đặt bất kỳ câu hỏi hoặc phản hồi thông qua phần bình luận. Bất kỳ đề xuất nào để cải tiến ExcelDemy cộng đồng sẽ được đánh giá cao.
Các bài viết liên quan
- Macro để chuyển đổi Excel thành tệp văn bản được phân cách bằng đường ống (3 phương pháp)
- Cách chuyển đổi tệp Excel thành tệp văn bản với dấu phân cách bằng dấu phẩy (3 phương pháp)
- Lưu Excel dưới dạng CSV với Dấu ngoặc kép (3 Phương pháp Đơn giản nhất)
- [Đã sửa!] Excel Không lưu CSV bằng Dấu phẩy (7 Giải pháp Có thể có)
- Chuyển đổi Excel sang Tệp CSV được phân tách bằng dấu phẩy (2 cách dễ dàng)