[英]How to add a new sheet in excel using VBA?
我是VBA編碼的新手。 我想用不同的數據填充excel表。 要求是將數據拉入同一Excel的單獨表格中。 我需要使用下面相同類型的代碼來維護整個代碼的完整性。
outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls"
DoCmd.OutputTo acOutputQuery, "**MoActiveDirectoryData**", acFormatXLS, outfile, False
我能夠將視圖/查詢MoActiveDirectoryData導入一個工作表。 我應該如何將來自另一個視圖/查詢的數據轉換為同一個Excel的不同表單？
如果使用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 中已有值，如何將數據從一張工作表粘貼到另一張工作表並添加新行？
[英]How to paste data from one sheet to another and add a new row if there's already a value in using VBA Excel?
如何使用VBA將多個字符串值添加到Excel工作表中的單元格
[英]How to add multiple string values to a cell in a excel sheet using vba
如何使用VBA在Excel 2010工作表中添加選項按鈕進行分組？
[英]How to add option buttons to group in Excel 2010 sheet using VBA?
VBA Excel 添加新工作表，其編號基於之前創建的工作表
[英]VBA Excel add new sheet with number based on the previous sheet created
Excel VBA-僅當新行與最后一行不同時，才如何在工作表末尾添加新行？
[英]Excel VBA - How to add new row at the end of a sheet only if the new row differs from the last row?
如何使用VBA將多個Excel工作表合並為一個Excel工作表
[英]How to combine multiple Excel sheet into one Excel sheet using VBA
聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.