---

Hallo,
ich möchte innerhalb einer Exceltabelle ein Tabellenblatt kopieren, nachdem ich das ExcelWorkbook, die Sheets und letztendlich das betreffende Sheet einer Variablen zugewiesen haben hat folgendes nicht so ganz funktioniert:

(vlax-invoke-method sheet 'Copy)

Als Ergebnis habe ich eine neue Exceldatei mit dem kopierten Tabellenblatt.

Aus der VBA-Hilfe habe ich folgendes zu der Copy-Methode:
WorkSheets(1).Copy After:=Worksheets(Worksheets.Count)

Da wird dann das Tabellenblatt(1) nach dem letzten Tabellenblatt eingefügt. Wie muss ich das Argument "After:=..." in LISP verwenden???

Bin wie immer für jeden Tip dankbar.

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

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

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

---

Hallo Jörn,
dann schau mal was du dafür benötigst. Ich denke aus den Zeilen die ich hier mal eben zusammengeschoben habe kannst du alles nötige ersehen.

Code:

---

(setq Excelappli (vlax-get-object "excel.application"))
(setq Sheet (vlax-get-property
(vlax-get-property Excelappli "ActiveWorkbook")
"ACTIVESHEET"
      )
)
(setq xlsSheets (vlax-get-property Excelappli "Sheets"))

;Hier solltest du entnehmen können was du brauchst;
(vlax-for for-item xlsSheets
(vlax-invoke-method Sheet 'Copy for-item)
)

---

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

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Hi,

ungetestet. Habe ich bei einem kurzen Scan über meine Platte gefunden, vielleicht kannst du damit etwas anfangen:
(vlax-invoke-method ExcelSheet 'Copy "After:=Sheets(1)")

Gruß
CADchup

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

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

---

Hallo, es funzt!
@Wolfgang: mit Deinen Codeschnipseln bin ich weitergekommen:
(vlax-invoke-method sheet 'Copy nil sheet);;;fügt nach dem Sheet ein.
(vlax-invoke-method sheet 'Copy sheet);;;fügt vor dem Sheet ein.

@CADchup:
(vlax-invoke-method ExcelSheet 'Copy "After:=Sheets(1)")
Bei den Zeilen kommt nur den Meldung, daß die Methode nicht ausgeführt werden kann.

vielen Dank an Euch

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

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

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