Работа с двумя книгами

[EducatedFool]

Этот код, не работат

А в чём проявляется его неработоспособность?

Возможно, в момент работы макроса не открыта одна из книг: шаблон.xls или тест-28.xls,
или в книгах отсутствуют указанные листы.


Но, скорее всего, причина всё та же...
Читаем внимательно этот пост:

Причина неработоспособности кода кроется в следующем:
В строке
книга("шаблоны").лист("шаблон1").ra nge(cells(1,1), cells(3,33)).copy
Вы пытаетесь скопировать диапазон из книги шаблоны, в то же время обращаясь к ячейкам активной книги, которой является книга рабочия - cells(1,1), cells(3,33).

Замените строку
Шаблон.Range(Cells(1, 1), Cells(16, 33)).Copy РабочийЛист.Cells(1, 1)

на строку
Шаблон.Range(Шаблон.Cells(1, 1), Шаблон.Cells(16, 33)).Copy РабочийЛист.Cells(1, 1)

или, что то же самое, на строку
Шаблон.Range("a1:ag16").Copy РабочийЛист.Cells(1, 1)