Hỏi về Code Import dữ liệu (1 người xem)

[Cá ngừ F1]

Sau khi tham khảo code Import dữ liệu của thầy NDU để import dữ liệu.
Mọi người giải nén file về máy (để 2 file cùng folder), mở file import, click shape Import
Dữ liệu từ file 20140808 sẽ được cập nhật về sheet1 của file Import
Em có phát sinh 1 vấn đề sau.
Ô L5 của file 20140808 là số 18,344,945.00
Khi import sang file Import thì nó thành 18,344,945#00 (ở ô K2) -> không tính toán được
Trong khi các ô khác của file 20140808 cũng định dạng số mà không bị hiện tượng trên.
Mong các anh/chị hỗ trợ !!!

 

[Comet297]

Bạn áp dụng sai cấu trúc rồi thì kết quả cho ra vậy là chuẩn.

Với cách bạn dùng thì sử dụng tiêu đề là dòng số 5 đó. Bạn có nhận thấy rằng có những chữ F1,F2 tự nhiên sinh ra không?

Vậy chỉ cần sửa lại cấu trúc hàm Getdata cho đúng là được.

 

[Cá ngừ F1]

Bạn áp dụng sai cấu trúc rồi thì kết quả cho ra vậy là chuẩn.

Với cách bạn dùng thì sử dụng tiêu đề là dòng số 5 đó. Bạn có nhận thấy rằng có những chữ F1,F2 tự nhiên sinh ra không?

Vậy chỉ cần sửa lại cấu trúc hàm Getdata cho đúng là được.

Cảm ơn bạn!
Do mình xóa bớt dữ liệu đi và đối số hastitle để là true nên nó ra F1,2. Cái đó mình hiểu mà

 

[Cá ngừ F1]

Sau một vài thử nghiệm, ở code import dữ liệu
[GPECODE=vb]Sub Colect01()
Dim FileName As String, SheetName As String, RangeAddress As String
Dim Arr
FileName = ThisWorkbook.Path & "\20140808.xlsb"
RangeAddress = "B4:N5000"
Arr = GetData(FileName, SheetName, RangeAddress, True, False)
If IsArray(Arr) Then
ThisWorkbook.Sheets("sheet1").Range("A2").Resize(UBound(Arr, 1) + 1, _
UBound(Arr, 2) + 1).Value = Arr
End If
End Sub[/GPECODE]
Có 2 sự thay đổi:
RangeAddress = "B5:N5000" được thay bằng "B4:N5000" -> mở rộng lên trên một dòng
Arr = GetData(FileName, SheetName, RangeAddress, True, False) -> đã cho ra kết quả đúng.