GetActiveOleObject

← →
Saska (2005-01-20 11:32) [0]

День добрый, мастера.
Для получения активного Ёкселя использую следующий код:
aExcelApp := Null; try aExcelApp := GetActiveOleObject("Excel.Application"); except aExcelApp := Null; MessageBox(0, PChar("íå óäàåòñÿ ïðèñîåäèíèòüñÿ ê Excel"), PChar("Îøèáêà"), MB_OK); exit; end;
Все хорошо, если в этот момент открыт один Ёксель, а если не один, то таким образом, я получу, грубо говоря первый попавшийся. Вопрос: можно ли как-то дифференцировать получение объектов, т.е. указать какой именно из запущщеных экселей нужен (а точнее не брать любой, кроме одного, созданного ранее как ExcelApp := CreateOleObject("Excel.Application"))?
Спасибо.

← →
Saska (2005-01-20 14:27) [1]

ап!

← →
GanibalLector © (2005-01-20 21:41) [2]

http://delphimaster.net/view/10-1105835658/

← →
YurikGL © (2005-01-20 22:09) [3]

> GanibalLector © (20.01.05 21:41) [2]

Если я правильно понял, то вопрос стял другой...
Если одновременно запущено несколько ole-серверов, как подключиться к конкретному....

Честно говоря, все, что приходит на ум - либо не допускать такого, либо однажды подсоединившись отсоединяться только по завершению работы...

← →
GanibalLector © (2005-01-21 01:50) [4]

>Если я правильно понял, то вопрос стоял другой...
А я вот,так не считаю.См.[0]
З.Ы.Хотя,я пьяный сегодня.Причем ужасно ;)
З.З.Ы.YurikGL-мой друг ;)

← →
GanibalLector © (2005-01-21 01:51) [5]

Кстати,
> aExcelApp := Null;
Низя так...Unassigned рулит!

← →
GuAV © (2005-01-21 02:31) [6]

GanibalLector © (21.01.05 1:51) [5]

^Какая нафик разница:

function Unassigned: Variant;
begin
_VarClear(TVarData(Result));
end;

function Null: Variant;
begin
_VarNull(TVarData(Result));
end;

procedure _VarNull(var V: TVarData);
begin
_VarClear(V);
V.VType := varNull; // это и всё отличие
end;

← →
GanibalLector © (2005-01-22 01:50) [7]

>Интересное о себе
F1 - интересно, Ctrl+Click - ещё интереснее,
но самое интересное - F7/F8, особенно в сочетании с Ctrl+Alt+C

Ну,мне в лом было.Спасибо,что разрулил ;)
З.Ы.Сегодня я трезвый :)

← →
GuAV © (2005-01-22 02:20) [8]

GanibalLector © (22.01.05 1:50) [7]
З.Ы.Сегодня я трезвый :)
http://delphimaster.net/view/10-1105835658/
пост [16]

2 GuAV © (22.01.05 02:20) [8]
Если ты на счет своего обещания.Согласен,сдержал слово.Я твоих постов не видел.

Ну,а если на счет пЫва,то с тобой всегда рад ;)

Я на счёт пЫва, только отвечай не сюда а на мыло.

Вроде бы, через моникеры получалось сделать.

GetActiveOleObject Найти похожие ветки