---

tabelle.dwg

Hallo Zusammen,

in beiliegende DWG wurde eine EXCEL-Tabelle eingefügt.
Ist es möglich die Werte dieser Tabelle mit LISP auszulesen ?

Gruß
Jo

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

---

Hier nur so ein Gedanke liefert das Ergebnis von Zeile 1 Spalte 1.

Code:

---

(progn
  (command "OLEopen")
  (if (and (setq Excelappli (vlax-get-object "excel.application"))
  (vlax-get-property Excelappli "ActiveWorkbook")
      )
    (progn
      (if (setq
    xlsSheet (vlax-get-property
      (vlax-get-property Excelappli "ActiveWorkbook")
      "ACTIVESHEET"
    )
  )
(progn
  (if (setq ExcelUsedRange
    (vlax-variant-value
      (vlax-get-property
(vlax-get-property
  xlsSheet
  "UsedRange"
)
"VALUE"
      )
    )
      )
    (progn
      (setq Variant_aus_Excel
    (vlax-safearray-get-element
      ExcelUsedRange
      1
      1
    )
      )
    )
  )
)
      )
    )
  )
)

---

------------------
Gruß Wolfgang

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

---

Danke Wolfgang.
Das hilft mir weiter.
Gruß
Jo

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