MS Access VBA：DoCmd.TransferText导入CSV列合并问题排查

嘿，这个问题我之前帮同事踩过好几次坑——手动用导入向导带规范好好的，一写VBA就翻车，所有字段挤成一个，简直离谱！咱们一步步拆解问题：

核心问题大概率出在「规范的引用或设置」上 #

1. 规范名称的匹配出了错 #

你代码里用的SpecificationName:=specNote，先确认specNote变量里的名称和你保存的规范完全一致——包括大小写、空格甚至特殊字符！Access对规范名称的匹配是很严格的，比如你保存的是Semicolon_CSV_Spec，但变量里写成了semicolon_csv_spec，系统就认不出来这个规范，直接用默认的逗号分隔符解析，自然所有内容都合并成一个字段了。

快速验证方法：把规范名称直接写成字符串常量试试，比如SpecificationName:="我的分号分隔规范"，排除变量赋值错误的可能。

2. 规范本身的设置有遗漏 #

虽然你说向导里设了分号分隔，但别忽略这两个细节：

• 文本限定符：如果你的CSV里有用双引号包裹的字段（比如"张三;王五",30），规范里必须把文本限定符设为双引号，不然Access会把整个带分号的内容当成一个字段。
• 编码格式：确认规范里的编码（比如UTF-8、ANSI）和你的CSV文件完全一致，编码不匹配也会导致解析异常。

怎么检查？打开「外部数据」选项卡→选「文本文件」→选中你的CSV→导入向导里点「高级」，就能看到你保存的规范的所有细节，逐项核对一遍。

3. VBA调用时缺了关键参数 #

DoCmd.TransferText有个可选参数HasFieldNames，如果你的CSV第一行是字段名，而你在向导里勾选了「第一行包含字段名」，但VBA里没指定这个参数，默认是False——这时候Access不仅会把字段名当成数据行，还可能因为规范加载异常，彻底搞砸字段拆分。

修正后的代码示例：

DoCmd.TransferText TransferType:=acImportDelim, _
    SpecificationName:="你的规范名称", _
    TableName:="tblImport", _
    FileName:="K:\path\file.csv", _
    HasFieldNames:=True ' 第一行是字段名就设为True，反之设为False

关于分享规范的解决方案 #

Access的导入/导出规范默认存在当前数据库里，要分享给其他人或其他数据库，这几个方法最实用：

• 导出为XML文件（最稳妥）：在导入向导的「高级」窗口里，点击「另存为」，把规范保存成XML文件。其他人在自己的数据库里，同样打开导入向导的「高级」窗口→点击「导入」，选择这个XML就能直接复用你的设置。
• 通过VBA导出/导入：利用系统表MSysIMEXSpecs（默认隐藏，需要先显示系统表）来导出：

  ' 导出规范到XML
  Application.ExportXML ObjectType:=acExportTable, DataSource:="MSysIMEXSpecs", _
      FileName:="C:\CSV_Spec.xml"
  

  导入时用Application.ImportXML方法即可，适合批量操作的场景。
• 复制系统表：如果是同版本Access，可以直接把当前数据库里的MSysIMEXSpecs复制到目标数据库，对方就能直接用你的规范名称。但不同版本Access可能对这个表结构有调整，谨慎使用。

先从规范名称和参数检查入手，应该很快就能解决字段合并的问题！

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