如何在VBA中命名工作表时添​​加字符串？

Question

我能够在下面一行的宏中完成它，

Worksheets.Add(after:=Worksheets(current)).Name = Format(Date, "ddmmyy") + " deciles"

但是类似的行不能在不同的宏中工作

Worksheets.Add.Name = "Performance classification" + Format(Date, "ddmmyy")

我收到运行时错误1004 - 应用程序定义或对象定义错误。

Answer 1

尝试：Worksheets.Add().Name = "Performance classification" + Format(Date, "ddmmyy")

在有效的代码行中，Worksheets.Add是一种您正在调用以创建并返回新工作表的方法。然后，您将调用Name属性并将其设置为新值。 VBA需要您在Add方法上使用括号来表示您关心返回值（新工作表对象）

Answer 2

尝试

Worksheets.Add.Name = "Perform class " & Format(Date, "ddmmyy")

如果您使用“效果分类”，则名称太长，＆gt; 31个字符。

表达式也可以使用和不使用括号。