Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.01;
Скачать: CL | DM;

Вниз

Программно установить 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


 
DimDim ©   (2007-06-05 23:37) [4]

> Наверно потому что используешь уродские компоненты со вкладки 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:51) [5]

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.07.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
15-1180607764
ZeroDivide
2007-05-31 14:36
2007.07.01
Asus - ацтой


2-1181276047
KJ
2007-06-08 08:14
2007.07.01
Выделить строку ListView целиком


15-1180606300
Kolan
2007-05-31 14:11
2007.07.01
Статья на RSDN. Реализовал написаное, интересно ваше мнение.


15-1180601757
Petr V.Abramov
2007-05-31 12:55
2007.07.01
как вернуть деньги за софт?


15-1180537182
Орион
2007-05-30 18:59
2007.07.01
3DES unit