Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Tên đầy đủ của CSV là Comma Separated Value (Giá Trị Phân Cách Bằng Dấu Phẩy). Nghĩa là các giá trị trong CSV chỉ được phân tách bằng dấu phẩy. Đây là định dạng dữ liệu thiết yếu trong quản trị cơ sở dữ liệu. Chúng ta cũng dùng Excel trong nhiều dự án quản lý dữ liệu. Vì vậy, trao đổi dữ liệu giữa hai định dạng này là điều khá bình thường. Mặc dù chúng ta dễ dàng chuyển đổi file CSV sang Excel dùng tính năng Text to Column, nhưng đến nay chưa có phương pháp trực tiếp nào tồn tại để chuyển đổi nhiều Excel sang CSV. Bạn cần dùng VBA hoặ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 file Excel sang CSV được thảo luận ở đây với giải thích đầy đủ.

Tải các sổ làm việc thực hành dưới đây.

3 Cách Phù Hợp Chuyển Đổi Nhiều File Excel Sang CSV

Với mục đích trình diễn, chúng ta sẽ dùng tập dữ liệu sau, khá dễ hiểu. Chúng ta có Ngày Mua, Khu Vực, Sản Phẩm, và Số Lượng làm tiêu đề bảng.

1. Nhúng VBA Để Chuyển Đổi Nhiều File Excel Sang CSV

Dùng một VBA Macro đơn giản có thể giảm mạnh thời gian để chuyển đổi nhiều file Excel sang CSV định dạng. Phương pháp này sẽ trực tiếp tải file Excel và chuyển đổi chúng sang file định dạng CSV.

Các Bước

Trước tiên, vào tab Developer , sau đó nhấn Visual Basic.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau đó nhấn Insert > Module.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Trong cửa sổ Module , nhập code 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 đó, vào tab View > Macros(Nhấn đúp).

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau khi nhấn View Macros, chọn macro bạn vừa tạo. Tên ở đây là convert_Excel-to CSV. Sau đó nhấn Run.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau khi nhấn Run, bạn sẽ thấy cửa sổ trình duyệt mới mở ra, và từ cửa sổ đó, bạn cần chọn thư mục nơi chứa nhiều file Excel của bạn, chọn thư mục và nhấn OK.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau đó lại một cửa sổ khác mở ra hỏi vị trí file CSV sau khi chuyển từ file Excel. Chọn thư mục đích và nhấn OK sau này.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Tiếp theo, bạn sẽ thấy biểu tượng tải xoay tròn. Sau này kiểm tra thư mục đích cho các file CSV đã chuyển đổi.
Trong thư mục đích, bạn sẽ thấy cả ba file CSV đã chuyển đổi ở đó và phần mở rộng file hiển thị là CSV.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Nhấn vào Dataset_1 để kiểm tra.
Sau khi nhấn file bạn sẽ thấy file mở và hiển thị như file CSV thay vì file Excel.
Điều đó khẳng định việc chuyển đổi thành công.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Nhấn vào Dataset_2 để kiểm tra.
Sau khi nhấn file bạn sẽ thấy file mở và hiển thị như file CSV thay vì file Excel.
Điều đó khẳng định việc chuyển đổi thành công.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Nhấn vào Dataset_3 để kiểm tra.
Sau khi nhấn file bạn sẽ thấy file mở và hiển thị như file CSV thay vì file Excel.
Điều đó khẳng định việc chuyển đổi thành công.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Đọc thêm: Cách Chuyển Đổi File Excel Sang Định Dạng CSV (5 Cách Dễ Dàng)

2. Kết Hợp Nhiều File Excel Và Chuyển Đổi Chúng Sang CSV

Chúng ta sẽ kết hợp vài file Excel hoàn toàn vào một sổ làm việc đơn lẻ như các trang tính. Sau đó xuất các trang tính đó ra file CSV riêng lẻ.

Các Bước

