OLE2 로 엑셀 문서를 출력하는 프로그램을

DOI 로 바꾸려고 하고 있습니다.

기존의 프로그램에서 최종적으로 나온 엑셀 결과는,

어느곳에도 저장은 안되고

단지 신규 엑셀 화면이 띄워 지고 셀 안에 데이터가 들어 있는

- 즉 저장 된 파일이 아닌.. - 상태인데요.

DOI 로 문서를 띄워서 작업을 하는것 까진 성공 했는데

프로그램이 종료되면 Excel 파일도 같이 종료 되어 버리네요.

(유저가 확인 할 틈도 없이)

Excel 창이 닫히지 않고 남아 있게 하려면 어떻게 해야 하는 지 알고 싶습니다..

샘플 프로그램 참고해서 시험중입니다만

선언은 다음과 같습니다.

 

CALL METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROL
  IMPORTING
    CONTROL = CONTROL
    RETCODE = RETCODE.

CREATE OBJECT CONTAINER
  EXPORTING
    CONTAINER_NAME = 'CONTAINER'.

컨테이너를 만들고

 

CALL METHOD CONTROL->INIT_CONTROL
                    EXPORTING R3_APPLICATION_NAME =
                                          'R/3 Basis'       "#EC NOTEXT
                              INPLACE_ENABLED = ''
                              INPLACE_SCROLL_DOCUMENTS = ''
                              PARENT = CONTAINER
                              REGISTER_ON_CLOSE_EVENT = 'X'
                              REGISTER_ON_CUSTOM_EVENT = 'X'
                              NO_FLUSH = 'X'
                      IMPORTING error = errors

 

CALL METHOD CONTROL->GET_DOCUMENT_PROXY
                    EXPORTING DOCUMENT_TYPE = 'Excel.Sheet'
                              NO_FLUSH = 'X'
*                       REGISTER_CONTAINER = 'X'
                    IMPORTING DOCUMENT_PROXY = DOCUMENT
                                error = errors.

 

CALL METHOD DOCUMENT->CREATE_DOCUMENT
                    EXPORTING OPEN_INPLACE = ''
                              DOCUMENT_TITLE =
                              'R/3 table contents in Excel' "#EC NOTEXT
                              NO_FLUSH = 'X'
  IMPORTING
    ERROR            = errors
*    RETCODE          =

그리고 엑셀 파일을 띄웠구요

 

CALL METHOD DOCUMENT->GET_SPREADSHEET_INTERFACE
  EXPORTING
    NO_FLUSH        = ' '
  IMPORTING
    SHEET_INTERFACE = SPREADSHEET.

제어를 위해 인터페이스를 받아왔습니다

이후로는 DB 로부터 자료를 가져와서

 

CALL METHOD SPREADSHEET->INSERT_RANGE_DIM
  EXPORTING
    NAME     = 'SAP_Table'
    TOP      = 2
    LEFT     = 2
    ROWS     = 5
    NO_FLUSH = 'X'
    COLUMNS  = 5
  IMPORTING
    ERROR    = ERRORS.
APPEND ERRORS.

영역을 설정하고

 


* transfer R/3 table data into excel range
      CALL METHOD spreadsheet->insert_one_table
          EXPORTING data_table = excel_table
                    ddic_name = tabname
                    rangename = 'SAP_Table'
                    no_flush  = 'X'
                    wholetable = 'X'
          IMPORTING error = errors.
      APPEND errors.

자료를 넘기고

 


      CALL METHOD spreadsheet->fit_widest
          EXPORTING name = space
                    no_flush = 'X'.
* protect the R/3 data against input
      CALL METHOD spreadsheet->protect_range
          EXPORTING name      = 'SAP_Table'
                    protect   = 'X'
                    no_flush = 'X'
          IMPORTING error = errors.
      APPEND errors.
* now flush automation queue
      CALL METHOD control->set_focus
          EXPORTING no_flush = ' '
          IMPORTING error = errors.
      APPEND errors.

화면에 보이게 했습니다.

중간에 자질구레한 곳들은 뺐는데

필요한 곳이 있으면 보충하겠습니다...