vba 复制当前文件并打开，然后激活

如果您想使用 VBA 复制当前文件并打开，然后激活新文件，您可以使用以下代码示例：

Sub CopyAndActivateFile()
    Dim newFile As String
    
    newFile = ThisWorkbook.Path & "\" & "New File Name.xlsx" '新文件的路径和名称
    
    ThisWorkbook.SaveCopyAs newFile '将当前文件另存为新文件
    
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Open(newFile) '打开新文件并将其分配给变量
    
    newWorkbook.Activate '激活新文件
End Sub

您可以将“New File Name.xlsx”替换为您要保存的新文件的名称，然后运行此代码即可复制当前文件并打开。此代码将在当前文件的路径中创建一个新文件，并将当前文件另存为新文件。然后，它将打开新文件并将其分配给一个变量。最后，它将激活新文件。