一、功能说明

这个VBA程序将允许用户通过输入新的文件名来重命名并保存当前的Excel工作簿。这可以帮助用户轻松地更改工作簿的名称并保存到新的文件。

二、语法说明

我们将使用VBA中的GetSaveAsFilename方法来打开一个对话框，允许用户选择保存位置和文件名。然后，我们将使用SaveAs方法来保存工作簿并使用新的文件名。

三、案例说明

假设你有一个名为"工作簿1.xlsx"的工作簿，你想将其重命名为"新工作簿.xlsx"，并保存到你的文档文件夹。

四、编写代码

以下是VBA代码示例，用于实现重命名并保存工作簿的功能：

Sub RenameAndSaveWorkbook()    Dim NewFileName As Variant    ' 打开另存为对话框，并获取新文件名    NewFileName = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path & "\新工作簿.xlsx", FileFilter:="Excel Files (*.xlsx), *.xlsx")    ' 检查用户是否取消操作    If NewFileName <> "False" Then        ' 如果用户选择了新文件名，则保存工作簿        ThisWorkbook.SaveAs NewFileName        MsgBox "工作簿已成功保存为: " & NewFileName    Else        MsgBox "保存操作已取消。"    End IfEnd Sub

五、运行结果运行上述代码。对话框将出现，允许你选择新的文件名和位置。输入新文件名（例如"新工作簿.xlsx"）并选择保存位置。单击"保存"按钮。如果保存成功，会出现一个消息框，显示工作簿已成功保存为新的文件名和位置。如果取消操作，将出现一个消息框，显示保存操作已取消。六、程序分析

这段VBA代码首先使用GetSaveAsFilename方法打开另存为对话框，并将用户选择的新文件名存储在NewFileName变量中。然后，它检查用户是否取消操作，如果没有取消，就使用SaveAs方法将工作簿保存为新的文件名。最后，它通过消息框提供相应的反馈信息。

这个示例代码可以根据需要进行修改，例如更改初始文件名、文件过滤器等，以满足特定的需求。希望这个说明对你有所帮助！