Question

VBA 如何获取新添加的工作表的名称

我使用Worksheets.Add添加了一个工作表
但是我不知道新添加的这个工作表的名称是什么，
我该如何获取呢？

Answer 1

1.如果一定要获取新添加的工作表的名称，可以强制将新工作表添加到最前面
然后显示第一个工作表（sheets(1)）的名称，即为新添加的工作表的名称，代码如下：
Sub main()
Worksheets.Add before:=Sheets(1)
MsgBox Worksheets(1).Name
End Sub

2.与其获得新添加的工作表的名称，不如在添加新工作表时，直接命名

代码如下：
Sub min()
Worksheets.Add
ActiveSheet.Name = "new sheet"
End Sub

Answer 2

用了这个函数会返回一个sheet的句柄，操作这个句柄就是在操作这个工作表
dim s as worksheet
s=worksheets.add(***)

Answer 3

添加后 这个工作薄是激活状态的
可以直接
Sub aa()
Dim a$
a = ActiveWorkbook.Name
End Sub

Answer 4

MsgBox Sheets.Add(after:=Sheets(Sheets.Count)).Name