
Невозможно написать
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
If Minute(Now)<10 then
"0" & Minute(Now)
Else
Minute(Now)
End If _
& ".xlsm"
Как, я полагаю, это можно сделать наиболее элегантным способом?
решение1
Вы можете использоватьIif
:
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Iif(Minute(Now)<10, "0" & Minute(Now), Minute(Now)) & ".xlsm"
решение2
Или отформатируйте число:
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Format(Minute(Now),"00") & "xlsm"