如何解决Excel中ADODB RecordSet因前8行空白返回空的问题

问题根源 #

ACE OLEDB驱动默认扫描前8行判断列的数据类型，若目标列前8行全空白，驱动会将该列识别为NULL类型，导致后续有数据的行无法被查询到。调整IMEX、Cursor参数无法解决本质问题，需从驱动的列类型识别逻辑入手。

解决方案 #

1. 修改注册表调整驱动扫描行数（最有效） #

ACE驱动的列类型判断行数由注册表项TypeGuessRows控制，默认值为8。将其改为0（表示扫描所有行）或足够大的数值（如1000），让驱动能识别到后续非空白行的数据类型：

• 32位系统注册表路径：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel
• 64位系统注册表路径：HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Jet\4.0\Engines\Excel
• 找到TypeGuessRows键，将值改为0（或所需行数），需管理员权限修改。

2. 优化连接字符串与SQL查询 #

• 强制启用导入模式（IMEX=1），让驱动将混合类型列按文本处理，避免因前8行空白导致类型识别错误；
• 在SQL语句中显式过滤空值，确保只返回有效数据行。

3. 修改后的代码示例 #

Sub GetRecordCount()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, StrSQL As String
    
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenStatic
    
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        ' 启用IMEX=1导入模式，优化类型识别逻辑
        .ConnectionString = "Data Source=" & ActiveWorkbook.FullName & ";" & _
        "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;Readonly=True"""
    End With
    cn.Open
                       
    Dim k As Variant
    ' 新增非空过滤条件，确保只返回有效数据行
    StrSQL = "select [BOOKNAME] From [BOOK DETAILS$A4:BN119] Where ([COUPONNUMBER]='ZFX' or [COUPONNUMBER]='ZDL') AND [COUPONNUMBER] IS NOT NULL"
    rs.Open StrSQL, cn
    k = CInt(Trim(rs.RecordCount))
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

注意事项 #

• 修改注册表后需重启Excel或电脑，设置才会生效；
• 若无法修改注册表（如无管理员权限），可临时在目标列前8行填充一个与后续数据同类型的占位值（比如文本"temp"），查询完成后再删除，也能绕过驱动的类型判断限制。

内容的提问来源于stack exchange，提问作者Dhay