Sheets.Add 方法 (Excel)
建立新的工作表、圖表或巨集工作表。 新的工作表會成為現用工作表。
運算式。新增 (Before、 After、 Count、 Type)
expression 代表 Sheets 物件的變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Before | 選用 | Variant | 指定工作表的物件,在此工作表之前會插入新的工作表。 |
After | 選用 | Variant | 指定工作表的物件,在此工作表之後會插入新的工作表。 |
Count | 選用 | Variant | 要新增的工作表數目。 預設值是選取工作表的數目。 |
類型 | 選用 | Variant | 指定工作表類型。 可以為下列其中一個 XlSheetType 常數: xlWorksheet、 xlChart、 xlExcel4MacroSheet或 xlExcel4IntlMacroSheet。 如果是根據現有範本插入工作表,則請指定範本的路徑。 預設值為 xlWorksheet。 |
物件值,代表新的工作表、圖表或巨集工作表。
如果同時省略 Before 及 After,則會在使用中工作表之前插入新的工作表。
這個範例會在現用活頁簿中最後一張工作表之前插入新的工作表。
ActiveWorkbook.Sheets.Add Before:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
本範例會在使用中活頁簿的最後一張工作表之後插入新的工作表,並在區域變數中擷取傳回的物件參考。
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
注意
在 32 位元的 Excel 2010 中,這個方法無法一次建立超過 255 個工作表。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。