Hallo zusammen,

hab hier mal wieder ein kleines Problemchen. Steh irgendwie auf dem Schlauch. Ist wahrscheinlich nur ne Kleinigkeit.

Ich lese über meine Software eine Excel Datei ein und übergebe diese Daten einem Treeview. Diese Excel Datei hat 3 Tabellenblätter.Ich habe als Beispiel den Code von http://www.swissdelphicenter.ch/de/showcode.php?id=1728 übernommen. Ich denke dem einen oder anderem sollte dieser Code bekannt sein. Die Daten für mein Treeview stehen im Tabellenblatt 1. Die Daten für meine anderen Daten stehen in Blatt 2.

Nun zu meinem Problem. Wenn ich die Exceldatei mit Excel öffne und nicht explizit Blatt 1 aktiviere und dann speichere, bekomm ich beim einlesen eine Fehlermeldung da Blatt 2 bzw 3 aktiv ist und nicht Blatt 1. Wenn ich Blatt 1 aktiviere und speicher funktioniert das Laden des Treeviews ohne Probleme.

Wie realisere ich es, mit dem Code von http://www.swissdelphicenter.ch/de/showcode.php?id=1728, das ich auf eine spezielles Blatt zugreifen kann.
Wo muss ich wem was übergeben (Tabellenblatt)
Hab leider nichts gefunden und all meine Versuche schlugen fehl.

Wäre super wenn mir einer kurz ne Gedankenstütze geben könnte.

Danke euch allen für eutre Hilfe schon mal im vorraus.


Grüsse

Reicht Dir das:

markieren

Delphi-Quellcode:

  sheet:=1;
  excel.visible:=true; { visible nur für test-zwecke }
  excel.workbooks.Open(Filename:=datei);
  excel.activeworkbook.sheets[sheet].activate;

Gruß
K-H

http://www.delphipraxis.net/13873-excel-auslesen.html

Dieser Forumsbeitrag kann dir hoffentlich helfen. Wenn ich das richtig verstanden habe, wird dort im ersten Beitrag nämlich eine bestimmte Tabelle ausgewählt.

Die Anweisung
Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1]; setzt eigentlich das Tabellenblatt auf das erste Blatt und sollte auch so funktionieren. Ggf. hilft ein
Sheet.Activate;

Hi Zusammen,

wow gerade mal 15 Minuten vergangen und schon soviele Antworten bin begeistert. Ich merke
das ein aktivate fehlen könnte. Werde es heute Abend mal testen und geb dann bescheid.

Ich sag schon mal ein riesen Dankeschön an euch alle.

Grüsse

Hi zusammen,

wie versprochen melde ich mich nochmal.

Sheet.Activate; brachte den gewünschten Erfolg

Danke euch allen