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

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

1 个答案: