VBA ADO查询无法获取含字母的数据问题求助

问题根源 #

ADO连接Excel时，默认会扫描列的前8行推断数据类型。如果目标列（比如你的xData列）同时包含纯数字和带字母的文本（如2023AE2023），ADO会将该列判定为数字类型，导致所有非数字格式的数据被读取为空值。

解决方案 #

核心是修改ADO连接字符串，添加IMEX=1参数强制将混合类型列视为文本，同时修正SQL语句的语法错误：

1. 调整连接字符串
   在连接字符串的Extended Properties中加入IMEX=1，示例如下：

   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   ' 针对Excel 2007及以上版本（.xlsx）的连接字符串
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\你的文件路径.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""
   

   • IMEX=1：强制将包含混合数据类型的列识别为文本，避免非默认类型数据丢失。
   • 若使用Excel 2003及以下版本（.xls），将Provider改为Microsoft.Jet.OLEDB.4.0，Extended Properties改为"Excel 8.0;HDR=YES;IMEX=1"。

2. 修正SQL语句错误
   原代码存在两处语法错误：

   • fromt应为from
   • where[case]需添加空格，改为WHERE [case] = 0
     修正后的SQL语句：

   Dim sqlStr As String
   sqlStr = "SELECT [city], [xData] FROM [mainSheet$] WHERE [case] = 0"
   

3. 完整可运行代码示例

   Sub RetrieveMixedDataTypeData()
       Dim conn As ADODB.Connection
       Dim rs As ADODB.Recordset
       Dim sqlStr As String
       
       ' 初始化连接对象
       Set conn = New ADODB.Connection
       ' 替换为你的Excel文件路径
       conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\SampleData.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""
       
       ' 构造查询语句
       sqlStr = "SELECT [city], [xData] FROM [mainSheet$] WHERE [case] = 0"
       Set rs = New ADODB.Recordset
       rs.Open sqlStr, conn, adOpenKeyset, adLockOptimistic
       
       ' 遍历输出数据（可根据需求修改为写入单元格等操作）
       Do While Not rs.EOF
           Debug.Print "城市: " & rs("city"), "数据: " & rs("xData")
           rs.MoveNext
       Loop
       
       ' 释放资源
       rs.Close
       conn.Close
       Set rs = Nothing
       Set conn = Nothing
   End Sub
   

可行性说明 #

完全可行。通过添加IMEX=1参数，ADO会强制将混合类型列按文本处理，即可正常读取带字母的数据。只要确保连接参数匹配Excel版本、SQL语句无语法错误，就能解决问题。

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