Worksheets(1).EnableCalculation = False
'下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls
工作簿。
Workbooks.Open ("C:\MyFolder\MyBook.xls")
'本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value
本示例显示活动工作簿中每个工作表的名称
For Each ws In Worksheets
MsgBox ws.Name
Next ws
本示例向活动工作簿添加新工作表 , 并设置该工作表的名称?
Set NewSheet = Worksheets.Add
NewSheet.Name = "current Budget"
本示例将新建的工作表移到工作簿的末尾
'Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
End Sub
本示例将新建工作表移到工作簿的末尾
'Private Sub App_WorkbookNewSheet(ByVal Wb As
Workbook, _
ByVal Sh As Object)
Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
End Sub