Формат даты Ошибка

Я пытаюсь поставить adate и время во вновь созданном имени листа:Формат даты Ошибка

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

Но дает мне УВА сообщение о том,

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

Что может быть проблема? Есть идеи.

Код является частью 300-строчного кода, который я упоминаю здесь, но не уверен, что он не влияет на функцию формата.

источник

2014-01-21 Solaire

работает отлично для меня. Вы уверены, что получите ошибку в этой строке? –

@simoco да, я уверен, это формат файла, выделенного желтым – 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

P.S. как следует из комментариев, ОП определил свою собственную процедуру, названную Format, и была причина, по которой возникла ошибка. Таким образом, Format(Now, "dd_mm_yyyy ss_nn_hh") может быть заменен на Replace(CStr(Now), "-", "_") или sth вот так.

источник

2014-01-21 19:33:42

подсвечен только формат слова – Solaire

попробуйте добавить «MsgBox» errorsheet »& Format (Теперь« dd_mm_yyyy ss_nn_hh »)' в первой строке 'sub'. Что бы вы получили? –

Формат слова в этой строке подсвечивается и появляется такое же сообщение – Solaire

Формат даты Ошибка

ответ

Смежные вопросы