增加名称为MY的表VBA

nnsea · 发表于 2018-12-20 08:27:41

Sub MyAddsh()

Dim Sh As Worksheet

With Worksheets

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

Sh.Name = "MY"

End With

End Sub

nnsea · 发表于 2018-12-20 08:28:08

代码解析：MyAddsh过程使用Add方法在工作簿中新建“MY”工作表。

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

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

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