Report保存EXCEL本地文件——代码实现

 

DATA: l_mng(2)    TYPE n,    "**
        l_lin(2)    TYPE n,    "**
        l_ename(11) TYPE c,    "t_excel-mng
        l_name(20)  TYPE c,    "t_excel-mng**
        l_qty(20)   TYPE c,    "t_excel-mng**
        l_cnt       TYPE i,    "record how many days till Monday
        l_start(2)  TYPE n,
        p_file(80)  TYPE c.    "File Name
  FIELD-SYMBOLS: TYPE ANY,
                 TYPE ANY.

  DATA: BEGIN OF t_excel OCCURS 0,

这里定义的栏位名和输出表相同，全部都TYPE C。
               END OF t_excel.

*对栏位名进行赋值。  

  LOOP AT t_fieldcat.
    IF t_fieldcat-col_pos >= **.
      CONCATENATE l_ename l_mng INTO l_name.
      ASSIGN (l_name) TO .
      = t_fieldcat-seltext_l.
      l_mng = l_mng + 1.
    ENDIF.
  ENDLOOP.

  APPEND t_excel.

*将内表中的数据复制到定义的表中 

LOOP AT t_out.
    MOVE-CORRESPONDING t_out TO t_excel.

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
         EXPORTING
              input    = t_out-meins
              language = sy-langu
         IMPORTING
              output   = t_excel-meins.

    DO 70 TIMES.
      l_lin = sy-index.
      CONCATENATE l_ename l_lin
      INTO l_qty.
      ASSIGN (l_qty) TO .
      CONDENSE .
    ENDDO.
    APPEND t_excel.
  ENDLOOP.

*生成EXCEL文件 

CONCATENATE 'C:\' sy-datum sy-uzeit '.xls' INTO p_file.
  CALL FUNCTION 'WS_EXCEL'
       EXPORTING
            filename = p_file
            synchron = ''
       TABLES
            data     = t_excel.
  MESSAGE s888(sabapdocu) WITH
         'Data Have Been Downloaded Successfully!'.

synchron 表示同步，置为空则生成excel档，就立即显示成功信息返回程序

附给‘X’，则要关闭生成的EXCEL档后，才显示成功信息返回程序

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/13245491/viewspace-214971/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13245491/viewspace-214971/