---

hallo zusammen.

mit diesem code kann ich aus excel die inhalte auslesen.
ich möchte allerdings nicht actievesheet benutzen sondern z.B. Tabelle2

"Activesheet" durch "Tabelle2" austauschen geht nicht.
wie heißt es denn richtig?

danke für eure Hilfe die wie immer toll ist.

gruß
theo

;| mx:GetExcelContents

liest die Zell-inhalte der übergebenen Zeilen und Spalten aus

Parameter (ungeprüft):
zeilen (als Liste)
spalten (als Liste)

Bsp.
(mx:GetExcelContents '(2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 ) '(1 2 3 4 5))
(mx:GetExcelContents '(1) '(2))

CADchup, 03-2006 www.CADmaro.de
|;
(defun mx:GetExcelContents (zeilen spalten / excel zellen ergebnisse)
  (if
    (setq excel (vlax-get-object "Excel.Application"))
    (vl-catch-all-error-p
      (setq zellen
              (vl-catch-all-apply
                'vlax-get-property
                (list (vlax-get-property
                        (vlax-get-property
                          excel
                          "ActiveWorkbook"
                        )
                        "ActiveSheet"
                      )
                      "Cells"
                )
              )
      )
    )
  )
  (if zellen
    (mapcar
      '(lambda (zeile / ergebnis)
        (mapcar
          '(lambda (spalte / str)
              (setq ergebnis
                    (if (< 0
                            (strlen
                              (setq str
                                    (vlax-variant-value
                                      (vlax-get-property
                                        (vlax-variant-value
                                          (vlax-get-property
                                            zellen
                                            'Item
                                            zeile
                                            spalte
                                          )
                                        )
                                        'Text
                                      )
                                    )
                              )
                            )
                        )
                      (cons str ergebnis)
                      ergebnis
                    )
              )
            )
          spalten
        )
        (setq ergebnisse (cons (reverse ergebnis) ergebnisse))
      )
      zeilen
    )
  )
  (mapcar 'vlax-release-object (list excel zellen))
  (reverse ergebnisse)
)

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

---

Hi,

ist das schon wieder so lange her...

Verwende statt

Code:

---

(vlax-get-property
                        (vlax-get-property
                          excel
                          "ActiveWorkbook"
                        )
                        "ActiveSheet"
                      )

---

dieses hier:

Code:

---

(vlax-get-property
  (vlax-get-property
    (vlax-get-property
      excel
      "ActiveWorkbook"
    )
    "Sheets"
  )
  "Item"
  "Tabelle2"
)

---

um auf das gewünschte Tabellenblatt zu kommen.

Gruß
CADchup

------------------
CADmaro.de

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

---

Hallo Theo,
anbei ein Code, der erst die Tabellenblätter mit Hilfe von vlax-for durchsucht und diese Sheet-Objekte mit dem Namen in eine Liste packt. Auf die Liste kannst Du dann mit ASSOC zugreifen.

Ist aber nicht getetestet und erklärt nur das Grundprinzip, es werden keine Fehler abgefangen (da müßten normalerweise noch ein paar vl-catch-apply's rein)

Code:

---

;;;Aufruf: (Exceltest "c:\\temp\\MeineExcelDatei.xls")
(defun ExcelTest (dateipfad / EXCEL EXCELWORKBOOK SHEET SHEETLIST SHEETS)
  (if (and
      (setq excel (setq excel (vlax-get-or-create-object "Excel.Application")))
      (setq ExcelWorkbook(vlax-invoke-method (vlax-get-property excel "Workbooks") 'Open dateipfad))
      (setq Sheets (vlax-get-property ExcelWorkbook 'Sheets)))
    (progn
    (vlax-for sheet Sheets
      (setq sheetList (cons (list (vla-get-name sheet)sheet)sheetList)))
    ;;;Zugriff, z.B. auf Tabellenblatt "Tabelle1"
    (setq sheet (cadr (assoc "Tabelle1" sheetList)))
    ;;;Hier kann jetzt auf das sheet zugegriffen werden
    (vlax-invoke-method ExcelWorkbook 'Close :vlax-false)
    (vlax-release-object excel)))
  )

---

Du könntest auch direkt drauf zugreifen, das weiss CADmium aber bestimmt besser (vlax-get-property Sheets 'Item "Tabelle1") => weiß den Syntax gerade nicht so genau, aber so ähnlich war es.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

vielen dank für die hilfe und die fertige defun

gruß
theo

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