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

我是VBA编码的新手。 我想用不同的数据填充Excel工作表。 要求是将数据放入同一个Excel的单独表单中。 我需要使用下面相同types的代码来维护整个代码的完整性。

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

我能够从一个查看/查询MoActiveDirectoryData到一张表。 我应该如何去从另一个视图/查询获取数据到同一个Excel的另一张表？

Answer 1

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

 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