![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программно установить ActiveSheet [D7, XP]
DimDim © (2007-06-05 22:32:00)Уважаемые Мастера, что-то я перегрелся!
Передаю данные в Excel. Как программно в активной книге перейти на другую страницу (сделать ее ActiveSheet)?
Заранее спасибо...
Loginov Dmitry (2007-06-05 23:51:00) [1]> Никак нет!
>
> Вот моя процедура подключения:
и что от этого меняется?
Работай через OLE, проблем меньше будет. Особенно с переходом на новые версии Delphi.
Примеры тут:
http://delphiworld.narod.ru/_tech_.html
(ветка OLE Automation MSOffice)
DimDim (2007-06-05 23:37:00) [2]> Наверно потому что используешь уродские компоненты со вкладки 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;
Loginov Dmitry (2007-06-05 23:29:00) [3]Наверно потому что используешь уродские компоненты со вкладки Servers
DimDim (2007-06-05 23:17:00) [4]Так и пытался делать во всех возможных комбинациях.
Дает ошибку: "Undeclared identifier 'Activate'".
В uses подключены comobj и OleServer.
Loginov Dmitry (2007-06-05 22:56:00) [5]Excel.Sheets['ИМЯ_ЛИСТА'].Activate;
либо
Excel.Sheets[ИНДЕКС_ЛИСТА].Activate;