1.2 .ActiveWorkbook, Worksheets()

Private Sub WorksheetDemo2()

Dim ws As Worksheet
Dim Sheetname As String

Sheetname = "Sheet2"

Set ws = ActiveWorkbook.Worksheets(Sheetname)

ws.Cells(9, 5) = 9 + 6

End Sub

1. ActiveWorkbook 傳回一個 Workbook 物件，該物件為正在使用的活頁簿。如果沒有開啟任何視窗、或使用中視窗為 [資訊] 視窗或 [剪貼簿] 視窗，則傳回 Nothing。
2. Worksheets(Sheetname) 指定活頁簿中那個工作表