Access VBA用DoCmd.TransferText导出CSV如何统一用分号作分隔符

问题原因 #

你使用的schema.ini是Access读取文本文件时的配置文件，导出CSV时不会读取该文件，所以无法生效。要让表头和数据行都用分号作为分隔符，必须创建并调用自定义的导出规范。

解决步骤 #

1. 手动创建导出规范

   • 找到tUsuarias表，右键选择「导出」→ 选择「文本文件」，保存类型选CSV，指定临时路径后点击「保存」
   • 在导出向导中，选择「分隔符」，勾选「其他」并输入分号;，同时勾选「第一行包含字段名称」，点击「高级」按钮
   • 在「导入/导出规范」窗口中，确认分隔符为;，小数符号设置为逗号（匹配你的需求），点击「另存为」给规范命名（比如CSV_Semicolon_Spec），确定后完成导出向导（临时导出的文件可直接删除）

2. 修改VBA代码调用规范
   将原代码中DoCmd.TransferText的第二个参数替换为你保存的规范名称：

   Private Sub cmdExportar_Microdatos_Click()
     Dim oCSV As String
     oCSV = CurrentProject.Path & "\microdatos_Usuarias.csv"
     ' 调用自定义导出规范
     DoCmd.TransferText acExportDelim, "CSV_Semicolon_Spec", "tUsuarias", oCSV, True
     MsgBox "Exportacion realizada OK", vbInformation, "Microdatos exportados"
   End Sub
   

验证效果 #

运行按钮宏后，导出的CSV文件表头和数据行都会统一使用分号作为分隔符，小数符号也会按规范设置为逗号。

内容的提问来源于stack exchange，提问作者Raul-Angel García