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

来源:转载

在VBA中,可以用Sheets.Add 方法在工作簿中新建工作表。其语法是:

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

其中参数Before、After指定新建工作表的位置,Coun指定工作表的数量,Type指定新建工作表的类型。如下例:

在工作簿新建一个名称为“工作表1”的工作表:

Sub AddWorksheet()

On Error Resume Next

Worksheets.Add().Name = "工作表1"

End Sub

在最后一个工作表的后面新建名称为“工作表2”的工作表:

Sub AddWorksheetAfterLast()

On Error Resume Next

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "工作表2"

End Sub

在最后一个工作表的前面新建4个工作表:

Sub Add4Worksheets()

Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=4

End Sub

运行下面的代码中,首先给出一个提示,要求用户输入新建工作表的名称,然后用该名称新建工作表。如果出现错误,如名称过长或该名称已被使用,将直接新建一个工作表。

Sub AddNameNewSheet()

Dim NewName As String

NewName = InputBox("请输入新建工作表的名称。")

On Error Resume Next

Sheets.Add.Name = NewName

End Sub

分享给朋友:
您可能感兴趣的文章:
随机阅读: