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

Question

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

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

但是，这样用户实际上必须输入名称，因此有可能错误命名文件或将其保存为错误格式或保存在错误位置。此外，这两个表必须导出到两个单独的工作簿。

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

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

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

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 输出到同一工作簿中。

HTH