发布网友
共2个回答
热心网友
代码如下:
Sub add()
Dim name As String
name = "abc"
Sheets.add
ActiveSheet.name = name
End Sub
热心网友
sub 新增文件()
dim a
a = Sheets.Count
Sheets.Add After:=Sheets(a)
Worksheets(a + 1).Name = “你想要的名字abc"
end sub