如果要對多張 Excel 工作表進行操作,可以使用 Worksheets
物件加上工作表的名稱來指定工作表:
Worksheets("工作表1").Range("A1").Value = "工作表1的A1" Worksheets("工作表2").Range("A1").Value = "工作表2的A1"
這樣會分別改變工作表1
與工作表2
的 A1
儲存格,工作表1
會變成這樣:
而工作表2
會變成這樣:
Worksheets 物件也可以使用工作表的順序來指定工作表:
Worksheets(1).Range("A1").Value = "工作表1的A1" Worksheets(2).Range("A1").Value = "工作表2的A1"
上面這兩行的作用會跟之前使用工作表名稱的方式相同。
如果要新增工作表,可以執行:
Worksheets.Add
這樣就會新增一個工作表:
新增的工作表預設會放在第一個位置,我們可以使用它的 Name
屬性來改變他的名稱:
Worksheets(1).Name = "新的工作表"
執行結果會像這樣:
Worksheets
的 Count
可以計算目前工作表的數量,MsgBox
可以跳出一個視窗顯示簡單的訊息:
MsgBox Worksheets.Count
執行結果為: