Программно установить ActiveSheet

← →
DimDim © (2007-06-05 22:32) [0]

Уважаемые Мастера, что-то я перегрелся!
Передаю данные в Excel. Как программно в активной книге перейти на другую страницу (сделать ее ActiveSheet)?
Заранее спасибо...

← →
Loginov Dmitry © (2007-06-05 22:56) [1]

Excel.Sheets["ИМЯ_ЛИСТА"].Activate;
либо
Excel.Sheets[ИНДЕКС_ЛИСТА].Activate;

← →
DimDim © (2007-06-05 23:17) [2]

Так и пытался делать во всех возможных комбинациях.
Дает ошибку: "Undeclared identifier "Activate"".
В uses подключены comobj и OleServer.

← →
Loginov Dmitry © (2007-06-05 23:29) [3]

Наверно потому что используешь уродские компоненты со вкладки Servers

> Наверно потому что используешь уродские компоненты со вкладки Servers

Никак нет!

Вот моя процедура подключения:

var xlApp : TExcelApplication; ... procedure TDM1.ExcelCreate(NewInstance: boolean); begin if not Assigned(xlApp) then begin xlApp.free; xlApp := TExcelApplication.Create(Self); xlApp.AutoConnect:=True; xlApp.Connect; end; end;

> Никак нет!
>
> Вот моя процедура подключения:

и что от этого меняется?

Работай через OLE, проблем меньше будет. Особенно с переходом на новые версии Delphi.
Примеры тут:
http://delphiworld.narod.ru/_tech_.html
(ветка OLE Automation MSOffice)

Программно установить ActiveSheet Найти похожие ветки