---

Hier http://www.theswamp.org/index.php?topic=17140.0  gibt es eine Sammlung von Funktionen für den Zugriff auf Excel.

Ist es damit (bzw. mit einer Erweiterung) möglich, aus eioner gewählten Datei die Namen der einzelnen Blätter auszulesen?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Prinzipiell JA

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CADmium:
Prinzipiell JA

---

Fein. Dann kann ich ja mit der nächsten Frage nicht ganz falsch liegen ... 

Wie geht es denn konkret?
Wenn es jemand weiss, könnte er bitte entsprechende Hinweise oder Codeteile bereitstellen?

Besten Dank

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

gesucht !! gefunden !! und nix verstanden??

nun ja , mal quick &dirty . MEnzi hats da Fehlertoleranter gemacht, aber der Weg sollte auch bei folgendem Code klar sein :

(defun EXCELSHEETNAMES( / FILE EXCLEOBJ WB SHEET NAMES)
  (if(and(setq FILE(getfiled "Excel" "" "xls" 8))
        (setq FILE(findfile FILE))
    )   
    (if(and(setq EXCELOBJ(vlax-get-or-create-object (strcat "Excel.Application")))
          (setq WB(vlax-invoke-method
                      (vlax-get-property EXCELOBJ 'Workbooks)
                      'Open
                      FILE
                  )
          )         
      )
      (progn
        (vlax-for SHEET (vlax-get-property WB 'Sheets)
          (setq NAMES(cons (vlax-get-property SHEET 'Name) NAMES))
        ) 
        (vlax-invoke-method WB 'Close :vlax-false)
        (if (not (vlax-object-released-p WB)) (vlax-release-object WB))
        (vlax-release-object EXCELOBJ)
      )
    )
  )
  (reverse NAMES)
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CADmium:
....und nix verstanden??...

---

Ja, leider. Konnte mich in der letzten Zeit kaum damit beschäftigen.

Herzlichen Dank - es läuft.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP