How to force file to save as .xlsx

[austin397]

Hello all,

    File_Name = SK & "-" & Year & Month & Day & "-" & Daily_Drawing_Number & " BOM" & Rev_Letter & ".xlsx"    
    Application.Dialogs(xlDialogSaveAs).Show (File_Name)

I am trying to force this to input the specified file name into the dialogue box for the save as box. However it remains blank when I use the extension ".xlsx" but when it is ".xls" it works fine.

I need this to be saved as ".xlsx" so that it will be macro-free.

Thank you for any help!

 

[Sektor]

Why using dialog when you have constructed file name? You need just to select folder (if you don't have one).

 

[austin397]

I need to keep the save as dialog because the user might need to save the files in different locations than others. Some might save it to their desktop, others to specific files.

 

[austin397]

I was able to get an answer elsewhere, thank you anyway!

Here was the solution.
Code:
Application.DisplayAlerts = False
Work_Saved = Application.Dialogs(xlDialogSaveAs).Show(File_Name, 51)
Application.DisplayAlerts = True
The 51 is how excel reads the format.

51 = xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2016, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2016, xls