excel - Excel - 将一张工作表复制到所有打开的工作簿

Question

我正在尝试将一张工作簿从一个工作簿复制到所有打开的工作簿。

我想要将该工作表复制到的工作簿位于许多不同的文件夹中，但我计划将它们全部找到并打开它们。

使用 Excel 2010，我可以为每个打开的工作簿手动执行此操作，右键单击工作表 - 移动或复制 - 选择打开的书籍之一......我要完成的工作等同于选择所有打开的工作簿。复制的工作表可以放在现有工作表的末尾。

我要复制到其他工作簿的工作表包含指向同一工作簿中其他工作表的链接，但是该工作表将被复制到的其他工作簿已经有一个同名的工作表，所以这可能不是问题吗？

谢谢！

标签： excel

Answer 1

找到了解决方案：此宏将活动工作表复制到所有打开的工作簿中，除了它所在的工作簿：

将 wb 调暗为工作簿 将 sh 调暗为工作表

Set sh = ActiveSheet

For Each wb In Application.Workbooks
    If Not sh.Parent Is wb Then
        sh.Copy After:=wb.Sheets(wb.Sheets.Count)
    End If
Next wb