OLE 操作集合

*&---------------------------------------------------------------------*
*&  OLE方式EXCEL操作通用程序
*&---------------------------------------------------------------------*

******************************************************************************
*数据定义
******************************************************************************

INCLUDE ole2incl.

DEFINE m_message.
  case sy-subrc.
    when 0.
    when others.
      message e000(su)
              with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endcase.
END-OF-DEFINITION.

DATA: application TYPE ole2_object,
      workbook        TYPE ole2_object,
      sheet           TYPE ole2_object,
      columns         TYPE ole2_object,
      w_comment       TYPE ole2_object,
      w_shape         TYPE ole2_object,
      rows            TYPE ole2_object,
      range           TYPE ole2_object,
      h_f             TYPE ole2_object,                         " FONT
      cells1          TYPE ole2_object,
*      A