Trước tiên, vào tab Developer , sau đó nhấn Visual Basic.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau đó nhấn Insert > Module.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Trong cửa sổ Module , nhập code 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 đó, vào tab View > Macros(Double click).

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau khi nhấn View Macros, chọn macro bạn vừa tạo. Tên ở đây là Combine_Excel_Files. Sau đó nhấn Run.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau đó, cửa sổ trình duyệt file mới mở ra, và từ cửa sổ đó, bạn cần chọn file bạn muốn gộp vào một file Excel đơn lẻ.
Chọn file và nhấn Open.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau khi nhấn Open, bạn sẽ thấy màn hình tải lần lượt cho từng trang tính. Sau vài phút, cửa sổ dưới sẽ xuất hiện với thông báo sau.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau đó, bạn sẽ thấy ba file Excel khác nhau giờ đã được tải vào sổ làm việc Excel hoạt động như các trang tính riêng lẻ.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Tiếp theo, vào tab Developer , sau đó nhấn Visual Basic.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau đó nhấn Insert > Module.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Trong cửa sổ Module , nhập code 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 đó, vào tab View > Macros(Double Click).

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau khi nhấn View Macros, chọn macro bạn vừa tạo. Tên ở đây là Excel_TO_CSV. Sau đó nhấn Run.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Sau khi chạy, sẽ có lúc tải trong trang tính.
Sau đó bạn cần thư mục tài liệu file trên máy tính. Trong thư mục này, bạn sẽ thấy các file CSV đã chuyển đổi.
Bạn sẽ nhận thấy phần mở rộng file của các file này hiển thị định dạng CSV.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Mở Dataset_1, Sau đó bạn sẽ thấy file ở định dạng CSV và đã chuyển đổi từ trang tính Excel.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Đọc thêm: Cách Chuyển Đổi Excel Sang CSV Không Mở File (4 Phương Pháp Dễ Dàng)

3. Tận 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 file Excel sang định dạng CSV. Bạn chỉ cần tải lên file cần thiết và nhấn chuyển đổi. Sau khi hoàn thành chuyển đổi, bạn chỉ cần tải file về máy tính.

Các Bước

Đến XLSX (EXCEL) to CSV (Online & Free) — Convertio. Đây là trình chuyển đổi trực tuyến rất tốt để chuyển nhiều trang tính Excel sang định dạng CSV.
Chọn định dạng đầu vào và đầu ra của file. Ở đây định dạng đầu vào là XLSX, sau đó chọn định dạng đầu ra CSV.
Tiếp theo, trên trang web nhấn vào biểu tượng Choose Files. .

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Menu duyệt file sẽ mở, từ menu đó chọn file cần chuyển đổi và nhấn Open. Trong trường hợp này, chúng ta chọn Dataset_1, Datset_2, Dataset_3.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Cả ba file sẽ được tải lên trang web, và định dạng đích sẽ hiển thị CSV Nhấn Convert sau này.

Sau khi nhấn Convert, quá trình chuyển đổi sẽ bắt đầu.
Sau đó nhấn Download ở bên phải mỗi file để tải file đã chuyển đổi.

Sau khi tải xong, mở thư mục tải xuống và thấy tất cả file Excel giờ đã chuyển sang định dạng CSV .

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Mở Dataset_1 để kiểm tra.
Nhận thấy file giờ mở như file CSV. Nghĩa là chuyển đổi thành công.

Chuyển Đổi Nhiều File Excel Sang CSV Không Phiền Toái: 3 Phương Pháp Chứng Minh

Đọc thêm: Cách Chuyển Đổi File Excel Sang CSV Tự Động (3 Phương Pháp Dễ Dàng)

Kết Luận

Tóm lại, câu hỏi “làm sao chuyển nhiều file Excel thành CSV ” được trả lời ở đây theo 3 cách khác nhau. Chúng ta dùng 2 cách tiếp cận VBA khác nhau và một phương pháp chuyển đổi trực tuyến. Trong tất cả phương pháp dùng ở đây, dùng phương pháp chuyển đổi trực tuyến là dễ nhất và tiết kiệm thời gian. Quy trình VBA cũng ít tốn thời gian hơn nhưng yêu cầu kiến thức VBA trước. Phương pháp trực tuyến không có yêu cầu như vậy.

Đối với vấn đề này, một sổ làm việc bật macro được đính kèm nơi bạn có thể thực hành các phương pháp này.

Thoải mái đặt bất kỳ câu hỏi hoặc phản hồi nào qua phần bình luận. Bất kỳ đề xuất nào để cải thiện cộng đồng ExcelDemy sẽ được trân trọng cao.

Các Bài Viết Liên Quan

Macro Chuyển Đổi Excel Sang File Văn Bản Phân Cách Dấu Gạch Dọc (3 Phương Pháp)
Cách Chuyển Đổi File Excel Sang File Văn Bản Với Dấu Phân Cách 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 Với Dấu Phẩy (7 Giải Pháp Có Thể)
Chuyển Đổi Excel Sang File CSV Phân Cách Phẩy (2 Cách Dễ Dàng)