SQL VBA查询仅读取纯数字字段，无法识别含字母字段求助

你的问题核心是OLEDB驱动的类型推断机制导致的：驱动会默认扫描前8行数据来判断字段类型，如果目标列前几行都是数字，驱动会将该列识别为数值类型，后续的文本内容就会被读取为空。以下是针对性的解决方法：

1. 修改连接字符串，添加IMEX=1参数 #

这是最直接的解决方案，强制驱动将混合类型的字段按文本处理。修改后的连接字符串如下：

connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Workbooks(1).FullName & _
";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;"""

IMEX=1的作用是开启“导入模式”，让驱动把包含混合类型的列识别为文本类型，避免非数值内容被丢弃。

2. 调整注册表的TypeGuessRows值（针对数据分布靠后的情况） #

如果你的文本数据出现在第8行之后，仅靠IMEX=1可能不够，需要修改驱动的扫描行数设置：

• 打开注册表编辑器，定位到对应路径（根据Office版本调整，16对应Office2016及以上）：
  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Access Connectivity Engine\Engines\Excel
  （64位系统需查找Wow6432Node下的对应路径）
• 修改TypeGuessRows的值为0，表示驱动会扫描所有行来判断字段类型。

3. 临时调整数据源格式（应急方案） #

如果无法修改注册表，可以在TEMP工作表的目标列最上方插入一行，输入一个文本值（比如"TEXT_PLACEHOLDER"），确保驱动扫描时先识别到文本类型，读取完成后再删除这行临时数据。

修改后的完整代码 #

Sub sql_group()
    Dim connection As New ADODB.connection
    Dim rs As New ADODB.Recordset
    Dim sh As Worksheet, SQLQuery As String
    Dim i As Integer ' 补充变量声明，避免隐式类型

    Set sh = ThisWorkbook.Worksheets("Sheet1")

    ' 带IMEX=1的连接字符串
    connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Workbooks(1).FullName & _
    ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;"""

    SQLQuery = "Select * from [TEMP$]"
    rs.Open SQLQuery, connection

    With sh
        .Cells.ClearContents
        ' 写入表头
        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1).Value = rs.Fields(i).Name
        Next i
        ' 写入查询结果
        .Range("A2").CopyFromRecordset rs
    End With

    ' 清理资源
    rs.Close
    connection.Close
    Set rs = Nothing
    Set connection = Nothing
End Sub

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