Vba 格式日期错误

我正在尝试将adate和time放在新创建的工作表名称中：

 Sub errorlist()
    Sheets.Add.Name = "errorsheet" & Format(Now, "dd_mm_yyyy ss_nn_hh")
 End Sub

但是vba给了我一个信息说

  "compile error:
   wrong number of arguments or invalid property assignment"

这里有什么问题？任何想法

---

该代码是300行代码的一部分，我在这里无法提及，但我确信它不会影响格式化功能。

尝试使用以下代码：

Sub errorlist()
    Dim wb As Worksheet

    Set wb = Sheets.Add
    wb.Name = "errorsheet" & Format(Now, "dd_mm_yyyy ss_nn_hh")

End Sub

---

p.S.根据以下评论，OP定义了自己的程序，称为

格式

，触发错误是有原因的。所以，

格式（现在是“dd_-mm_-yyy ss_-nn_-hh”）

可以替换为

Replace（CStr（现在），“-”，“”）

或类似的东西。

对我来说很好。你确定这一行中有错误吗？@simoco是的，我确定，这是黄色突出显示的格式函数。你能试着评估我发布的代码作为答案吗？没有其他300行代码。。。你会出错吗？在哪一行？是的，我在哪一行得到同样的错误？在

wb.Name=…

？尝试将

MsgBox“errorsheet”和格式（现在是“dd\u-mm\u-yyyy-ss\u-nn\u-hh”）

添加到

子部分的第一行。您会得到什么？这一行中的单词格式会突出显示，并且显示相同的消息您的默认日期格式是什么？您在第
MsgBox Now
行中得到了什么？它说：“错误1004无法获取工作表操作类中的文本属性”这段代码如何：
wb.Name=“errorsheet”&Replace（CStr（Now），“-”，“”）
？