苦苦挣扎在VBA中保存为xlsx文件

Question

我是VBA的新手，所以感谢任何帮助。我的SaveFile子有问题。这实际上允许我保存文件，但当我再次尝试打开它时Excel不会将其识别为Excel文件。实际上，如果我右键单击桌面上的文件并检查属性，则文件类型为“文件”。我已经阅读了格式化的东西，但无法将此文件保存为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 iswrong 

End Sub

以下是“无格式”文件的图片

Answer 1

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

Sub SaveFile()

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

End Sub