Excel VBA：IMEX=1未按预期将所有记录视为文本的问题排查

有一个大型Excel源文件，首列Code以数值数据为主，但包含少量文本格式单元格。使用ADO连接读取时，尽管连接字符串设置了IMEX=1，但因前13条记录均为纯数值，OLEDB驱动判定该列主导类型为数值，导致少数文本单元格读取后变为空值。需求是让Code列所有记录均被识别为文本类型，不受主导类型影响。

方法1：强制驱动扫描所有行+注册表配置 #

• 修改连接字符串，添加TypeGuessRows=0，让驱动扫描全部行判断列类型，同时保留IMEX=1：

  strConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" & strFile & _
              """;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1;TypeGuessRows=0"";"
  

• 修改对应注册表项：
  定位到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\[Office版本号]\Access Connectivity Engine\Engines\Excel（如Office 2016对应16.0），将TypeGuessRows设为0，ImportMixedTypes设为Text。

  32位系统需在Wow6432Node路径下查找，修改注册表需管理员权限。

方法2：SQL查询中强制转换类型（推荐，无需改系统） #

直接在SELECT语句中将Code列强制转为文本，绕过驱动的自动类型判断：

strSQL = "SELECT CStr([Code]) AS Code FROM [Payments$]"

此方法无需修改系统配置，兼容性更强，适合无法操作目标机器注册表的场景。

方法3：修改源Excel列格式 #

提前将Excel中Code列的单元格格式设置为文本，保存后重新读取。注意纯数值单元格需双击触发格式生效，适合可修改源文件的场景。

Sub RetrieveDataUsingADO()
    Dim strFile As String
    Dim strConnect As String
    Dim strSQL As String
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset

    strFile = ThisWorkbook.Path & "/Data.xlsx"

    strConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" & strFile & _
                """;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
    
    cnn.Open ConnectionString:=strConnect
    
    ' 强制转换Code列为文本
    strSQL = "SELECT CStr([Code]) AS Code FROM [Payments$]"

    rst.Open strSQL, cnn, adOpenKeyset, adLockReadOnly

    Do Until rst.EOF
        Debug.Print rst.Fields("Code").Value
        rst.MoveNext
    Loop

    rst.Close
    cnn.Close
End Sub

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