其他分享
首页 > 其他分享> > SAP DOI实现对Excel的处理(Excel文件自适应屏幕大小)

SAP DOI实现对Excel的处理(Excel文件自适应屏幕大小)

作者:互联网

1.上传Excel模板

2.创建一个空白屏幕100,并设置PBO PAI逻辑和OK_CODE变量

4
5

3.报表程序源代码

TYPES: BEGIN OF TY_SPFLI,
         CARRID   LIKE SPFLI-CARRID,
         CONNID   LIKE SPFLI-CONNID,
         CITYFROM LIKE SPFLI-CITYFROM,
         CITYTO   LIKE SPFLI-CITYTO,
       END OF TY_SPFLI.

CONSTANTS: GC_CLASSNAME TYPE SBDST_CLASSNAME VALUE 'HRFPM_EXCEL_STANDARD',
           GC_CLASSTYPE TYPE SBDST_CLASSTYPE VALUE 'OT',
           GC_OBJECTKEY TYPE SBDST_OBJECT_KEY VALUE 'DOIDEMO'.

DATA: GO_CONTAINER TYPE REF TO CL_GUI_CONTAINER,
      GO_SPLITTER  TYPE REF TO CL_GUI_SPLITTER_CONTAINER.

DATA: GT_SPFLI TYPE STANDARD TABLE OF TY_SPFLI WITH HEADER LINE.


DATA: GT_CONTENTS TYPE SOI_GENERIC_TABLE,
      GS_CONTENT  TYPE SOI_GENERIC_ITEM.

DATA: GO_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,    "container对象
      GO_CONTROL          TYPE REF TO I_OI_CONTAINER_CONTROL,     "container control对象
      GO_DOCUMENT         TYPE REF TO I_OI_DOCUMENT_PROXY,        "DOI EXCEL文档对象
      GO_SPREADSHEET      TYPE REF TO I_OI_SPREADSHEET.           "DOISHEET文档处理对象


DATA: GO_BDS_DOCUMENTS TYPE REF TO CL_BDS_DOCUMENT_SET,           "Excel文档对象
      GT_BDS_URIS      TYPE SBDST_URI,                            "url类型的文档对象,一行表示一个Excel模板
      GS_BDS_URL       LIKE LINE OF GT_BDS_URIS.

DATA: GV_EXCEL_URL TYPE C LENGTH 256.                                   "Excel模板,Url类型

DEFINE FILL_CELL.
  GS_CONTENT-ROW = &1.
  gs_content-column = &2.
  gs_content-value = &3.
  append gs_content to gt_contents.
  clear gs_content.
END-OF-DEFINITION.

*---------------------------------------------------------------* 处理
INITIALIZATION.

START-OF-SELECTION.
  PERFORM FRM_GET_DATA.
  CALL SCREEN 100.

*---------------------------------------------------------------* PBO PAI

MODULE PROC_PROGRAM_OUTPUT OUTPUT.
  SET PF-STATUS '100'.
  PERFORM FRM_INIT_CONTAINER.
  PERFORM FRM_CNTR_CONTROL.           "初始化CONTAINER CONTRAL对象
  PERFORM FRM_GET_TEMPLATE.           "获取Excel模板
  PERFORM FRM_OPEN_EXCEL.
  PERFORM FRM_FILL_EXCEL.
ENDMODULE.

MODULE PROC_PROGRAM_INPUT INPUT.
  DATA: OK_CODE TYPE SY-UCOMM,
        SAVE_OK LIKE OK_CODE.

  SAVE_OK = OK_CODE.

  IF SAVE_OK = 'EXIT'.
    PERFORM FRM_RELEASE_OBJ.
    LEAVE PROGRAM.
  ENDIF.
ENDMODULE.
*---------------------------------------------------------------* FORM

FORM FRM_INIT_CONTAINER .
  CREATE OBJECT GO_SPLITTER
    EXPORTING
      PARENT  = CL_GUI_CONTAINER=>SCREEN0
      ROWS    = 1
      COLUMNS = 1.

  CALL METHOD GO_SPLITTER->SET_BORDER
    EXPORTING
      BORDER = CL_GUI_CFW=>FALSE.

  GO_CONTAINER = GO_SPLITTER->GET_CONTAINER( ROW = 1 COLUMN = 1 ).
ENDFORM.

FORM FRM_GET_DATA .
  SELECT * FROM SPFLI
    INTO CORRESPONDING FIELDS OF TABLE GT_SPFLI[] UP TO 20 ROWS.
ENDFORM.

FORM FRM_CNTR_CONTROL.
*创建GO_CONTROL对象
  CALL METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROL
    IMPORTING
      CONTROL = GO_CONTROL.



*实例化GO_CONTROL对象
  CALL METHOD GO_CONTROL->INIT_CONTROL
    EXPORTING
      INPLACE_ENABLED          = 'X '
      INPLACE_SCROLL_DOCUMENTS = 'X'
      REGISTER_ON_CLOSE_EVENT  = 'X'
      REGISTER_ON_CUSTOM_EVENT = 'X'
      R3_APPLICATION_NAME      = 'DOI DEMO'
      PARENT                   = GO_CONTAINER.
