Hallo,
eine andere Möglichkeit wäre noch.
Delphi-Quellcode:
var
excel_obj: olevariant;
i: Integer;
begin
excel_obj := GetActiveOleObject('Excel.Application');
for i := 1 to excel_obj.workbooks.count do
if excel_obj.workbooks.item[i].name = 'Mappe1.xlsx' then
showmessage(excel_obj.workbooks.item[i].name+' ist geöffnet');
// excel_obj.Quit;
excel_obj := Unassigned;
end;
der Code ist jetzt nur eine grob Fassung.
Gruß