Excel VBA通过CSV连接执行SQL匹配导入数据问题求助

我现在有个需求：根据下拉列表选中的机构名称，执行SQL命令从CSV文件导入所有匹配该名称的行。用ODBC连接数据库的时候完全正常，但切换成CSV文件的OLEDB连接后就失效了，实在搞不定，求帮忙！

我用的CSV连接字符串如下：

Public Const ConnStringCSV = "Microsoft.Jet.OLEDB.4.0" & _ 
    "Data Source=T:\DataFeed;" & _ 
    "Extended Properties=""text;HDR=yes;FMT=Delimited(,)"";Persist Security Info=False"
Dim conn As ...

我之前处理CSV的OLEDB查询时也碰到过类似的坑，大概率是Jet OLEDB的查询规则和ODBC有差异，或者一些细节没注意到，给你几个排查方向：

• 调整SQL语句的字段/文件名引用方式
  Jet OLEDB处理CSV文件时，对文件名和字段名的要求更严格：

  • 必须指定CSV文件的完整文件名（包括.csv后缀），并且要用方括号[]括起来，比如[your_data.csv]
  • 如果字段名里有空格、特殊字符，也要用方括号包裹，比如[Institution Name]
    示例SQL：

  SELECT * FROM [institutions.csv] WHERE [InstitutionName] = ?
  

• 用参数化查询替代字符串拼接
  如果你是直接把下拉框的值拼到SQL里，很可能因为机构名称里的单引号、逗号等特殊字符导致语法错误，同时还存在SQL注入风险。换成参数化查询就可以解决：

  Dim conn As New ADODB.Connection
  Dim cmd As New ADODB.Command
  Dim rs As ADODB.Recordset
  
  conn.Open ConnStringCSV
  cmd.ActiveConnection = conn
  cmd.CommandText = "SELECT * FROM [data.csv] WHERE [InstitutionName] = ?"
  ' 第二个参数adVarChar对应文本类型，长度根据你的实际需求调整
  cmd.Parameters.Append cmd.CreateParameter("instName", adVarChar, adParamInput, 255, ComboBox1.Value)
  
  Set rs = cmd.Execute
  ' 后续处理记录集...
  rs.Close
  conn.Close
  

• 检查驱动兼容性（64位系统注意）
  Microsoft.Jet.OLEDB.4.0是32位驱动，如果你的程序是64位运行的，会出现兼容性问题。可以换成64位的ACE驱动，连接字符串改成：

  Public Const ConnStringCSV = "Microsoft.ACE.OLEDB.12.0" & _ 
      "Data Source=T:\DataFeed;" & _ 
      "Extended Properties=""text;HDR=yes;FMT=Delimited(,)"";Persist Security Info=False"
  

  记得提前安装对应版本的ACE驱动（32/64位要和你的程序架构匹配）

• 验证CSV文件的格式细节

  • 确认CSV的表头和你SQL里的字段名完全一致（Jet OLEDB默认大小写不敏感，但还是尽量统一）
  • 如果CSV里有包含逗号的字段，必须用双引号包裹，FMT=Delimited(,)才能正确识别
  • 如果是UTF-8编码的CSV，需要在Extended Properties里添加CharacterSet=65001，比如：

    Extended Properties=""text;HDR=yes;FMT=Delimited(,);CharacterSet=65001""
    

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