Você pode usar Iif
:
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Iif(Minute(Now)<10, "0" & Minute(Now), Minute(Now)) & ".xlsm"
Não é possível escrever
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
If Minute(Now)<10 then
"0" & Minute(Now)
Else
Minute(Now)
End If _
& ".xlsm"
Como alguém poderia fazer isso da maneira mais elegante, suponho?
Você pode usar Iif
:
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Iif(Minute(Now)<10, "0" & Minute(Now), Minute(Now)) & ".xlsm"
Ou formate o número:
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Format(Minute(Now),"00") & "xlsm"
Tags microsoft-excel vba