Einzelnen Beitrag anzeigen

luckystar85

Registriert seit: 21. Dez 2004
Ort: Rostock
138 Beiträge
 
Delphi 2009 Professional
 
#1

Excel als Variant starten

  Alt 9. Mär 2005, 21:26
Ich möchte gerne Daten aus meinen Programm in Microsoft Excel exportieren. Dazu starte ich Excel wie folgt:

Code:var
Excel : Variant;
begin
try
Excel := GetActiveOleObject('Excel.Application');
except
try
Excel := CreateOleObject('Excel.Application');
except
MessageDlg('Microsoft© Excel konnte NICHT initialisiert werden!' + #13#10 +
'Systemfehler: ' + IntToStr(GetLastError) + #13#10 +
SysErrorMessage(GetLastError), mtWarning, [mbOk], 0);
exit;
end;
end;

Ich möchte das aber nicht mit Excelkomponenten machen.
Doch bei GetActiveOleObject bekommt mein Programm immer eine Exception, weil es das Objekt nicht gibt und erzeugt es dann im except.
Wenn ich aber das GetActiveOleObject weglasse und es immer wieder neu erzeuge habe ich nachher so viele Prozesse laufen.
Ist es auch möglich nur ein Prozess zu starten, ohne Exception?
Michael Klüber
Delphi ist was solides und besteht nicht wie C/C++ Quelltext nur aus Kommentaren.
  Mit Zitat antworten Zitat