еще раз про копирование листов из другой книги

[Acina]

Добрый день!
помогите решить задачу.
Есть файл "паспорт.xls" c 26 листами:
"n1", "n2", "n3", "n4",....."n18","n20"..."n28"
и файл "Шаблон.xls" с листами "4" и "19"

Нужен макрос, который копировал бы листы из шаблона в соответствующие места паспорта

Попытались сами написать макрос, но он не копирует форматы и вставляет не туда куда надо.
На самом деле таких файлов как "паспорт" 300 шт. все лежат в одной папке и во все надо скопировать эти несчастные 2 листа из шаблона.

Помогите.


Sub ВставитьЛистыИзШаблона()

Dim book As Workbook
Dim cbook As Workbook
Dim nsheet As Worksheet
Dim prevsheet As Worksheet
Set cbook = ActiveWorkbook
Set prevsheet = ActiveSheet

iFullName = "C:\Паспорт\Шаблон.xls"

Set book = Workbooks.Open(iFullName)
Set nsheet = cbook.Sheets.Add(Type:=xlWorksheet)
nsheet.Name = "n4"
book.Sheets("4").Range("A1:M10000") .Copy Destination:=nsheet.Range("A1")

book.Close False

prevsheet.Activate

End Sub

[Hugo121]

Так копируйте листы целиком. Не содержимое, а сами листы.

Вот записал, можно творчески использовать (макрос вроде грамотно написан, должны справиться):

Sub Macro1()
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy Before:=Workbooks("Book2").Sheets(2)
End Sub

И если обрабатывать сразу все 300 паспортов, то шаблон закрывать незачем - задали через set две ссылки на нужные листы, затем в цикле открывайте нужные файлы, копируйте в них листы по ссылке, закрывайте. Потом в конце закроете шаблон.

[Acina]

очень жаль, ничего не получается

Sub ВставитьЛистыИзШаблона()

Dim book As Workbook
Dim cbook As Workbook
Dim nsheet As Worksheet
Dim prevsheet As Worksheet
Set cbook = ActiveWorkbook
Set prevsheet = ActiveSheet

iFullName = "C:\Паспорт\Шаблон.xls"

Set book = Workbooks.Open(iFullName)
'не поняла, нужно добавлять в паспорт пустой лист или нет?
'и как его поставить на 4 место

Set nsheet = cbook.Sheets.Add(Type:=xlWorksheet)
nsheet.Name = "n4"


'book.Sheets("4").Range("A1:M10000" ).Copy Destination:=nsheet.Range("A1")
'book.Sheets("4").Range("A1:M10000" ).Copy Format:=nsheet.Range("A1")

book.Sheets("4").Select

book.Sheets("4").Copy Before:=Workbooks("C:\Паспорт\Паспо рт1.xls").Sheets(4)

'book.Close False

prevsheet.Activate

End Sub

[Hugo121]

Я думаю, ошибка тут - тут имя файла без пути нужно указывать:

book.Sheets("4").Copy Before:=Workbooks("Паспорт1.xls").Sheets(4)

и может быть без расширения.
Но этот файл уже должен быть открыт.
Для открытия нужно цикл написать, например на Dir().
А лист добавлять не нужно, если Вы его целиком копируете.
Да и book.Sheets("4").Select лишнее, это рекордерово

[Acina]

спасибо, кажется получилось
теперь попробую скопировать на все файлы

[Hugo121]

Мне без примера код писать не получится, поэтому прикину алгоритм макроса:
1.открыли файл "C:\Паспорт\Шаблон.xls", задали ссылки на два нужных листа.
2.в цикле открываем файл из нужной папки (папку прописать в коде или выбрать выше в диалоге)
3.копируем в этот файл два листа, файл сохраняем/закрываем, идём опять п.2, пока не закончатся файлы
4.закрываем "C:\Паспорт\Шаблон.xls"

И "скопировать на все файлы" тут в общем нечего, пусть этим занимается код. Мне кажется, Вы что-то иначе собирались делать...