Autor Beitrag
Dieter Hammerla
Hält's aus hier
Beiträge: 4



BeitragVerfasst: Fr 08.08.03 09:18 
Hallo,

kann mir jemand sagen, wie ich die Namen der Excel-Arbeitsmappen ermitteln kann?

Ich greife mit OLE / VBA / ActiveX auf Excel zu, kann dort Arbeitsmappen aktivieren (1,2,3, usw...), auf Datenfelder lesend und schreibend zugreifen. Das ist alles OK.

Nun muesste ich aber noch wissen wie die Arbeitsmappen heissen und eventuell wieviele überhaupt im Excel-Dokument vorhanden sind.

Sicher finde ich hier wieder viele Genies die was dazu sagen können.

Danke und viele Grüße
Dieter

Moderiert von user profile iconUGrohne: B-Tag im Titel entfernt (dat geht nit :wink:)
Dieter Hammerla Threadstarter
Hält's aus hier
Beiträge: 4



BeitragVerfasst: Fr 08.08.03 13:57 
Hier meine eigene Antwort, nachdem ich noch weitere Bücher
gewälzt habe:

Zugriff von Delphi3 (Pascal) auf Excel

excel_var := CreateOLEObject('excel.application');
excel_var.Workbooks.Open('D:\_Dateien ab 14.03.2002\Delphi\ueb4\zahlen.xls');
excel_var.Worksheets[2].Activate; // 2. Arbeitsblatt in zahlen.xls wird geöffnet

edit1.text:=excel_var.Worksheets[2].Name; //Name des Arbeitsblattes wir ermittelt
edit2.text:=excel_var.ActiveWorkbook.Name; //Name des Excel-Dateinamen wird ermittelt
edit3.text:=excel_var.ActiveWorkbook.Fullname; // Pfad und Name der Excel-Datei
edit3.text:=IntToStr(excel_var.ActiveWorkBook.Sheets.Count); //Ermittelt Anzahl der Arbeitsblätter in einer Arbeitsmappe