OLE Problem: Excel-Sheet kopieren

[Carmen1741]

Hallo,
ich hoffe jemand kennt sich mit OLE aus und kann mir helfen.

Mit folgendem Abap Code habe ich bereits Excel geöffnet und eine Vorlagedatei (File) geladen, die sich nun in 'Tabelle1' befindet.
Diese möchte ich gerne duplizieren, d.h. nach 'Tabelle2' kopieren.

create object excel 'Excel.Application'.
Set property of excel 'VISIBLE' = 1.
call method of excel 'WORKBOOKS' = workarea.
CALL METHOD OF workarea 'OPEN' EXPORTING #1 = FILE.
get property of excel 'ACTIVEWORKBOOK' = workarea.

Alternativ würde es mir auch reichen den Inhalt von 'Tabelle1' via 'Copy and Paste' mit OLE nach 'Tabelle2' zu kopieren.

Wie muß der Code dafür aussehen

Vielen Dank für Eure Hilfe

Schöne Grüße
Gripsmaker

[Vivien3006]

folgende zusätzliche Zeilen müssten ausreichen:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.         call method of excel 'ACTIVEWORKBOOK' = actbook.
2.         call method of actbook 'WORKSHEETS' = worksheets.
3.         call method of worksheets 'COPY'.
4.  

GeSHi ©

Damit wird die aktuelle mappe auf eine neue kopiert. hoffe das ist was du gesucht hast. (actbook und worksheets sind objekte vom typ OLE2_OBJECT).

[Carmen1741]

Hi,
vielen Dank für Deine Antwort.
Leider hilft mir das noch nicht so richtig weiter.
Dein Coding kopiert die ganze Mappe (im übrigen auch gut zu wissen )

Ich möchte aber nur ein Tabellenblatt kopieren, z.B. 'Tabelle1' und zwar innerhalb einer Mappe.

Wäre super wenn Du mir auch dabei helfen könntest.

Gruß
Gripsmaker

[Carmen1741]

Endlich , durch ausprobieren und div. postings in einem anderen Forum hab' ich es endlich rausbekommen.
Möchte Euch die Lösung natürlich nicht vorenthalten - hier ist sie:

Call Method Of Excel 'SHEETS' = work_copy
Exporting #1 = 'Tabelle3'.

Call Method Of Excel 'SHEETS' = workarea
Exporting #1 = 'Tabelle1'.

Call Method Of workarea 'ACTIVATE'.
Call Method of workarea 'COPY' = work_copy Exporting #1 = work_copy.

Dadurch wird mein Sheet 'Tabelle1' kopiert und vor dem Sheet 'Tabelle3' eingefügt.
So ganz begriffen habe ich den Code zwar nicht, aber es funktioniert.

Gruß
gripsmaker