Wie kann ich daten aus excel auslese

[bundy]

:dancer2: Hallo wie kann ich daten aus excel auslese. :dancer2:
Ich habe im Forum schon geschaut aber ich konnte damit nichts anfangen.
Habe folgenden Code:

Bekomme aber immer Fehlermeldung OLE Error:

Delphi-Quellcode:

procedure TForm1.btnOpenFileClick(Sender: TObject); 
var 
  FExcelFilename  : OleVariant; 
begin 
  FExcelFilename:=ExtractFilePath(ParamStr(0))+'Quelle.xls'; 
  ExcelApplication.Workbooks.Open(FExcelFilename,EmptyStr,EmptyStr,EmptyStr, 
                                  EmptyStr,EmptyStr,EmptyStr,EmptyStr, 
                                  EmptyStr,EmptyStr,EmptyStr,EmptyStr, 
                                  EmptyStr,FLCID); 
  ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Item['Quelle.xls']); 
  ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets.Item['Tabelle1'] as _WorkSheet); 

  btnReadCell.Enabled:=True; 
end;

was mache ich falsch ???

[edit=MrSpock]schließendes Code Tag eingefügt[/edit]

[Duffy]

Hallo bundy,
http://www.delphipraxis.net/viewtopi...218&highlight=
bye

[bundy]

Und wie funzt die Componente ?

[Duffy]

Hallo bundy,
installiere die Komponente und schau in den Quelltesxt. Der ist ziemlich selbsterklärend.
bye

[Uncle Cracker]

Kannst dir auch mal das Programm aus diesem Thread angucken:

http://www.delphipraxis.net/viewtopi...062&highlight=

[bundy]

[Error] Unit1.pas(93): Undeclared identifier: 'Range'
[Error] Unit1.pas(104): Undeclared identifier: 'EmptyParam'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'



Diese Fehlermeldungen bekomme ich !

[Jens Schumann]

Hallo bundy,

Zitat:

[Error] Unit1.pas(93): Undeclared identifier: 'Range'

Unit excel2000.pas zum Projekt hinzufügen und mit in die uses Anweisung aufnehmen

Zitat:

[Error] Unit1.pas(104): Undeclared identifier: 'EmptyParam'

Unit Variants in die uses Anweisung mit aufnehmen.

[bundy]

HY danke es funzt.
Die Componente funzt einwandfrei.


:bounce2: Danke :bounce2: DAnke :bounce2: Danke :bounce2: Danke :bounce2: