excel写一个另存为的vba代码

Sub SaveAsMacro() Dim FileName As String Dim FilePath As String

'获取文件名和路径 FileName = InputBox("请输入文件名（不带后缀）：", "保存", "NewFile") FilePath = Application.GetSaveAsFilename(FileName, "Excel 工作簿 (.xlsx),.xlsx")

'判断是否选择了路径 If FilePath <> "False" Then '保存文件 ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook MsgBox "文件保存成功！" End If

End Sub