我想将访问查询导出到 csv 文件中。为此,我使用了前面堆栈溢出讨论中给出的以下格式。
Function ExportQuery()
DoCmd.TransferText acExportDelim, , "[your query]", "[output file].csv"
End Function
Run Code Online (Sandbox Code Playgroud)
我得到 CSV 文件形式的输出,但数据在工作表的列中分开。我希望所有列的第一列本身中的数据用分号分隔。
请尽快恢复。
我得到了我的问题的答案。
如果你想添加任何分隔符,如逗号、分号等。
双击要导出的查询或表。然后单击“文件”选项卡中的“导出”。指定文件名并选择文本文件 (Access 2003)。然后单击“全部导出”。导出文本向导将打开。选择单选按钮分隔并单击高级。然后选择您想要的字段分隔符。并将文本限定符选择为无。然后选择“另存为”并为规范命名。并像在手动过程中一样完成整个过程。保存后关闭文件 CSV 和 access。
保存规格名称后,VBA代码如下:
Function ExportQuery()
DoCmd.TransferText acExportDelim,"Specification Name" , "[your query]", "[output file].csv"
End Function
Run Code Online (Sandbox Code Playgroud)
所以只需在代码中添加“规范名称”即可。