Excel Datei importieren

[BrunoT]

Hallo HartiMcFly,

folgender Code funktioniert bei mir:

Delphi-Quellcode:

uses ExcelXP, OleServer; 

Var
  s:string;
  excel: TExcelApplication;
  wb: _WorkBook;
  ws: _WorkSheet;
  lcid: INTEGER;

....

PROCEDURE TForm.Button1Click(Sender: TObject);
begin
  lcid := GetUserDefaultLCID;
  excel := TExcelApplication.Create(Form);
  excel.Connect;
  opendialog1.Filter:= 'Exceldateien (*.xls)|*.XLS';
  IF not  opendialog1.Execute THEN exit;
   s:= opendialog1.FileName;
  // Exceldatei laden (test.xls)
  wb := excel.Workbooks.Open(s, emptyParam, emptyParam, emptyParam, emptyParam,
  emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
  emptyParam, emptyParam,emptyParam, emptyParam,lcid);

  // erstes Worksheet auswählen
  ws := wb.Sheets[1] as _WorkSheet;
  // Feld A1 ausgeben
  ShowMessage(ws.Cells.Item[1,1].TEXT);
  // Hier in dein Grid übergeben
...
  wb.Close(FALSE, emptyParam, emptyParam, lcid);
  excel.Quit;
end;

viel Erfolg!

BrunoT