将表导出到同一目录中的 Excel 电子表格

Question

我的 Access 数据库中有两个表，我希望能够将它们导出到 Excel。

我可以通过打开表格，然后执行“文件”->“导出...”，然后选择格式并输入文件名来完成此操作。

然而，通过这种方式，用户实际上必须输入名称，因此存在错误命名文件或将其保存为错误格式或保存在错误位置的空间。此外，这两个表必须导出到两个单独的工作簿。

我想要做的是在表单上创建一个按钮，自动将一个表导出到一个工作表，将另一个表导出到另一个工作表，两者都在同一个 Excel 工作簿中。

如果无法将它们放在同一工作簿中，也没关系。我只是希望它们自动导出到保存我的访问数据库的同一目录中。

如果您知道如何执行此操作，则一个额外的好处可能是自定义名称以包含日期。这样目录也会有历史导出。有什么建议吗？

Answer 1

您可以使用 VBA 将 Access 数据库表导出为 Excel 工作簿中的工作表。

要获取 Access 数据库的路径，请使用 CurrentProject.Path 属性。

要使用当前日期命名 Excel 工作簿文件，请使用 Format(Date, "yyyyMMdd") 方法。

最后，要将表导出为工作表，请使用 DoCmd.TransferSpreadsheet 方法。

示例：

Dim outputFileName As String
outputFileName = CurrentProject.Path & "\Export_" & Format(Date, "yyyyMMdd") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table1", outputFileName , True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table2", outputFileName , True

这会将 Table1 和 Table2 输出到同一工作簿中。

华泰

Answer 2

劳伦斯给了你一个很好的答案。但是，如果您想更好地控制导出到 Excel 中的位置的内容，请参阅模块：示例 Excel 自动化< /a> - 逐个单元，速度较慢，模块：自动将记录传输到 Excel 您可以执行一些操作，例如导出从第 2 行开始的记录集并在第 1 行中插入自定义文本。以及所需的任何自定义格式。

Answer 3

对于通过搜索引擎找到此内容的人，您不需要 VBA。你可以：

1.) select the query or table with your mouse
2.) click export data from the ribbon
3.) click excel from the export subgroup
4.) follow the wizard to select the output file and location.