VBA如何给打开的excel文件另存并重命名

在VBA中，可以使用`SaveAs`方法来另存并重命名一个打开的Excel文件。

以下是示例代码：

Sub RenameAndSaveAs()
    Dim wb As Workbook
    Set wb = ActiveWorkbook '获取当前活动的工作簿
    
    '重命名工作簿
    wb.SaveAs Filename:="C:\NewFileName.xlsx", FileFormat:=xlOpenXMLWorkbook
    
    '关闭原始工作簿
    wb.Close savechanges:=False
End Sub

在上面的代码中，我们首先使用`ActiveWorkbook`获取当前活动的工作簿对象，然后使用`SaveAs`方法将其另存为一个新的文件名。在保存后，我们还可以通过`Close`方法关闭原始工作簿。

请注意，在`SaveAs`方法中，`Filename`参数指定新文件的路径和名称，`FileFormat`参数指定文件格式。在上面的示例中，我们使用`xlOpenXMLWorkbook`作为文件格式，这是Excel的默认文件格式，也可以根据需要更改为其他文件格式。