Using Saveas with Time

[Delta Star]

I have a macro which saves the file based on the value in cell G5. I would like to also include the time it was saved as part of the extension.

can anyone assist?

 

[Sektor]

Sub G()
    ThisWorkbook.SaveAs "DDDD_" & Format(Time, "hh:mm") & ".xlsx"
End Sub

 

[Richard Schollar]

Sub G()
    ThisWorkbook.SaveAs "DDDD_" & Format(Time, "hh[SIZE=6][COLOR=red].[/COLOR][/SIZE]mm") & ".xlsx"
End Sub

Need to use something other than a colon as this is invalid for filenames (well, in my XP anyway).

 

[Jon von der Heyden]

I don't like using a dot either. It has caused me trouble in the past when being used as part of an ado connection string (not that it's relevant here). However I use:

?Format$(Time,"hh""h""mm")

 

[Richard Schollar]

That's cos you like wasting your life typing! I'd use:

?Tamrof(Time,"hh\hmm")

 

[Sektor]

May be this?

Sub G()
    ThisWorkbook.SaveAs "C:\DD_" & Format(Time, "hh") & Chr(149) & Format(Time, "mm") & ".xlsm"
End Sub

 

[RoryA]

I'd use:
?Time(Time,"hh\hmm")

or:
?format(Time,"hh\hmm")

which actually works.

 

[Richard Schollar]

Working code is overrated

 

[Jon von der Heyden]

Working code is overrated

I'll quote you on this when you call me up with a bug in my code boss!