REPORT  zsmw0010.

*&---------------------------------------------------------------------*

*& Include

*&---------------------------------------------------------------------*

INCLUDE officeintegrationinclude.

*">> Data Define

DATA: i TYPE i VALUE 2.

CONSTANTS: l_object_id(250) TYPE c VALUE 'ZTEST',

           l_dest TYPE rlgrap-filename VALUE 'C:TEST.XLS'.

*">> Internal table

DATA: lt_data_table LIKE w3mime OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF it_tab OCCURS 0.

DATA:   kunnr LIKE kna1-kunnr,

        lifnr LIKE lfa1-lifnr,

        bukrs LIKE bkpf-bukrs,

        telno(20) TYPE c.

DATA: END OF it_tab.

*">> STRUCTURES

DATA : ls_key  LIKE wwwdatatab.

*&---------------------------------------------------------------------*

*& Object

*&---------------------------------------------------------------------*

DATA : excel TYPE ole2_object,

       books TYPE ole2_object,

       book  TYPE ole2_object,

       sheet TYPE ole2_object,

       cell  TYPE ole2_object.

*&---------------------------------------------------------------------*

*& Start-of-selection

*&---------------------------------------------------------------------*

START-OF-SELECTION.

*">> 임의 데이터

  it_tab-kunnr = '00000A1000'.

  it_tab-lifnr = '00000B1000'.

  it_tab-bukrs = 'A000'.

  it_tab-telno = '010-3333-3333'.

  APPEND it_tab.

  it_tab-kunnr = '00000C1000'.

  it_tab-lifnr = '00000D1000'.

  it_tab-bukrs = 'B000'.

  it_tab-telno = '011-3333-3333'.

  APPEND it_tab.

*">> Data Check

  CALL FUNCTION 'SAP_OI_LOAD_MIME_DATA'

       EXPORTING

            object_id        = l_object_id

       TABLES

            data_table       = lt_data_table

       EXCEPTIONS

            object_not_found = 1

            internal_error   = 2

            OTHERS           = 3.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

  ls_key-relid = 'MI'.            "// IMPORT

  ls_key-objid = l_object_id.

  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'

    EXPORTING

      key         = ls_key

      destination = l_dest. " 저장위치

  CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.

  SET PROPERTY OF EXCEL 'VISIBLE' = 1.