OleVariant auf 'nil' prüfen

[Ferber]

Dieser CodeSchnipsel hilft vielleicht. Greife so auf Excel zu.

Delphi-Quellcode:

function TExcel.GetApplication:Variant;
begin
  if VarType(FExcelApp)=varEmpty then
  try
    FExcelApp:=GetActiveOleObject('Excel.Application');
    FExcelApp.Visible:=True;
  except
    FExcelApp:=   CreateOleObject('Excel.Application');
    FExcelApp.Visible:=True;
  end;
  Result:=FExcelApp;
end;