Cách chuyển đổi file CSV sang Excel (XLS, XLSX) hàng loạt

Định dạng CSV là định dạng lưu trữ bảng tính được dân văn phòng đặc biệt là kế toán khá ưa chuộng vì sự tiện lợi khi giữ nguyên các cấu trúc hàm, lệnh đã thực thi trước đó nhưng dung lượng lại khá lớn. ánh sáng.

Ngoài ra, định dạng CSV cũng có thể được sử dụng trong các ứng dụng Microsoft Excel, Google Sheests, Polaris Office, Libre Office, v.v.). để đọc và chỉnh sửa các tệp Excel tương tự.

Tuy nhiên, việc tải các tập tin CSV từ Internet về máy tính và thao tác trên Microsoft Excel đôi khi vẫn gặp một số lỗi, cũng như không sử dụng được hết các công cụ, hỗ trợ trên ứng dụng Excel.

Do đó, để các bạn thuận tiện khi sử dụng tệp CSV, hôm nay mình sẽ chia sẻ với các bạn một thủ thuật nhỏ trong chuyển đổi định dạng tệp CSV sang XLS hoặc XLSX hàng loạt ngay trên ứng dụng Excel với mã VBA.

Đọc thêm:

#đầu tiên. Chuyển đổi tệp CSV sang Excel bởi VBA (Định dạng XLS)

+ Bước 1: Đầu tiên, bạn mở ứng dụng Excel của mình. Tại đây, bạn chọn tab Developer => và nhấp vào Visual Basic. Hoặc bạn cũng có thể nhấn tổ hợp phím Alt + F11 để mở trình soạn thảo mã VBA.

Ghi chú: Nếu Excel của bạn không thấy tab Nhà phát triển, vui lòng xem lại cách thêm tab Nhà phát triển vào Excel!

+ Bước 2: Hộp thoại Microsoft Visual Basic for Applications mở. Ở đây bạn chọn menu Insert => sau đó bấm Module.

Và sao chép đoạn mã sau….

CSVtoXLS phụ ()
‘UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Làm mờ xWsheet thành chuỗi
Application.DisplayAlerts = Sai
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Đặt xFd = Application.FileDialog (msoFileDialogFolderPicker)
xFd.Title = “Chọn một thư mục:”
Nếu xFd.Show = -1 Thì
xSPath = xFd.SelectedItems (1)
Khác
Thoát Sub
EndIf
If Right (xSPath, 1) “” Then xSPath = xSPath + “”
xCSVFile = Dir (xSPath & “* .csv”)
Thực hiện trong khi xCSVFile “”
Application.StatusBar = “Chuyển đổi:” & xCSVFile
Workbooks.Open Filename: = xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, “.csv”, “.XLS”, vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows (xWsheet). Kích hoạt
xCSVFile = Dir
Vòng
Application.StatusBar = Sai
Application.DisplayAlerts = True
Kết thúc Sub

=>…. Và Dán vào hộp thoại Module1 (Code) => sau đó nhấn Runhoặc nhấn. Chìa khóa F5 để thực hiện.

+ Bước 3: Tiếp theo, hộp thoại Select a Folder xuất hiện, ở đây bạn tìm thấy thư mục chứa tệp CSV => chọn và nhấn OK cho Excel để chuyển đổi hàng loạt tệp.

+ Bước 4: Và đây là kết quả, các tệp XLS nằm trong Thư mục của tệp CSV như hình.

# 2. Chuyển đổi tệp CSV sang XLSX với mã VBA

Ngoài việc chuyển đổi các tệp CSV sang Excel 97-2003 như trên. Để chuyển đổi hàng loạt tệp CSV sang định dạng XLSX của Microsoft Excel 2007 trở lên, bạn cũng thực hiện tương tự.

Chỉ khác là thay đoạn mã bên trên bằng đoạn mã bên dưới => và bấm Run hoặc F5 trên bàn phím tại hộp thoại Microsoft Visual Basic for Applications chạy:

CSVtoXLSX phụ ()
‘UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Làm mờ xWsheet thành chuỗi
Application.DisplayAlerts = Sai
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Đặt xFd = Application.FileDialog (msoFileDialogFolderPicker)
xFd.Title = “Chọn một thư mục:”
Nếu xFd.Show = -1 Thì
xSPath = xFd.SelectedItems (1)
Khác
Thoát Sub
EndIf
If Right (xSPath, 1) “” Then xSPath = xSPath + “”
xCSVFile = Dir (xSPath & “* .csv”)
Thực hiện trong khi xCSVFile “”
Application.StatusBar = “Chuyển đổi:” & xCSVFile
Workbooks.Open Filename: = xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, “.csv”, “.XLSX”, vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows (xWsheet). Kích hoạt
xCSVFile = Dir
Vòng
Application.StatusBar = Sai
Application.DisplayAlerts = True
Kết thúc Sub

Sau đó chọn thư mục chứa các tệp CSV => sau đó nhấp vào OK để tiến hành Chuyển đổi.

Và chúng ta nhận được kết quả Chuyển đổi file CSV sang định dạng XLSX như hình bên dưới.

# 3. Cách chuyển đổi tệp CSV sang Excel trực tuyến

Ngoài cách sử dụng đoạn mã mà mình vừa hướng dẫn chi tiết ở trên, bạn cũng có thể sử dụng cách chuyển file CSV sang Excel bằng công cụ trực tuyến một cách nhanh chóng.

+ Bước 1: Bạn vào địa chỉ này: https://convertio.co/en/csv-xls/ => Sau đó nhấn nút Chọn tập tin để tải lên tệp CSV từ máy tính của bạn.

+ Bước 2: Sau đó, bạn nhấn nút Chuyển đổi => Sau khi chuyển đổi xong, bấm tải xuống là xong.

Nói chung, những trang web chuyển đổi trực tuyến này tôi nghĩ ai cũng có thể sử dụng một cách đơn giản. Quá trình thực hiện rất đơn giản chỉ cần tải file cần chuyển đổi lên => sau đó nhấn convert => và tải xuống file đã chuyển đổi là xong.

Mọi trang đều giống nhau!

Ngoài trang web trên, còn có một số trang web cũng hỗ trợ tính năng chuyển đổi CSV sang Excel trực tuyến khác, đó là:

• https://www.zamzar.com/convert/csv-to-xls/
• https://onlineconvertfree.com/en/convert-format/csv-to-xls/
• Vui lòng bổ sung thêm, nếu có.

#4. Phần kết

Được rồi, vậy là xong Và tôi vừa hướng dẫn bạn chi tiết hai mẹo trong việc áp dụng Mã VBA để thực hiện. chuyển đổi tệp CSV sang Excel (định dạng XLS hoặc XLSX) hàng loạt một cách nhanh chóng và hiệu quả.

Tại thời điểm này, hướng dẫn về cách chuyển đổi hàng loạt tệp CSV sang XLS hoặc XLSX trên Excel cũng sẽ bị tạm dừng. Hi vọng thủ thuật này sẽ hữu ích với mọi người.

Chúc may mắn.

CTV: Lương Trung – phanmemdownload.com