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

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

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

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

来源

2012-07-11 Akshay

如果使用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

来源

2012-07-11 14:22:24 Fionnuala

非常感谢。有效。 – Akshay 2012-07-12 10:29:06

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

回答

相关问题