vba如何实现另存

在VBA（Visual Basic for Applications）中，你可以使用`SaveAs`方法来另存Excel工作簿。以下是一个简单的示例，演示了如何将当前活动工作簿另存为一个新的文件：

```vba

Sub SaveWorkbookAs()

' 设置要保存的文件路径和文件名

Dim filePath As String

Dim fileName As String

filePath = "C:路径" ' 修改为你希望保存文件的路径

fileName = "新工作簿.xlsx" ' 修改为你希望保存的文件名

' 使用SaveAs方法另存工作簿

ThisWorkbook.SaveAs filePath & fileName, FileFormat:=xlOpenXMLWorkbook

End Sub

```

在这个例子中，`ThisWorkbook`代表当前活动的工作簿。`SaveAs`方法接受两个参数：第一个参数是文件的完整路径和文件名，第二个参数是文件的格式。在这个例子中，我们使用`xlOpenXMLWorkbook`来指定文件格式为Excel工作簿。

请确保替换`filePath`和`fileName`变量的值为你实际的文件路径和文件名。

要运行此宏，你可以通过以下几种方式：

1. 在VBA编辑器中直接运行此宏。

2. 将此代码放入一个按钮的点击事件中。

3. 将此代码放入一个菜单命令的事件处理程序中。