XIN NHỜ MỌI NGƯỜI KIỂM TRA LỖI KHI DÙNG ADO LẤY DỮ LIỆU TỪ ĐUÔI XLSB

[khanhhero]

Em có viết code để update dữ liệu từ file con vào file tổng và bị lỗi với file xlsb, nếu save as thành xlsm thì nó vẫn chạy bình thường. Nhờ mọi người xem thử giúp em với ạ.
Em xin cám ơn mọi người.

Sub test()
'On Error Resume Next
Application.ScreenUpdating = False
Dim sArr, dArr, dArr1
Dim i, j As Long
Dim v As String, Cnn As Object, lrs As Object

cFileName = ThisWorkbook.Path & "\" & "TEST.xlsb"

Set Cnn = CreateObject("ADODB.Connection")
v = Application.Version
With Sheet3
Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
";Data Source=" & cFileName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
Set lrs = Cnn.Execute("SELECT * FROM [DATAGIAODICH$A3:AU1000000] WHERE PERIOD <> NULL")
.Range("A1048576").End(xlUp).Offset(1, 0).CopyFromRecordset lrs
lrs.Close
'---------------------------------------------------------------------------------------------------------------

Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
End With
End Sub

 

[khanhhero]

E copy sang máy khác thì chạy, và save as thành file khác và chuyển lại máy em nó lại chạy. Như vậy là bộ office của em bị lỗi rồi. hic

 

[HeSanbi]

Bạn thử sửa lại đoạn: Dim v% và v <> "8.0" thành v > 8

 

[befaint]

.Range("A" & Rows.count).End(xlUp)

Luôn nhớ 65536 <> 1048576.