VBA - Excel SaveAs另存为其他类型

1、新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。

2、新建一个模块，输入下面的代码。Su水瑞侮瑜b SaveAsMacroEnable() Dim OldFile绿覆冗猩Name 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>运行代码，就可以将需要的文件类型另存在原文件同一路径下了。