How to save as xlsx file?

excel vba save-as
yarz-tech picture yarz-tech · Jun 1, 2016 · Viewed 65.7k times · Source

My SaveFile sub saves the file but when I try to open it again Excel doesn't recognize it as an Excel file.

If I right click the file from my desktop and check the properties, the type of file is "File". I've read up on the formatting but can't get this file to save as an xlsx format. I was able to get a macro-enabled excel file to work properly but that's not what I want.

Sub SaveFile()

    MsgBox ("You will now be prompted to save your file") 'Notifies User 
    savename = Application.GetSaveAsFilename()  'Gets directory/name
    ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 'Something is wrong 

End Sub

Here is the picture of the "Formatless" file
enter image description here

Answer

some_weired_user picture some_weired_user · Jun 1, 2016

When saving the file you should save it with its extension:

Sub SaveFile()

    savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx") 
    ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 

End Sub

Related questions

Getting "method saveas of object _workbook failed" error while trying to save an XLSM as CSV

I'm trying to save a macro-enabled Excel workbook as a csv file, overwriting the old one (below I had to change the name of the folder and the Sheet, but that doesn't seem to be the issue). Sub SaveWorksheetsAsCsv() Dim …

Read More
Save Excel range as pdf

I'd like to 'save as' a specific sheet or specific range to pdf. I tried implementing a range into my code. Here is what I've been working with: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "c:\Book1.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, …

Read More
Open excel 2007 excel files and save as 97-2003 formats in VBA

I have a weird situation where I have a set of excel files, all having the extension .xls., in a directory where I can open all of them just fine in Excel 2007. The odd thing is that I cannot open …

Read More