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