如何保存为xlsx文件？

Question

我的 SaveFile 子程序保存了文件，但是当我尝试再次打开它时 Excel 无法将其识别为 Excel 文件。

如果我在桌面上右键单击该文件并检查属性，则文件类型为 "File"。我已经阅读了有关格式的信息，但无法将此文件另存为 xlsx 格式。我能够使启用宏的 excel 文件正常工作，但这不是我想要的。

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

这是 "Formatless" 文件的图片

Answer 1

保存文件时应使用扩展名保存：

Sub SaveFile()

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

End Sub

如何保存为xlsx文件？

How to save as xlsx file?

excel

vba

save-as