file xlsm nhưng câu lệnh sql chỉ chạy được 65536 dòng

[hoabattu3387]

Mình có 1 file .xlsm có dữ liệu ở sheet1 là 70614 dòng, mình thực hiện 1 lệnh query như sau:

Sub RoundedRectangle2_Click()
Dim cn As Object
Dim rcs As Object
Set cn = CreateObject("ADODB.Connection")
Set rcs = CreateObject("ADODB.recordset")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 macro;HDR=no;imex=1;"";")
With Sheet2
.[A2].CopyFromRecordset cn.Execute("select * from [sheet1$a1:a]")
End With

End Sub

tuy nhiên kết quả chỉ cho ra 65536 dòng. Nhờ các anh chị diễn đàn chỉ giúp vì sao lại không ra đủ 70614 dòng ạ?

 

[Hai Lúa Miền Tây]

Mình có 1 file .xlsm có dữ liệu ở sheet1 là 70614 dòng, mình thực hiện 1 lệnh query như sau:

Sub RoundedRectangle2_Click()
Dim cn As Object
Dim rcs As Object
Set cn = CreateObject("ADODB.Connection")
Set rcs = CreateObject("ADODB.recordset")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 macro;HDR=no;imex=1;"";")
With Sheet2
.[A2].CopyFromRecordset cn.Execute("select * from [sheet1$a1:a]")
End With

End Sub

tuy nhiên kết quả chỉ cho ra 65536 dòng. Nhờ các anh chị diễn đàn chỉ giúp vì sao lại không ra đủ 70614 dòng ạ?

Hãy thử chạy lần lượt 2 câu query sau rồi rút ra kết luận nhé:

1.

"select * from [sheet1$a1:a]"

2.

"select F1 from [sheet1$]"

 

[phuongtrannhat1409]

Anh Hai Lúa có thể giải thích cho em hiểu vì sao có sự khác biệt giữa 1. và 2. được không anh ?