Trang thông tin điện tử Công an Bắc Kạn

https://congan.backan.gov.vn

Cách chuyển file CSV sang Excel hàng loạt

Chỉ với vài thao tác đơn giản, chúng ta đã có thể chuyển hàng loạt file CSV sang Excel.

File CSV thường được sử dụng nhiều với dân kế toán do các cấu trúc hàm và lệnh đã thực hiện trước đó được giữ lại. Hiện tại file CSV đã có thể mở trên Excel, hay mở file CSV trên Google Sheets dễ dàng. Tuy nhiên file CSV khi làm việc trên Excel có thể gặp một số lỗi như lỗi tiếng Việt khi mở file CSV trong Excel chẳng hạn. Vì vậy có nhiều người muốn chuyển đổi file CSV sang file Excel để làm việc thuận tiện hơn.

Để chuyển file CSV sang định dạng Excel có nhiều cách thực hiện khác nhau. Nếu bạn muốn chuyển đổi hàng loạt file CSV sang Excel thì có thể tham khảo bài viết dưới đây của Quản trị mạng. Chỉ với vài thao tác đơn giản, chúng ta đã có ngay các file XLS hoặc XLSX Excel dễ dàng, mà không cần nhờ phần mềm hỗ trợ.

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

Bước 1:

Trước hết chúng ta sẽ nhóm các file CSV cần chuyển đổi sang định dạng XLS vào cùng 1 thư mục như hình dưới đây.

Cách chuyển file CSV sang Excel hàng loạt

Bước 2:

Tiếp đến người dùng mở Excel rồi nhấn vào tab Developer rồi nhấn tiếp vào Visual Basic.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 2

Bước 3:

Chuyển sang giao diện mới người dùng nhấn vào Insert rồi chọn Module để mở giao diện nhập mã code VBA trong Excel.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 3

Sau đó chúng ta paste mã code dưới đây vào giao diện trong Excel.

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

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 4

Bước 4:

Cuối cùng nhấn vào biểu tượng Run ở thanh công cụ bên trên như hình dưới đây để chạy code VBA.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 5

Lúc này hiển thị thư mục trên máy tính để chúng ta chọn folder chứa file CSV cần chuyển sang file Excel, nhấn OK. Ngay sau đó code VBA sẽ chạy và chuyển đổi file. Khi kết thúc quá trình chuyển đổi bạn mở thư mục file CSV đã lưu trước đó.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 6

Bước 5:

Kết quả chúng ta sẽ nhìn thấy các file XLS như hình dưới đây.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 7

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

Ngoài chuyển đổi CSV sang XLS như trên chúng ta cũng có thể chuyển file CSV sang XLSX dễ dàng. Trước hết bạn cũng mở trình soạn code VBA trên Excel rồi nhập đoạn mã code như dưới đây.

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

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 8

Sau đó nhấn vào nút Run để chạy code VBA.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 9

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.

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 10

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/

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 11

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

Cách chuyển file CSV sang Excel hàng loạt - Ảnh minh hoạ 12

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!

Nguồn tin: quantrimang.com

Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây