来自 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 sheet 当时限制为 65K 行。然后将连接字符串应用于 Excel 2007 年以后的 .xlsx 文件，其中每个 sheet 的最大行数超过 100 万。

较旧的连接字符串适用于较新的 .xlsx 文件，但当 sheet 上的行数超过旧的 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"之后我也去掉了一个不必要的;)

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

Incomplete Recordset from ADODB Connection

excel

vba

adodb

recordset

excel-2013