Excel 在VBA中为运行时添加的工作表使用工作表代码名

出于各种原因，我更喜欢使用代码名来引用VBA代码中的工作表

但是，当我动态添加这样的工作表（到只有一张工作表的工作簿中）时：

。。。它不会编译，因为

Sheet2

未定义为变量

有办法解决这个问题吗？此时，我将恢复使用图纸名称：

Sheets("Sheet2").Activate

有没有一种使用代码名的方法

---

提前感谢。

对于编译时存在的工作表，在VBA中使用代码名是一个好主意。如您所知，它允许您参考工作表，即使用户更改了其名称

然而，在运行时更难做到这一点。如果用户已授予对VBA项目对象模型的访问权限，则可以使用VBA项目属性执行此操作。但是，您可以通过设置

工作表

变量来实现您想要的，对工作表的持续用户验证访问：

Sub example()
Dim NewWorkSheet1 as Excel.Worksheet

Worksheets.Add After:=Worksheets(Worksheets.Count)
Set Newworksheet1 = ActiveSheet
'SOME OTHER CODE HERE

End Sub

请注意，添加

工作表后，它是
活动工作表

此外，如果需要该级别的范围，您可以将工作表声明为项目或模块级别的变量。
很好的解决方案-它实现了我想要的（正如您所猜测的，这是用户验证）。谢谢
Sub example()
Dim NewWorkSheet1 as Excel.Worksheet

Worksheets.Add After:=Worksheets(Worksheets.Count)
Set Newworksheet1 = ActiveSheet
'SOME OTHER CODE HERE

End Sub