VBA：在工作簿中按名称查找工作表，然后在工作表旁边复制工作表

Question

我对工作簿参考和条件嵌套感到有些迷惑。 我想要实现的是

1. 找到一个工作表，其工作表名称为“ EMPLOYEE”。
2. 检查上述工作簿中是否有任何工作表名称说“ COMPANY”，如果存在则删除。
3. 将工作表“ COMPANY”从活动工作簿（非活动工作表）复制到上述工作簿。

到目前为止，我仍无法确定如何将非活动工作表“ COMPANY”从活动工作簿复制到我们在第1点中找到的工作簿中。

任何建议将不胜感激。

    Application.DisplayAlerts = False
    For Each wb In Application.Workbooks
       For Each ws In wb.Sheets
       If ws.Name = "EMPLOYEE" Then wb.Sheets("COMPANY").Delete
       Next ws
    Next wb
    Application.DisplayAlerts = True

Answer 1

“ 活动工作簿”是指运行该代码模块的代码吗？ 在这种情况下， ThisWorkbook可以用作您要复制到的公司工作表的父级，以引用到刚刚从中删除公司工作表的工作簿。

   Application.DisplayAlerts = False
   On Error Resume Next
    For Each wb In Application.Workbooks
        For Each ws In wb.Sheets
            If ws.Name = "EMPLOYEE" Then
                wb.Sheets("COMPANY").Delete
                ThisWorkbook.Sheets("Company").Copy Before:=wb.Sheets(1)
            End If
        Next ws
    Next wb
    Application.DisplayAlerts = True

我发现ThisWorkbook比ActiveWorkbook更具权威性，尤其是在这样的操作中，在这种操作中，焦点（默认情况下）可以更改为接收公司工作表副本的工作簿。

或者，您可以将工作表对象引用分配给您希望复制的公司工作表，并在遍历工作簿集合时重复使用该引用。