在excel中利用VBA在工作簿中創建新的工作表

在excel中利用VBA在工作簿中創建新的工作表

在VBA中，可以用Sheets.Add 方法在工作簿中新建工作表。其語法是：

Sheets.Add(Before, After, Count, Type)

其中參數Before、After指定新建工作表的位置，Coun指定工作表的數量，Type指定新建工作表的類型。如下例：

在工作簿新建一個名稱為“工作表1”的工作表：

Sub AddWorksheet()On Error Resume NextWorksheets.Add().Name = "工作表1"End Sub

在最后一個工作表的后面新建名稱為“工作表2”的工作表：

Sub AddWorksheetAfterLast()On Error Resume NextWorksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "工作表2"End Sub

在最后一個工作表的前面新建4個工作表：

Sub Add4Worksheets()Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=4End Sub

運行下面的代碼中，首先給出一個提示，要求用戶輸入新建工作表的名稱，然后用該名稱新建工作表。如果出現錯誤，如名稱過長或該名稱已被使用，將直接新建一個工作表。

Sub AddNameNewSheet()Dim NewName As StringNewName = InputBox("請輸入新建工作表的名稱。")On Error Resume NextSheets.Add.Name = NewNameEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。