Prüfen ob bestimmte Datei in Excel geöffnet ist

[mmw]

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ß