excel - 复制工作簿名称，然后稍后使用 vba 激活具有复制名称的工作簿

Question

我有 WName = ThisWorkbook.Name然后我想设置Windows("WName").Activate在我的代码的另一点，但不工作。

我知道这可能没有意义，但它适用于所有正在进行的 sutf

下面是一个小测试子(我不是为了让它工作而使用它)

谢谢

 Sub test()
 'Copy Active Workbook Name
 WName = ThisWorkbook.Name

 'Activate a different Workbook
 Windows("MyWorkbookAAA").Activate

 'Activate Original workbook using WName
 Windows("WName").Activate  'Have also tried Windows(WName).Activate

 range("D2:D25").Select
 Selection.Copy

 Windows("MyWorkbookBBB").Activate
 range("C22").Select
 ActiveSheet.Paste

End Sub

Answer 1

试试这个代码:

避免在代码中使用 Select/Activate。引用这个 link

 ThisWorkbook.ActiveSheet.Range("D2:D25").Copy Workbooks("MyWorkbookBBB").ActiveSheet.Range("C22")