Chuyển file CSV sang file Excel hàng loạt

1. Chuyển file CSV sang file XLS hàng loạt

Sub CSVtoXLS()
 'UpdatebyExtendoffice20170814
     Dim xFd As FileDialog
     Dim xSPath As String
     Dim xCSVFile As String
     Dim xWsheet As String
     Application.DisplayAlerts = False
     Application.StatusBar = True
     xWsheet = ActiveWorkbook.Name
     Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
     xFd.Title = "Select a folder:"
     If xFd.Show = -1 Then
         xSPath = xFd.SelectedItems(1)
     Else
         Exit Sub
     End If
     If Right(xSPath, 1) <> "" Then xSPath = xSPath + ""
     xCSVFile = Dir(xSPath & "*.csv")
     Do While xCSVFile <> ""
         Application.StatusBar = "Converting: " & xCSVFile
         Workbooks.Open Filename:=xSPath & xCSVFile
         ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
         ActiveWorkbook.Close
         Windows(xWsheet).Activate
         xCSVFile = Dir
     Loop
     Application.StatusBar = False
     Application.DisplayAlerts = True
 End Sub

2. Chuyển file CSV sang file XLSX hàng loạt

Sub CSVTOXLSX()
 'UpdatebyExtendoffice20170814
 Dim xFd As FileDialog
 Dim xSPath As String
 Dim xCSVFile As String
 Dim xWsheet As String
 Application.DisplayAlerts = False
 Application.StatusBar = True
 xWsheet = ActiveWorkbook.Name
 Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
 xFd.Title = "Select a folder:"
 If xFd.Show = -1 Then
 xSPath = xFd.SelectedItems(1)
 Else
 Exit Sub
 End If
 If Right(xSPath, 1) <> "" Then xSPath = xSPath + ""
 xCSVFile = Dir(xSPath & "*.csv")
 Do While xCSVFile <> ""
 Application.StatusBar = "Converting: " & xCSVFile
 Workbooks.Open Filename:=xSPath & xCSVFile
 ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".XLXS", vbTextCompare), xlWorkbookDefault
 ActiveWorkbook.Close
 Windows(xWsheet).Activate
 xCSVFile = Dir
 Loop
 Application.StatusBar = False
 Application.DisplayAlerts = True
 End Sub

< /div>

Khi hoàn thành quá trình chuyển đổi và mở thư mục chứa file CSV bạn sẽ nhìn thấy các file XLXS được chuyển đổi sang.

3. Chuyển file CSV sang Excel online

Các công cụ chuyển đổi trực tuyến hiện nay cũng đã hỗ trợ chuyển nhiều file cùng lúc, thuận tiện cho người dùng khi làm việc. Có rất nhiều công cụ chuyển đổi định dạng file như Onlineconvertfree chẳng hạn.

Chúng ta truy cập vào link dưới đây để mở ngay phần chuyển đổi CSV sang XLS. Nếu muốn đổi sang XLXS thì bạn chỉ cần thay đổi lại mục chuyển đổi định dạng là được. Sau đó nhấn Choose File để tải các file CSV lên.

https://onlineconvertfree.com/convert-format/csv-to-xls/

Cuối cùng nhấn Convert để tiến hành chuyển đổi là xong.

Như vậy chúng ta đã có các cách chuyển đổi hàng loạt file CSV sang file Excel rồi. Nếu bạn không rành về mã code VBA trong Excel thì có thể dùng các công cụ chuyển đổi online cũng rất tiện ích.

Chúc các bạn thực hiện thành công!

?TruongVu

Rate this post

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.