Delphi 7 und MS Excel

[Jens Schumann]

Hallo,
probiere es mal so:

Delphi-Quellcode:

procedure TForm1.CloseExcel;
begin
  ExcelWorksheet.Disconnect;
  ExcelWorkbook.Disconnect;
  ExcelApplication.AskToUpdateLinks[FLCID]:=True;
  ExcelApplication.Quit;
  ExcelApplication.Disconnect;
end;

procedure TForm1.OpenExcel;
begin
  FLCID:=GetUserDefaultLCID;
  ExcelApplication.Connect;
  ExcelApplication.Visible[FLCID] := True; // False wenn Excel unsichtbar sein soll
  ExcelApplication.UserControl := True;    // False wenn Excel unsichtbar sein soll
  ExcelApplication.DisplayAlerts[FLCID]:=False;
  ExcelApplication.AskToUpdateLinks[FLCID]:=False;
end;

if OpenDialog.Execute then 
        begin 
          fileName:= OpenDialog.Filename; 
          

          if fileName > '' then 
            begin 
              ExcelApplication.Workbooks.Open(fileName,EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam,FLCID); 

          else 
            ExcelApplication.Workbooks.Add(EmptyParam,FLCID); 
  ExcelWorkbook.ConnectTo(ExcelApplication.ActiveWorkBook);
  ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets.Item['Tabelle1'] as _WorkSheet);        
        end;

FLCID ist ein privates Feld des Formulars.
Mit OpenExcel Excel starten und mit CloseExcel Excel schließen und beenden.