格式化日期错误

Question

我正在尝试在新创建的工作表名称中添加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行代码的一部分，我在这里不能提及，但我确定它对格式函数没有影响。

Answer 1

尝试使用以下代码：

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已经定义了自己的程序，称为Format，并且有一个错误触发原因。因此，Format(Now, "dd_mm_yyyy ss_nn_hh")可以替换为Replace(CStr(Now), "-", "_")或者像这样。