excel - 如何使用 VBA 在 Excel 中添加新工作表？

Question

我是 VBA 编码的新手。我想用不同的数据填充一个 excel 表。要求是将数据提取到同一 Excel 的不同工作表中。我需要使用下面相同类型的代码来维护整个代码的完整性。

outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls"
DoCmd.OutputTo acOutputQuery, "**MoActiveDirectoryData**", acFormatXLS, outfile, False

我能够从视图/查询中获取数据MoActiveDirectoryData到一张表中。我应该如何从另一个视图/查询中获取数据到同一个 excel 的不同工作表中？

Answer 1

如果您使用 DoCmd.TransferSpreadsheet，只要您要导出的表或查询的名称与已存在的工作表不同，就会在同一个文件中创建工作表。

outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls"
''Sheet is called Query1
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Query1", outfile 
''New sheet called Query2
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Query2", outfile