SAP -> Excel (OLE)

SAP -> Excel (OLE)

Hallo zusammen,
ich möchte aus dem R/3 eine bestehende Excel-Tabelle aurufen, Werte an bestimmte Zellen (auf einem bestimmten Arbeitsblatt) übergeben und anschließend bestimmte Zellen (Rechenergebnisse auf einem anderen! Arbeitsblatt) wieder ins R/3 bringen...

1. Ist es korrekt, dass ich den gesamten Ablauf im R/3 abbilden kann, also den Datenexport UND Datenimport (Sicht R/3)?
Oder muss die Übergabe der Ergebnisse von Excel nach R/3 im Excel programmiert werden?

2. Es handelt sich um eine zentral abgelegte Excel-Tabelle. Was ist, falls ein anderer User bereits Zugriff hat. Die Veränderungen sollen im Excel nicht gesichert werden. Kann man die Excel-Datei aus SAP heraus auch schreibgeschütz öffnen?

3. Ich habe schon in allen Foren gesucht, und mit den Info´s auch einen kleinen Testreport "gebastelt" der eine Zelle auf einen Excel-Sheet füllt, aber ich finde leider keine Dokumentation über die existierenden Methoden... Damit meine ich jetzt nicht die F1-Hilfe zum Methodenaufruf, sondern WELCHE Methode muss ich aufrufen um z.B. Werte zu lesen... Im Gui(6.2) fand ich im Programmierumfeld zwar den Eintrag OLE->Objektbrowser, aber die dazugehörige Transaktion SOLO gibt es unter 4.5B noch nicht...

Wer kann mir ein bisschen auf die Sprünge helfen.

Vielen Dank.

Gruss
Oliver

Hallo Enno,

nachdem ich heute Nachmittag nicht mehr weiter gemacht habe, hier nun die meine neuesten Erkenntnisse (Mini-SAP läßt grüssen)...

Den FB ALSM_EXCEL_TO_INTERNAL_TABLE finde ich nicht??? Weder in der Firma auf 4.5B noch auf meinem 6.20 Mini-SAP ???? Die Transaktion 'SOLO' die ich ansprach gibt´s hier auch nicht ????

Also, ich bin auf die transp. Tabelle 'OLELOAD' gestossen. Dort findet man alle Methoden zum Objekt 'EXCEL.APPL'.

Zum Testen habe ich mir im Verzeichnis 'C:\temp_ole' die Datei 'testole.xls' angelegt. In Zelle A4 soll aus SAP ein Wert gesetzt werden. In B4 steht der Wert 'reich' und in C4 werden A4 und B4 verkettet.

Danach habe ich folgendes kleines Programm unter Vorlage des Reports 'RSDEMO01' entwickelt:

REPORT ztestole NO STANDARD PAGE HEADING.

* Excel-Sheet
DATA: var_file(30) VALUE 'C:\temp_ole\testole.xls'.

* Ergebnis
DATA: result(250).


INCLUDE ole2incl.

* handles for OLE objects
DATA: h_excel TYPE ole2_object, " Excel object
h_mapl TYPE ole2_object, " list of workbooks
h_map TYPE ole2_object, " workbook
cell_out TYPE ole2_object, " cell
cell_in TYPE ole2_object, " cell
h_f TYPE ole2_object. " font
*----------------------------------------------------------

* start Excel
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.

* Excel nicht sichtbar ausführen
SET PROPERTY OF h_excel 'Visible' = 0.

CALL METHOD OF h_excel 'Workbooks' = h_mapl.

* bestehendes File öffnen
CALL METHOD OF h_mapl 'OPEN'
EXPORTING
#1 = var_file.

*-----------------------------------------------------------
* Zelle, an die Wert übergeben wird
CALL METHOD OF h_excel 'Cells' = cell_out
EXPORTING
#1 = 4 "Zeile
#2 = 1. "Spalte

* Zellinhalt setzen
SET PROPERTY OF cell_out 'Value' = 'Erfolg'.

*-----------------------------------------------------------
* Zelle, aus der Ergebnis gelesen wird
CALL METHOD OF h_excel 'Cells' = cell_in
EXPORTING
#1 = 4 "Zeile
#2 = 3. "Spalte

* Zellinhalt lesen
GET PROPERTY OF cell_in 'Value' = result.

*-----------------------------------------------------------
* disconnect from Excel
FREE OBJECT h_excel.

WRITE result.

Auf dem Schirm sollte jetzt 'Erfolgreich stehen'.
Bei mir funktioniert´s....
Wie ich jetzt verschieden Arbeitsblätter ansteuere muss ich noch ausprobieren.

Gruss
Oliver

Hi Oliver,

bei mir klappt's auch :--)

Mit funktionierts auch "richtig".

Ich würde das gerne im Tricktresor veröffentlichen.
Hast du was dagegen?

Gruß, Enno.

Achja: Den Baustein ALSM... gibts wohl erst ab Release 4.6C.

Hi Oliver,

dann werde ich da mal was drum rum schreiben.
Danke!

Schade, dass in der Tabelle OLELOAD das Feld "PARAMETER" nicht gefüllt ist. So muss man ja irgendwoher wissen, was die einzelnen Parameter bedeuten

Gruß, Enno.

Hi Oliver,

also bei mir ist der Prozess auch nicht wirklich wech.
aber damit:

CALL METHOD OF h_excel 'Quit'.
FREE OBJECT: h_excel.

Leider fragt Excel noch nach, ob die Änderungen gespeichert werden sollen, oder nicht.

Ich habe mich dumm und dusselig probiert: ich habe es aber nicht hinbekommen, die Datei als Kopie zu öffnen, oder unter einem anderen Namen abzuspeichern oder die Datei auf ReadOnly zu setzen oder aber einfach am Ende mit den Änderungen zu speichern.

Wenn's mal funktioniert hat, dann ist noch ein Prozess im Taskmanager hängen geblieben...

Das mit den Objekten aus dem von dir genannten Thread habe ich auch nicht wirklich kapiert: Bei mir funktioniert'S auch ohne h_open...

Am besten wäre es natürlich, man würde die Datei als Schreibgeschützt öffnen und dann Excel schliessen ohne zu speichern. Vielleicht hast du ja noch eine Idee.

Gruß, Enno.

Excel OLE2 via Clipboard

Hi,

anbei eine etwas andere Variante zum Up- und Download per OLE2.
Diese verwendet die Copy/Paste Funktionslität des Clipboard und ist gerade für große Datenbestände recht performant.

Das Coding ist nur angerissen und kein Lauffähiges Programm, sollte aber doch recht verständlich sein. Den Part des Download als CSV-Datei hab ich weggelassen, sollten ja die meisten bereits kennen.


TYPES: hexedacimal TYPE x.
types: semicolon(1) type c.
types: excel_cell(4096) type c.
data: export_file type standard table of excel_cell with header line.
* Setzen der Separatoren, um Excel und CSV Upload zu ermöglichen
* P_EXCEL ist hier ein Parameter (Radiobutton)
if p_excel = 'X'.
CREATE DATA dref TYPE hexedacimal.
ASSIGN dref->* TO <separator>.
<separator> = '09'.
elseif p_semic = 'X'.
CREATE DATA dref TYPE semicolon.
ASSIGN dref->* TO <separator>.
<separator> = ';'.
endif.

* Dann ein Paar Datensätze anhängen
* Header Zeile 2
concatenate 'Bestelldatei:' periode into export_file
separated by <separator>.
append export_file.
* Header Zeile 3
concatenate 'Kostenstelle:' kostenstelle into export_file
separated by <separator>.
append export_file.
* Header Zeile 4
concatenate '' kna1-name1 into export_file
separated by <separator>.
append export_file.
* Header Zeile 5
concatenate sy-datum+6(2) '.' sy-datum+4(2) '.' sy-datum(4)
into datum.
concatenate 'Bestelldatum' datum into export_file
separated by <separator>.
append export_file.

