来自ADODB连接的记录集不完整

Question

我试图从包含80,000多行的工作表中检索数据并将这些值打印到工作表，但是当我创建一个记录集并查看其记录计数时，它仅包含16,492条记录。

我是ADODB连接的新手，所以我对问题所在感到困惑。

这是我的代码：

Sub testing()
    On Error Resume Next

    Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Const adCmdText = &H1

    Dim objCon As New ADODB.Connection
    Dim recSet As ADODB.Recordset

    Set objCon = CreateObject("ADODB.Connection")
    Set recSet = CreateObject("ADODB.Recordset")

    objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Users\nschneider\Desktop\Data Pulls_FY08 to Present_Companies 10, 20, 30, 40.xlsx;" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;"";"

    recSet.Open "Select * FROM [Data$]", _
        objCon, adOpenStatic, adLockOptimistic, adCmdText

    If Not recSet.EOF Then
        Sheets(2).Range("A2").CopyFromRecordset recSet
    End If

    '    Do Until objRecordset.EOF
    '        Wscript.Echo objRecordset.Fields.Item("Name"), _
    '            objRecordset.Fields.Item("Number")
    '        objRecordset.MoveNext
    '
    '    Loop
End Sub

我已经评论了Loop，因为这是我在以前的论坛上看到的。 不知道那是否是我所需要的。

Answer 1

您正在使用Excel 97-2003 .xls文件的连接字符串（特别是说“ Excel 8.0”的部分）。 那时的Excel工作表仅限于65K行。 然后，将连接字符串应用于Excel 2007及更高版本的.xlsx文件，其中每张纸的最大行数超过100万。

旧的连接字符串适用于更新的.xlsx文件，但是当工作表上的行数超过旧的最大65K时，我遇到了问题。 将连接字符串更新为.xlsx文件的正确字符串，看看是否有帮助：

objCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=C:\Users\nschneider\Desktop\Data Pulls_FY08 to Present_Companies 10, 20, 30, 40.xlsx;" & _
        "Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"

（我还删除了不必要的内容；“ HDR = Yes”之后）