Bằng đối tượng QueryTable của VBA excel ta lấy dữ liệu csv
'Đọc từng dòng file CSV Sub getCSV() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim strPath As String strPath = "D:VBAtestfile_dq.csv" Dim i, j As Long Dim strLine As String Dim arrLine As Variant 'Phân tách dấu phẩy và cất từng dòng dữ liệu vào mảng này Open strPath For Input As #1 'Open file Csv i = 1 ...
Đọc thêm![](/images/whatsappp.png)