[Serg2010]

Добрый день!


Сделал по вашему совету скрипт-запись. Получилось.
Прилагаю файл шаблона (Опись.xls), файл списка источника строк (Список.xls), содержащий скрипт, ну и результат работы файл (Опись001.xls).
Теперь, как понял, нужно подредактировать скриптик, т.е. организовать внешний цикл-счётник для увеличения строк 20, и для нумерации файлов другой цикл. Хорошо бы вставить проверку на предмет окончания списка и т.д. Вообщем теперь в бой идут профессионалы :-)

Файлы должны располагаться по пути C:\Скрипт
Текст скрипта (есть и в модуле файла).

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 21.03.2013 (140801)
'

'
ChDir "C:\Скрипт"
Workbooks.Open Filename:="C:\Скрипт\Опись.xls"
Windows("Список.xls").Activate
Range("B1:C20").Select
Selection.Copy
Windows("Опись.xls").Activate
Range("B8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Скрипт\Опись003.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
End Sub