Vba 导出到带有标题的CSV

我正在尝试将Microsoft Access的查询表单导出到

.csv

文件中

我需要导出具有标题：

DoCmd.TransferText acExportDelim, "CSV_TEST_SPECIFICATION", "tempQuery", "file.csv", True

除了

文件.csv

中没有标题之外，代码工作正常

CSV\u TEST\u规范

与用于导入原始CSV的规范相同

它包括第一行作为标题。

欢迎使用SO。 试试这个：

Public Sub Export()

    Dim filepath As String
        filepath = "[A valid path]\FileName.csv"

    DoCmd.TransferText acExportDelim, , "QueryName", filepath, True
End Sub

---

最后一个参数设置为“True”，应该会给出标题。有关更多信息，请参阅下面的链接

---

试着压缩和修理。也许这会解决它。这些年来，我看到Access做了一些奇怪的事情，经常做CR会让一切都变好。

谢谢你。是的，跳过规范是可行的，但它会使文件太大。此宏的目的是加载excel太大的.csv文件，并将其分成更小的部分。如果我把它“分割”成一个没有规格说明的部分，它会使输出文件比输入文件大（因为它比excel所能承受的还要多，所以我无法比较这两个文件）。文件大小保持不变，如果我使用规范，但它跳过了第一行…谢谢。这就是问题所在——它不起作用。最后，我编写代码以.txt格式打开.csv文件，并在所有导出的文件中添加一行带有标题的新行。

Use True (1) to use the first row of the text file as field names when importing, exporting, or linking. Use False (0) to treat the first row of the text file as normal data. If you leave this argument blank, the default (False) is assumed. This argument is ignored for Microsoft Word mail merge data files, which must always contain the field names in the first row.