Как скопировать определенные листы из одной книги в другую?

[Toffifee]

Здравствуйте!
Помогите пожалуйста решить вот такую задачу:
Как скопировать определенные листы из одной книги в другую?
Просто скопировать, ничего не меняя. Но надо чтоб именно макросами. Чтоб не вручную человек это делал. Искала в темах ничего не нашла...
Заранее спасибо!

[Screame]

Добавьте пример, тогда Вам быстрее помогут!

[Toffifee]

Не могу выложить оригинал файла, он слишком огромный и к тому же главное там данные. Но вот примерно.

Из книги "Отчет_за_месяц" в книгу, назовем к примеру её "Выборка", нужно скопировать с помощью макросов листы "Итог", "Касса" и "Анализ прибыли".
Файл приложила

Отчет_за_месяц.rar
Помогите пожалуйста, очень нужно сделать!

[Hugo121]

Одна строка, записано рекордером:

Sub Macro1()
'
' Macro1 Macro
'

    Sheets(Array("Касса", "Итог", "Анализ прибыли")).Copy Before:=Workbooks("Book1" _
        ).Sheets(1)
End Sub

[Toffifee]

Спасибо, сделала вот так вот:
Sub Создать_Ежедневный_Отчет()
'
' Создать_Ежедневный_Отчет Макрос
'
'
Sheets(Array("КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ")).Select
Sheets("1С И ПРОЧЕЕ").Activate
Sheets(Array("КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ")).Copy
ActiveWorkbook.SaveAs Filename:="C:\Ежедневный отчет.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub


А как это оптимизировать под 2007 Excel?
А то вот такое выдает:
ошибка.JPG

[Hugo121]

Это потому, что в xls сохраняете вероятно листы из xlsx.
Запишите рекордером сохранение в формате 2007 экселя и потом исправьте по образцу в этом коде.
Я не подскажу синтаксис - нет сейчас 2007 под рукой.

[Toffifee]

Спасибо, попробую )
Невнимательная я, и не заметила что с 2007 на 2003 сохраняю....

[Hugo121]

Такие строки и у меня при записи рекордером были, но я их удалил как лишние:

Sheets(Array("КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ")).Select
Sheets("1С И ПРОЧЕЕ").Activate

И про то, что нужно копировать в новую книгу, Вы не сказали

[Toffifee]

Да да, нужно в другую книгу копировать, в новую.
Причем это только пол беды ))))
Надо ещё в эту же новую книгу из другого файла тоже копировать один лист, я тут перерыла форум и вроде нашла что то похожее.
http://www.programmersforum.ru/showthread.php?t=27210
Попробую сделать.

[Hugo121]

Там не совсем то, но можно что-то подобрать, чтоб добавить в этот код (всё ещё xls):

Sub Создать_Ежедневный_Отчет()
'
' Создать_Ежедневный_Отчет Макрос
'
'
Dim wb As Workbook
Sheets(Array("КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ")).Copy
Set wb = ActiveWorkbook

'тут дополняем wb листом из другой книги любым способом, _
но учтите, что свободных листов там пока нет

wb.SaveAs Filename:="C:\Ежедневный отчет.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub