EXCEL-Vorlage über BDS befüllen/speichern

Re: EXCEL-Vorlage über BDS befüllen/speichern

tfelber hat geschrieben:Hallo zusammen,

nachdem ich 2 Tage vergeblich nach hilfreichen Infos recherchiert ....

Danke und Gruß

Tobias

Vielleicht hilft Dir dieses Beispiel, habe es mal gefunden:

REPORT TEST_EXCEL.

* Durchführen einer Berechnung in einem Excel-Arbeitsblatt.
*
* Erstellen einer Excel-Datei, in der in Zelle
* C1 die Formel "=A1+B1" steht.
* Die Zellen A1 und B1 werden durch das Programm übergeben.
* Die Zelle C1, in der dann das Ergebnis steht, wird wieder ausgelesen
* und ausgegeben.
*

* Excel-Sheet
PARAMETERS: var_file(30) DEFAULT 'C:/temp/testole' LOWER CASE.
* Ergebnis
DATA: result(50).
TYPE-POOLS ole2 .
* Handles für OLE Objekte
DATA:
h_excel TYPE ole2_object, " Excel object
h_book TYPE ole2_object, " list of workbooks
h_active_window TYPE ole2_object,
cell_out TYPE ole2_object, " cell
cell_in TYPE ole2_object. " cell
*----------------------------------------------------------
START-OF-SELECTION.
* start Excel
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
* Excel nicht sichtbar ausführen
SET PROPERTY OF h_excel 'Visible' = 0.
* Arbeitsblatt auswählen
CALL METHOD OF h_excel 'Workbooks' = h_book.
* bestehendes File öffnen
CALL METHOD OF h_book 'OPEN'
EXPORTING
#1 = var_file.

*-----------------------------------------------------------
* 1. Zelle, an die Wert übergeben wird (A1)
CALL METHOD OF h_excel 'Cells' = cell_out
EXPORTING
#1 = 1 "Zeile
#2 = 1. "Spalte
* Zellinhalt A1 setzen
SET PROPERTY OF cell_out 'Value' = '200'.
*-----------------------------------------------------------
* 2. Zelle, an die Wert übergeben wird (B2)
CALL METHOD OF h_excel 'Cells' = cell_out
EXPORTING
#1 = 1 "Zeile
#2 = 2. "Spalte
* Zellinhalt B1 setzen
SET PROPERTY OF cell_out 'Value' = '500'.
* Object freigeben
FREE OBJECT cell_out.
*-----------------------------------------------------------
* Zelle, aus der Ergebnis gelesen wird (C1)
CALL METHOD OF h_excel 'Cells' = cell_in
EXPORTING
#1 = 1 "Zeile
#2 = 4. "Spalte
* Zellinhalt lesen
GET PROPERTY OF cell_in 'Value' = result.
* Objekt freigeben
FREE OBJECT cell_in.
* Excel beenden
*-----------------------------------------------------------------------
* see http://support.microsoft.com/default.as ... ;de;503541
* Close without saving
* get active window
CALL METHOD OF h_excel 'ACTIVEWINDOW' = h_active_window.
* set active_window visible
SET PROPERTY OF h_active_window 'VISIBLE' = 1.
*-----------------------------------------------------------------------
* close active_window without saving
CALL METHOD OF h_active_window 'CLOSE'
EXPORTING #1 = 0.
* close Excel
CALL METHOD OF h_excel 'QUIT'.
FREE OBJECT: h_excel, h_active_window.

WRITE: / 'Ergebnis der Berechnung in Excel:', result.

gruss

gerhard

Re: EXCEL-Vorlage über BDS befüllen/speichern

tfelber hat geschrieben:Gibt es vielleicht von andere 'Stelle' noch einen konkreten BDS-Ansatz?

So ganz sicher bin ich mir, zwar nicht was genau du jetzt suchst, aber vieleicht wird dir

hier zu BDS oder aber
hier zu Ole2 oder aber
hier zum Document Viewer geholfen.