vba在工作簿中添加工作表使用Add方法

在工作簿中添加工作表使用Add方法

Sub Addsh()

Dim Sh As Worksheet

With Worksheets

Set Sh = .Add(after:=Worksheets(.Count))

Sh.Name = “数据”

End With

End Sub

代码解析:

 

Addsh过程使用Add方法在工作簿中新建“数据”工作表。

第2行代码声明变量Sh为工作表对象。

第4行行代码使用Add方法在工作簿的最后新建“数据”工作表。

Add 方法应用于Sheets和Worksheets对象时新建工作表、图表或宏表,语法如下:

 

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

 

参数Before是可选的,指定工作表对象,新建的工作表将置于此工作表之前。

参数After是可选的,指定工作表对象,新建的工作表将置于此工作表之后。

如果Before和 After两者均省略,则新建的工作表将插入到活动工作表之前。

参数Count可选,要新建的工作表的数目。默认值为 1。

参数Type可选,指定新建的工作表类型。

第5行代码将添加的工作表重命名为“数据”。

如果需要在工作簿中批量添加工作表,可以使用下面的代码。

Sub Addsh_2()

Dim i As Integer

Dim sh As Worksheet

For i = 1 To 10

Set sh = Sheets.Add(after:=Sheets(Sheets.Count))

sh.Name = i

Next

End Sub

 

 

 

 » 本站地址:http://www.gomoth.com
  • 您可能感兴趣的相关文章