CALL METHOD iref_document->open_document
    EXPORTING
      document_title = 'Excel'
      document_url   = gv_file
      open_inplace   = 'X'
    IMPORTING
      error          = iref_error.

INITIALIZATION.

  CALL METHOD c_oi_container_control_creator=>get_container_control
    IMPORTING
      control = iref_control
      error   = iref_error.
  IF iref_error->has_failed = 'X'.
    CALL METHOD iref_error->raise_message
      EXPORTING
        type = 'E'.
  ENDIF.

  CREATE OBJECT oref_container
    EXPORTING
      container_name              = 'CONT'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
    MESSAGE e001(00) WITH 'Error while creating container'.
  ENDIF.

  CALL METHOD iref_control->init_control
    EXPORTING
      inplace_enabled      = 'X'
      r3_application_name  = 'EXCEL CONTAINER'
      parent               = oref_container
    IMPORTING
      error                = iref_error
    EXCEPTIONS
      javabeannotsupported = 1
      OTHERS               = 2.
  IF iref_error->has_failed = 'X'.
    CALL METHOD iref_error->raise_message
      EXPORTING
        type = 'E'.
  ENDIF.

  CALL METHOD iref_control->get_document_proxy
    EXPORTING
      document_type  = soi_doctype_excel_sheet
    IMPORTING
      document_proxy = iref_document
      error          = iref_error.
  IF iref_error->has_failed = 'X'.
    CALL METHOD iref_error->raise_message
      EXPORTING
        type = 'E'.
  ENDIF.

  GET PROPERTY OF  application 'ACTIVESHEET' = worksheet.
  m_message.

* Активируем лист по номеру i_sheet_num
  GET PROPERTY OF application 'Worksheets' = worksheets.
  m_message.
  GET PROPERTY OF worksheets 'Count' = sheet_count.
  m_message.
  IF i_sheet_num > sheet_count OR i_sheet_num < 1.
    GET PROPERTY OF application 'ActiveWorkbook' = workbook.
    SET PROPERTY OF workbook 'Saved' = 1.
    CALL METHOD OF application 'QUIT'.
    FREE OBJECT worksheets. m_message.
    FREE OBJECT workbooks. m_message.
    FREE OBJECT workbook. m_message.
    FREE OBJECT application. m_message.
    FREE OBJECT excel. m_message.
    RAISE sheet_not_found.
  ENDIF.
* Определяем номер листа соотв. НЕ скрытому листу с номером i_sheet_num, в документе лист может быть 1ым, но его номер 3, если перед ним 2 листа скрыто.
  num_sheet = 0. " фактический номер
  vis_num_sheet = i_sheet_num.
  DO sheet_count TIMES.
    num_sheet = num_sheet + 1.
    CALL METHOD OF worksheets 'Item' = worksheet
      EXPORTING #1 = num_sheet.
    m_message.
    GET PROPERTY OF worksheet 'Visible' = vis.
*   если лист видимый
    IF vis <> 0.
      vis_num_sheet = vis_num_sheet - 1.
    ENDIF.
    IF vis_num_sheet = 0.
      EXIT.
    ENDIF.
  ENDDO.
CALL METHOD OF worksheet 'Activate'.