Excel auslesen

[toms]

Hi,

Probier's mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WorkBk: _WorkBook; //  ein WorkBook deklarieren
  WorkSheet: _WorkSheet; //  ein WorkSheet deklarieren
  XLApp: TExcelApplication;
  _lcid: LCID;
begin
  _lcid := GetUserDefaultLCID;
  XLApp := TExcelApplication.Create(Self);
  try
    // Zum Server TExcelApplication verbinden
    XLApp.Connect;
    try
      // WorkBooks zur ExcelApplication hinzufügen
      XLApp.Workbooks.Open('c:\test.xls', emptyParam, emptyParam,
        emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
        emptyParam, emptyParam, emptyParam, emptyParam, EmptyParam,
        _lcid);
      // erstes WorkBook auswählen
      WorkBk := XLApp.WorkBooks.Item[1];
      // erstes WorkSheet definieren
      WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
      // Wer aus Zelle (1,1) anzeigen
      ShowMessage(Worksheet.Cells.Item[1, 1].Value);

      // XLApp.Visible[0] := True;
    finally
      // Server disconnecten
      XLApp.Disconnect;
    end;
  finally
    XLApp.Quit;
  end;
end;