Thema: Delphi Datenimport aus Excel

Einzelnen Beitrag anzeigen

Helld_River

Registriert seit: 2. Jan 2003
Ort: Hürth
136 Beiträge
 
Delphi 2010 Professional
 
#2

Re: Datenimport aus Excel

  Alt 7. Jul 2005, 15:59
hi !
Versuch doch mal folgendes:

Delphi-Quellcode:
var
  LCID : integer; //ID des aktuell eingeloggten Users
    Wbk : _Workbook; //ExcelWorkbook
    WS : _Worksheet; //ExcelWorksheet
...
begin
  ExcelApp.Connect;
  //die ID des aktuell unter Windows eingeloggten Users bestimmen
  LCID := GetUserDefaultLCID;
  //aktuelles Workbook holen
  Wbk :=excelApp.Workbooks.Open(Edit1.Text, emptyParam, emptyParam, emptyParam, emptyParam,
                          emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
                          emptyParam, emptyParam, lcid);

  //das aktuelle Worksheet der Variablen WS zuweisen
  WS := ExcelApp.Sheets[1] AS _Worksheet;
Hierbei entspricht "Edit1.Text" dem Dateinamen des Exceldokuments !

In der Zeile: "ExcelApp.Sheets[1]" einfach die Zahl austauschen. Hab jetzt keine Ahnung, ob das sauber läuft, aber sp ähnlich hab ich meinen Excel-Importer programmiert, der eine Exceldatei nimmt, in der aktuellen Datei eine temporäre Tabelle anlegt und die Daten des aktiven Sheets, also in meinem Fall des ersten, in die Tabelle importiert !

Gruß, Helld
  Mit Zitat antworten Zitat