格式日期错误

2014-01-21 205 views 0 likes

我试图把ADATE和时间在新创建的工作表名称：格式日期错误

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行代码，我不能在这里提到但是我相信它对格式功能没有影响的部分。

2014-01-21 Solaire

适合我。你确定你在这一行中确实有错误吗？ –

@simoco是的，我确定，它是th格式的函数，它突出显示为黄色 – Solaire

你可以尝试评估我发布的代码作为答案吗？没有其他300行代码...你会得到一个错误？并在哪一行？ –

回答

尝试使用下面的代码：

Sub errorlist() 
    Dim wb As Worksheet 

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

End Sub

附：从评论如下，OP已经定义了他自己的程序，称为Format，并且有一个错误触发的原因。所以，Format(Now, "dd_mm_yyyy ss_nn_hh")可以换成Replace(CStr(Now), "-", "_")或者这样。

2014-01-21 19:33:42

只有字格式突出显示 – Solaire

尝试在'sub'的第一行添加'MsgBox“错误单”＆格式（现在，“dd_mm_yyyy ss_nn_hh”）''。你会得到什么？ –

此行中的单词格式将突出显示，并且出现相同的消息 – Solaire