如何保存为 xlsx 文件？

Posted 2023-05-07

【中文标题】如何保存为 xlsx 文件？

【英文标题】：How to save as xlsx file?

【发布时间】：2016-06-01 13:47:41

【问题描述】：

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

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

【问题讨论】：

我真的只是想在保存时删除宏。

这应该正常工作。您使用的是哪个版本的 Excel？您是否从 Excel 收到通知保存将删除宏？

是的，我收到了通知。我将显示未格式化文件的图片。

【参考方案1】：

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

Sub SaveFile()

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

End Sub

【讨论】：

谢谢西蒙！从这里看来，SaveAs 中的 FileFormat 实际上并没有添加扩展名？它只是识别文件格式吗？

非常有用的带有扩展号码的链接：docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat