VBA：将具有当前日期的工作表分配给对象

Question

我的宏添加了一个带有当前日期的新工作表，但是当我想将工作表分配给对象时，它不起作用。我得到了

  

运行时错误9

Dim shA As Worksheet
Set shA = Worksheets(Date)

有人可以帮忙吗？

Answer 1

您需要将Date转换为String格式，具体取决于您日期的格式。

Dim shA As Worksheet
Set shA = Worksheets(Format(Date, "dd.mm.yyyy"))

Answer 2

考虑到您的计算机日期格式为DD.MM.YYYY，如果您要更改工作表的标签名称，则它是这样的：

ActiveSheet.name = Date()

或

shA.Name = Date()

因此，你会得到这个：