vba另存为excel文件

好的，以下是 VBA 代码示例，可以将当前正在运行的 Excel 文件另存为指定的文件路径和文件名：

Sub SaveAsExcelFile()
    Dim filePath As String
    filePath = "C:\Users\YourName\Desktop\example.xlsx"  ' 替换成你想要保存的路径和文件名
    
    ActiveWorkbook.SaveAs filePath, xlOpenXMLWorkbook  ' 保存为 Excel 2007 及以上版本的文件格式
End Sub

这个代码示例将当前正在运行的 Excel 文件另存为 `C:\Users\YourName\Desktop\example.xlsx` 文件。你可以根据需要修改 `filePath` 变量的值来指定不同的文件路径和文件名。

需要注意的是，如果指定的文件路径和文件名已经存在同名的文件，那么会弹出提示框让你确认是否覆盖原有文件。如果你想自动覆盖原有文件，可以添加一个 `Application.DisplayAlerts = False` 语句来禁用提示框，如下所示：

Sub SaveAsExcelFile()
    Dim filePath As String
    filePath = "C:\Users\YourName\Desktop\example.xlsx"  ' 替换成你想要保存的路径和文件名
    
    Application.DisplayAlerts = False  ' 禁用提示框
    ActiveWorkbook.SaveAs filePath, xlOpenXMLWorkbook
    Application.DisplayAlerts = True   ' 恢复提示框
End Sub

希望对你有帮助！