Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Datenimport aus Excel (https://www.delphipraxis.net/49231-datenimport-aus-excel.html)

superstar025 7. Jul 2005 13:34

Datenbank: DB2 • Zugriff über: ODBC

Datenimport aus Excel
 
Hallo

habe folgende Frage.
Wie greif ich Daten aus einer Excel Tabelle ab.
Datenimport aus Excel!
Mein Problem liegt im Moment daran das die Excel Tabelle(Arbeismappe) aus 5 einzelnen Tabellen (Registerkarte).
Delphi soll dann wenn ich auf Button 3 klicke auch die Daten aus Registerkarte 3 importieren.
Kann mir jemand weiter helfen?¿

:coder2:

mfg
matthias

Helld_River 7. Jul 2005 15:59

Re: Datenimport aus Excel
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz