Excel - скопировать один лист во все открытые книги

Question

Я пытаюсь скопировать один лист из одной рабочей книги во все открытые рабочие книги.

Книги, в которые я хочу скопировать этот лист, находятся во многих разных папках, но я планирую найти их все и открыть все.

Используя Excel 2010, я могу сделать это вручную для каждой открытой книги, щелкнув правой кнопкой мыши по листу - переместить или скопировать - выбрать ОДНУ из открытых книг ... то, что я пытаюсь выполнить, эквивалентно выбору ВСЕХ открытых книг. Скопированные листы могут быть размещены в конце существующих листов.

Лист, который я хочу скопировать в другие книги, содержит ссылки на другие листы в той же книге, но другие книги, в которые этот лист будет скопирован, уже имеют лист с таким же именем, так что, вероятно, это не проблема?

Спасибо!

Answer 1

Нашли решение: Этот макрос копирует активный лист во все открытые книги, кроме той, в которой он находится:

Dim wb As Workbook Dim Sh As Worksheet

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