Excel

← →
Alibaba © (2003-10-01 10:48) [0]

Привет, мастера.

Как мне определить запущен ли Excel?

← →
DVM © (2003-10-01 10:52) [1]

FindWindow()

← →
Е-Моё имя © (2003-10-01 11:07) [2]

в списке процессов поискать

← →
Игорь Шевченко © (2003-10-01 11:08) [3]

GetActiveOleObject("Excel.Application") ?

← →
Alibaba © (2003-10-01 11:22) [4]

> Игорь Шевченко © (01.10.03 11:08) [3]

Функция возвращает результат типа IDispatch
Что мне с ним дальше делать?
Как мне узнать True или False?

← →
Игорь Шевченко © (2003-10-01 11:26) [5]

Alibaba © (01.10.03 11:22)

function IsExcelActive : Booelan;
var
W : Variant;
begin
W := GetActiveOleObject ("Excel.Application");
Result := not VarIsNull(W);
end;

← →
Alibaba © (2003-10-01 11:43) [6]

>Игорь Шевченко © (01.10.03 11:26) [5]

Если Excel есть - работает.
Если нет - выдает ошибку "Operation unavailable".
Я это обощел:

procedure TfrmMain.Button1Click(Sender: TObject);
var W : Variant;
begin
try
W := GetActiveOleObject ("Excel.Application");
if VarIsNull(W) then label1.Caption:="NO" else label1.Caption:="OK";
except
label1.Caption:="Error";
end
end;

Мне необходимо только знать есть он или нет.
Спасибо.

← →
Игорь Шевченко © (2003-10-01 11:48) [7]

try
W := Get...
except
W := NULL;
end;

← →
Alibaba © (2003-10-01 12:00) [8]

Да, так проще всего.
Я сначала думал что, изначально, если ничего не присваивать переменной W - она содержит NULL.

Попробовал:
try
W := GetActiveOleObject ("Excel.Application");
except
end
if VarIsNull(W) then label1.Caption:="NO" else label1.Caption:="OK";

Ничего подобного!
Необходимо именно присваивать
...
except
W := NULL;
...

Если ничего не присваивать варианту, он содержит Unassigned

Собственно, зачем мне это надо...

Использую TxlReport.
Как то он нестабильно работает... (или у меня руки кривые)

То выгружает в Excel, то не выгружает: ошибка "Floating point overflow"

Очень долго борюс с этой проблемой.
Стал замечать, что ошибка возникает, когда нет открытого Excel.

Посоветуйте, как правильно работать с TxlReport.

Да, задавал уже много раз... :((
Ни ответа ни привета.

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