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 Run
hoặ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
Ghi chú: Bài viết này có hữu ích cho bạn không? Đừng quên đánh giá bài viết, thích và chia sẻ nó với bạn bè và gia đình của bạn!
Đị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 Run
hoặ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
Ghi chú: Bài viết này có hữu ích cho bạn không? Đừng quên đánh giá bài viết, thích và chia sẻ nó với bạn bè và gia đình của bạn!