* Interne Tabelle ins Clipboard aufnehmen
CALL FUNCTION 'CLPB_EXPORT'
TABLES
DATA_TAB = export_file
EXCEPTIONS
CLPB_ERROR = 1
OTHERS = 2.

CALL FUNCTION 'CONTROL_FLUSH'
EXCEPTIONS
OTHERS = 3.
* Daten des Clipboads infügen
GET PROPERTY OF EXCEL 'ACTIVESHEET' = WORKSHEET.
CALL METHOD OF WORKSHEET 'Cells' = CELL
EXPORTING #1 = 1 #2 = 1.
call method of WORKSHEET 'PASTE'.
free object cell.
CALL FUNCTION 'CONTROL_FLUSH'
EXCEPTIONS
OTHERS = 3.



Änhlich sieht es dann beim Import aus:

* Bestimmem der Anzahl von Zeilen um nur den relevanten Bereich zu
* importieren. Die Anzahl an Spalten hab ich in diesem Beispiel mal
* als bekannt vorrausgesetzt.
***********************************************************
w_curr_row = 1.
do.
call method of APPLICATION 'cells' = h_cell
exporting #1 = w_curr_row
#2 = 5.
get property of h_cell 'value' = w_value.
free object H_CELL.
if w_value = '' . exit. endif.

add 1 to: w_curr_row, anz_zeilen.
enddo.
***********************************************************

GET PROPERTY OF APPLICATION 'ACTIVESHEET' = WORKSHEET.
CALL METHOD OF WORKSHEET 'Cells' = H_CELL
EXPORTING #1 = 1 #2 = 1.
CALL METHOD OF WORKSHEET 'Cells' = H_CELL1
EXPORTING #1 = anz_zeilen #2 = 5.
CALL METHOD OF WORKSHEET 'RANGE' = RANGE
EXPORTING #1 = H_CELL #2 = H_CELL1.

CALL METHOD OF RANGE 'SELECT'.
* copy to Clippboard
CALL METHOD OF RANGE 'COPY'.

* Ohne Flush und Abarbeitung der Automation Queue keine Daten
* im Clipboard, da OLE-Befehl noch nicht bei Excel am FrontEnd
CALL FUNCTION 'CONTROL_FLUSH'
EXCEPTIONS
OTHERS = 3.
REFRESH excel_tab.
* Hol mir die Daten aus dem Clipboard
CALL FUNCTION 'CLPB_IMPORT'
TABLES
DATA_TAB = EXCEL_TAB
EXCEPTIONS
CLPB_ERROR = 1
OTHERS = 2.

* Clipboard löschen, sonst nervt Excel mit Abfragen beim "QUIT"
* ob Daten des Clipboards bestehen bleiben sollen
set property OF APPLICATION 'CutCopyMode' = 0.
* release excel
call method of APPLICATION 'QUIT'.
free object H_CELL.
free object H_CELL1.
free object RANGE.
free object WORKSHEET.
free object WORKBOOK.
free object APPLICATION.
APPLICATION-HANDLE = -1.


danach kann man per loop at excel_tab
und split at separator into "FELDLISTE"
die Daten in die interne Tabelle schreiben

split P_MAT_LINE at <separator> into
datenstruktur-bestellmg
datenstruktur-bez

Hoffe, das kannten nicht schon alle ;-)

Gruß, Hendrik

google doch mal nach "sheet" im forum...

mehrere Arbeitsblätter

Hallo Google,
wenn du die Arbeitsblätter erstellst

* Excel im Hintergrund starten
CREATE OBJECT myexcel 'excel.application'.
SET PROPERTY OF myexcel 'visible' = 0.

* Arbeitsmappe anlegen
CALL METHOD OF myexcel 'Workbooks' = workbook.
CALL METHOD OF workbook 'Add'.


* 1e. Blatt anlegen
CALL METHOD OF myexcel 'Worksheets' = sheet
EXPORTING
#1 = 1.

* Namen vergeben und aktiv setzen 1e Blatt
SET PROPERTY OF sheet 'Name' = 'Tab1'.
CALL METHOD OF sheet 'Activate'.