如何保存为 xlsx 文件？

Question

我的 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 is wrong 

End Sub

这是“无格式”文件的图片

Answer 1

当保存文件时，你应该用它的扩展名保存它：

Sub SaveFile()

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

End Sub