ENDFORM.

FORM FRM_GET_TEMPLATE.

  CREATE OBJECT GO_BDS_DOCUMENTS. "创建Excel文档对象

  CALL METHOD CL_BDS_DOCUMENT_SET=>GET_WITH_URL   "通过URL传输返回Excel文档
    EXPORTING
      CLASSNAME  = GC_CLASSNAME
      CLASSTYPE  = GC_CLASSTYPE
      OBJECT_KEY = GC_OBJECTKEY
    CHANGING
      URIS       = GT_BDS_URIS.

  READ TABLE GT_BDS_URIS INTO GS_BDS_URL INDEX 1.  "读取第一个EXCEL模板
  GV_EXCEL_URL = GS_BDS_URL-URI.                   "保存到全局变量

  FREE GO_BDS_DOCUMENTS.

ENDFORM.

FORM FRM_OPEN_EXCEL.

  CALL METHOD GO_CONTROL->GET_DOCUMENT_PROXY
    EXPORTING
      DOCUMENT_TYPE      = 'Excel.Sheet'
      NO_FLUSH           = 'X'
      REGISTER_CONTAINER = 'X'
    IMPORTING
      DOCUMENT_PROXY     = GO_DOCUMENT.

  CALL METHOD GO_DOCUMENT->OPEN_DOCUMENT
    EXPORTING
      OPEN_INPLACE = 'X'
      DOCUMENT_URL = GV_EXCEL_URL.

  CALL METHOD GO_DOCUMENT->GET_SPREADSHEET_INTERFACE
    EXPORTING
      NO_FLUSH        = 'X'
    IMPORTING
      SHEET_INTERFACE = GO_SPREADSHEET.
ENDFORM.

FORM FRM_FILL_EXCEL.
  DATA: LINE_COUNT TYPE I VALUE 0,
        COL_COUNT  TYPE I VALUE 0,
        LT_COLUMN  TYPE TABLE OF RSTRUCINFO.

  DATA: GT_RANGES TYPE SOI_RANGE_LIST,
        GS_RANGE  TYPE SOI_RANGE_ITEM.

  DATA: ROW_INDEX TYPE I VALUE '1'.

  CHECK GT_SPFLI[] IS NOT INITIAL.

  "打开sheet1
  CALL METHOD GO_SPREADSHEET->SELECT_SHEET
    EXPORTING
      NAME     = 'Sheet1'
      NO_FLUSH = 'X'.


* 获取内表的行数
  DESCRIBE TABLE GT_SPFLI[] LINES LINE_COUNT.

* 获取内表的列数
  CALL FUNCTION 'GET_COMPONENT_LIST'
    EXPORTING
      PROGRAM    = SY-REPID
      FIELDNAME  = 'GT_SPFLI'
    TABLES
      COMPONENTS = LT_COLUMN.
  DESCRIBE TABLE LT_COLUMN LINES COL_COUNT.

  CALL METHOD GO_SPREADSHEET->INSERT_RANGE_DIM
    EXPORTING
      NAME     = 'cell'
      NO_FLUSH = 'X'
      TOP      = 2
      LEFT     = 1
      ROWS     = LINE_COUNT
      COLUMNS  = COL_COUNT.

  "填充一个内表大小的range到sheet1
  GS_RANGE-NAME = 'cell'.
  GS_RANGE-ROWS = LINE_COUNT.
  GS_RANGE-COLUMNS = COL_COUNT.
  GS_RANGE-CODE = 4.
  APPEND GS_RANGE TO GT_RANGES.

  "填充数据
  LOOP AT GT_SPFLI.
    CLEAR GS_CONTENT.

    FILL_CELL:
    ROW_INDEX 1 GT_SPFLI-CARRID,
    ROW_INDEX 2 GT_SPFLI-CONNID,
    ROW_INDEX 3 GT_SPFLI-CITYFROM,
    ROW_INDEX 4 GT_SPFLI-CITYTO.

    ROW_INDEX = ROW_INDEX + 1.
  ENDLOOP.

"I_OI_SPREADSHEET中有很多方法可对Excel进行处理,此处不再赘述

  "填充数据到sheet1
  CALL METHOD GO_SPREADSHEET->SET_RANGES_DATA
    EXPORTING
      RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS
      NO_FLUSH = 'X'.
ENDFORM.

FORM FRM_RELEASE_OBJ.
  IF NOT GO_DOCUMENT IS INITIAL.
    CALL METHOD GO_DOCUMENT->CLOSE_DOCUMENT.
    FREE GO_DOCUMENT.
  ENDIF.

  IF NOT GO_CONTROL IS INITIAL.
    CALL METHOD GO_CONTROL->DESTROY_CONTROL.
    FREE GO_CONTROL.
  ENDIF.

ENDFORM.

4.执行效果

标签:CONTROL,GT,CONTAINER,Excel,DOI,GO,SAP,TYPE,SPFLI
来源: https://blog.csdn.net/qq_30797051/article/details/120290269