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

nnsea

在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