07.10.2008, 08:26
общий
это ответ
Здравствуйте, Соколов В.В.!
Для копирования в другую книгу необходимо использовать метод Copy, только предварительно её нужно открыть.
Пример привел в приложении.
Для разработки кода в VBA можно пользоваться кодами, формируемыми макросами, т.е. записываем макрос, а потом через редактор VBA читаем и используем его код.
Приложение:
Dim XL, WorkBook_New, Sheet As Object
Set XL = ThisWorkbook ''Наша книга
Set Sheet = ThisWorkbook.ActiveSheet ''Определяем нужный лист активный или указываем имя
Set WorkBook_New = Excel.Workbooks.Open("C:\2.xls") '' Файл в который копировать
Sheet.Activate
Sheet.Select '' Выделяем наш лист
Sheet.Copy After:=WorkBook_New.Sheets(1) '' копируем с признаком After (т.е. после первого листа)
WorkBook_New.Activate
WorkBook_New.Save '' сохраняем новую книгу