Macro save from .xlsm to .xlsx in folder as current date "dd-mm.yy.xlsx"

[Vbalearner85]

Hi,

I am using below macro to save .xlsm file in particular folder in format "dd-mm-yy.xlsm", which is working fine.

Tried saving as "xls" format, which gives compatibility issues and shows file as corrupt

But if I want to save current file as ".xlsx" by replacing format in below macro in Excel 2016, it is giving error "Run-time error '1004'-The extension cannot be used with the selected file type". Please assist

Sub documentssave()

Application.DisplayAlerts = False
Application.Calculation = xlManual

ActiveWorkbook.SaveAs ("D:\Data Hub\" & Format(Now(), "dd-mm-yy") & ".xlsm")

Application.DisplayAlerts = True
Application.Calculation = xlAutomatic

End Sub

 

[John_w]

Try this:

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs "D:\Data Hub\" & Format(Date, "dd-mm-yy") & ".xlsx", xlOpenXMLWorkbook
    Application.DisplayAlerts = True

 

[Vbalearner85]

Does the desired job as expected now!!! Thanks sir

Regards,
PK