＆＃39; DoCmd.TransferSpreadsheet＆＃39;导出到Excel

Question

我需要将访问表从ACCESS导出到EXCEL。有618499行。我尝试了简单的方法：右键单击 - 导出 - excel。它只适用于我选择导出格式（没有格式创建空白excel文档），但它不方便，因为我必须创建10个文档。我试图使用这段代码，但它变成红色并且无效：

DoCmd.TransferSpreadsheet(
    [acExport],
    [acSpreadsheetTypeExcel12Xml],
    [tab_1],
    ["C:\Users\admin\Desktop\import_2014\final.xlsx"],
    [True])

1. 我应该改变什么？
2. 我应该如何在模块中输入它。
3. 或许您可以提供另一个简单的解决方案。

Answer 1

所有VBA代码必须位于子模块或函数中，即模块中。

删除所有[]，如果要将每个参数放入新行，请使用行连接符号_

DoCmd.TransferSpreadsheet _
    acExport, _
    acSpreadsheetTypeExcel12Xml, _
    "tab_1", _
    "C:\Users\admin\Desktop\import_2014\final.xlsx", _
    True

修改

使用Call：

Call DoCmd.TransferSpreadsheet(acExport, acSpreadsheetTypeExcel12Xml, _
    "tab_1", "C:\Users\admin\Desktop\import_2014\final.xlsx", True)

或省略括号：

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _
    "tab_1", "C:\Users\admin\Desktop\import_2014\final.xlsx", True