Подскажите, пожалуйста (делаю Excel-отчет и необходимо скопировать страницу)

Катя123456789

Дата: 11.11.2009 09:02:54

Здравствуйте,
Я в Access делаю Excel-отчет и необходимо скопировать страницу. Сделать эту нужно в программном коде. Пробовала
EA.Sheets("Детали").Copy
EA.Sheets.Add
EA.ActiveSheet.Paste ,
Выдает ошибку. Что я неправильно делаю?

T_Alex_G

Дата: 11.11.2009 10:49:02

попробуйте так

excel_.Application.Visible = True 
excel_.Parent.Windows(1).Visible = True
excel_.Worksheets(1).Copy excel_.Worksheets(2)

nrg_fly

Дата: 12.11.2009 10:24:18

Катя123456789

я руками записал макрос того, что вам было нужно и вот что у меня получилось (плюс указатель на объект Excel Application EA):

EA.Cells.Select
EA.Selection.Copy
EA.Sheets("Sheet2").Select
EA.ActiveSheet.Paste

я думаю, что проблема в вашем коде, когда вы после копирования добавляете новую страницу, а потом делайт пейст. Добавьте сперва новую страницу, а потом в первоначальной делайте копию, переходите на новую страницу и делайте смело пейст.

Дата: 12.11.2009 11:12:58

В Экселе я бы сделал так:

Sheets("Детали").Copy Before:=ActiveSheet

Не знаю, сработает ли это в Акцесс - попробуйте.

Катя123456789

Дата: 12.11.2009 15:35:55

Сделала как посоветовал nrg_fly только вместо
EA.Sheets("Sheet2").Select
надо написать
EA.Sheets.Add
Спасибо