Excel will nicht in den Container :-(

Excel will nicht in den Container :-(

Hallo,

ich habe soweit das unten stehende Coding hingekriegt.

Ich möchte gerne ein Excelsheet in einem Container öffnen. Wenn ich das Programm starte, wird mein Dynpro angezeigt, auf dem eine grosses weisses Control namens CONTAINER zu sehen ist und Excel startet als separates Programm.

Wie bekomme ich die Tabelle in den Container?

Oder mache ich da einen grundsätzlichen Fehler?

Nur am Rande: Ich muss später auf einzelne Zellen der Tabelle zugreifen, brauche dann also noch die Methode get_spreadsheet_interface.

Any help welcome

Burkhart



Das Coding:

retcode = c_oi_errors=>ret_ok.
IF control IS INITIAL.
DATA: b_has_activex.

CALL FUNCTION 'GUI_HAS_ACTIVEX'
IMPORTING
return = b_has_activex.
IF b_has_activex IS INITIAL. MESSAGE e007. ENDIF.


CALL METHOD c_oi_ole_control_creator=>get_ole_container_control
IMPORTING
control = control
retcode = retcode.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = 'E'.

CREATE OBJECT container
EXPORTING container_name = 'CONTAINER'.

call method container->set_visible
EXPORTING
visible = 'X'.

CALL METHOD control->init_control
EXPORTING
r3_application_name = 'SEG Excel upload Container'(000)
inplace_enabled = 'X'
inplace_scroll_documents = 'X'
parent = container
register_on_close_event = 'X'
register_on_custom_event = 'X'
IMPORTING
retcode = retcode.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = 'E'.

IF NOT doc_url IS INITIAL.

data: factory TYPE REF TO i_oi_document_factory.
data: document TYPE REF TO i_oi_document_proxy.
data: error TYPE REF TO i_oi_error.

CALL METHOD c_oi_factory_creator=>get_document_factory
EXPORTING
factory_type = 'OLE'
IMPORTING
factory = factory
retcode = retcode.

* error routine missing

CALL METHOD factory->start_factory
EXPORTING
r3_application_name = 'File Upload'
register_on_close_event = 'X'
IMPORTING
retcode = retcode.

* error routine missing

CALL METHOD factory->get_document_proxy
EXPORTING
document_type = 'Excel.Document.8'
* REGISTER_CONTAINER = 'CONTAINER'
IMPORTING
document_proxy = document
retcode = retcode.

* error routine missing

CALL METHOD document->open_document
EXPORTING
document_url = doc_url
open_inplace = space
open_readonly = 'X'
no_flush = ' '
IMPORTING
error = error
retcode = retcode.

is_open_inplace = 1.
is_open_for_edit = 1.


ELSE.
MESSAGE e010.
ENDIF.


ENDIF.
IF bds_instance IS INITIAL.
CREATE OBJECT bds_instance.
ENDIF.

Hallo Stefan,

danke für Deine Antwort. Leider hat es nichts verändert. Wo hast Du die Erklärung für den Methodenparameter her? Mir fehlt leider jegliche Doku.

Ciao

Burkhart

Nun läuft alles prima. Die Datendefinitionen waren es. Ich hatte OLE-Objekte referenziert statt der "normalen" OI-Objekte. Und da die Methoden dort auch vorhanden waren, fiel das nicht gleich auf.

Ciao

Nordlicht