Excel Datei importieren

[HartiMcFly]

Hallo,

ich habe mehrere sehr umfangreiche Excel Dateien, die ich über ein Stringgrid in einer Firebird Datenbank schreiben möchte. Das Auslesen des Stringgrids in die Datenbank ist kein Problem.
Mein Problem ist das einlesen der Excel Daten in das Stringgrid.
Ich brauche nur verschiedene Felder und nicht alle Daten aus den Dateien.
Ich habe sonst immer mit dem EMS Quick Import gearbeitet. Leider kommt diese Komponente nicht mit meinen Datein klar. Kennt ihr andere Import Tools für Delphi?

Danke Patrick

[Bernhard Geyer]

TMS-Software -> "Flexel VCL" oder selbst per OLE einlesen.

[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

[HartiMcFly]

Danke für die Antwort.
Per OLe wird für mich doch etwas schwer werden.
Da ich doch noch etwas neuer dabei bin.
Gibt es auch eine Testversion von dem was du mir gerade genannt hast?

Danke

[Bernhard Geyer]

Zitat:

Zitat von HartiMcFly

Gibt es auch eine Testversion von dem was du mir gerade genannt hast?

AFAIK ja. Einfach auf der Seite mal suchen.

[HartiMcFly]

Kann es sein, dass bei einer Excel Datei, di aus zu vielen Formeln und Berechnungen entsteht,
es Schwierigkeiten gibt, diese zu importieren?

[Klomeister]

Ich hab da das Probelm, dass Delphi ExcelXP nicht kenn und somit auch TExcelApplication usw. nicht. Ich hab Office XP instaliert, kann mit einer helfen?

[mkinzler]

Welche Delphiversion?

[Klomeister]

Hab delphi 2005

[mkinzler]

Vielleicht die PE? Weil die Komponenten müßten dabei sein.
Sonst hat Lemmy hier ein Tut ohne diese (per OLE) geschrieben:http://www.dsdt.info/tutorials/automation/