Automate filename in Excel

Kua · 7 Aug 2012 at 11:19

Hi,

I haven't done any coding in a long while and VBA is new to me. I want the file to save in the format, <YYYY><MM><DD>MITC_it_house.etl

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strDate As String
strDate = Format(Now, "yyyyMMdd")

ActiveWorkbook.SaveAs ("<File Path>" & strDate & "MITC_it_house.xlsm")

End Sub

I got the code snippet from here.

Thanks.

GravyMonster · 7 Aug 2012 at 11:36

That seems fine to me, other than you need to change <file path> as you require.

Kua · 7 Aug 2012 at 11:42

Spunkey said:
That seems fine to me, other than you need to change <file path> as you require.

Yep. Have done that. But when I hit save it doesn't save to that filepath.

Avathar77 · 7 Aug 2012 at 11:47

what do you enter as the <File Path>

Kua · 7 Aug 2012 at 13:33

Code:

I:\MitchellsPubManagementServices\SNPC FILE EXTRACTION\Final Files\