VBA - Excel SaveAs另存为其他类型

1、新建一个Excel文件并保存。

打开VBE，可以用快捷键<Alt+F11>.

VBE的介绍可以参照下面的链接后者百度下找找。

2、新建一个模块，输入下面的代码。

Sub SaveAsMacroEnable()        Dim OldFileName As String        OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1)         ActiveWorkbook.SaveAs Filename:=OldFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False   End Sub

3、XlFileFormat 枚举 (Excel)可以参照下面的链接，这样可以保存成其他需要的文件类型。

https://docs.microsoft.com/zh-CN/office/vba/api/excel.xlfileformat

4、按<F5>运行代码，就可以将需要的文件类型另存在原文件同一路径下了。