在VBA中，可以用Sheets.Add 方法在工作簿中新建工作表。其語(yǔ)法是：
Sheets.Add(Before, After, Count, Type)
其中參數(shù)Before、After指定新建工作表的位置，Coun指定工作表的數(shù)量，Type指定新建工作表的類(lèi)型。如下例：
在工作簿新建一個(gè)名稱為“工作表1”的工作表：
Sub AddWorksheet()
On Error Resume Next
Worksheets.Add().Name = "工作表1"
End Sub
在最后一個(gè)工作表的后面新建名稱為“工作表2”的工作表：
Sub AddWorksheetAfterLast()
On Error Resume Next
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "工作表2"
End Sub
在最后一個(gè)工作表的前面新建4個(gè)工作表：
Sub Add4Worksheets()
Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=4
End Sub
運(yùn)行下面的代碼中，首先給出一個(gè)提示，要求用戶輸入新建工作表的名稱，然后用該名稱新建工作表。如果出現(xiàn)錯(cuò)誤，如名稱過(guò)長(zhǎng)或該名稱已被使用，將直接新建一個(gè)工作表。
Sub AddNameNewSheet()
Dim NewName As String
NewName = InputBox("請(qǐng)輸入新建工作表的名稱。")
On Error Resume Next
Sheets.Add.Name = NewName
End Sub
