INCLUDE OLE2INCL
* ALV输出
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET'
I_CALLBACK_USER_COMMAND = 'PF_USER_COMMAND'
* i_callback_html_top_of_page = 'TOP_OF_PAGE'
IS_LAYOUT = PS_IN_LAYOUT
IT_FIELDCAT = PT_IN_FIELDCAT
I_SAVE = 'X'
TABLES
T_OUTTAB = GT_ALVDATA
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO DISPLAY LIKE 'E'
WITH SY-MSGV1
SY-MSGV2
SY-MSGV3
SY-MSGV4.
LEAVE LIST-PROCESSING.
ENDIF.
ALV自定义按钮处理
*&---------------------------------------------------------------------*
*& Form PF_USER_COMMAND
*&---------------------------------------------------------------------*
* USER_COMMAND
*----------------------------------------------------------------------*
* -->P_UCOMM text
* -->PS_SELFIELD text
*----------------------------------------------------------------------*
FORM PF_USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
PS_SELFIELD TYPE SLIS_SELFIELD.
CASE P_UCOMM.
WHEN 'DOWN'.
* 下载数据到xls文件
PERFORM FRM_DOWNLOAD_DATA.
WHEN OTHERS.
ENDCASE.
PS_SELFIELD-REFRESH = 'X'.
ENDFORM. "PF_USER_COMMAND
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_DATA
*&---------------------------------------------------------------------*
* 下载数据到xls文件
*----------------------------------------------------------------------*
FORM FRM_DOWNLOAD_DATA .
DATA: LV_EXCEL TYPE OLE2_OBJECT,
LV_SHEET TYPE OLE2_OBJECT,
LV_CELL TYPE OLE2_OBJECT,
LV_WORKBOOK TYPE OLE2_OBJECT,
LV_XLSNAME TYPE STRING,
LV_LINE TYPE I VALUE 1, "行号
LV_COLS TYPE I VALUE 0, "行号
LW_ALVDATA TYPE GTYP_ALVDATA.
* 获取下载文件完整路径
PERFORM GET_SAVE_PATH CHANGING LV_XLSNAME.
* 启动Excel
CREATE OBJECT LV_EXCEL 'EXCEL.APPLICATION'.
IF SY-SUBRC <> 0.
WRITE: / '启动Excel失败。'.
STOP.
ENDIF.
CALL METHOD OF
LV_EXCEL
'WORKBOOKS' = LV_WORKBOOK.
* 使excel 可视
SET PROPERTY OF LV_EXCEL 'VISIBLE' = 0. "0：不可视，1：可视
SET PROPERTY OF LV_EXCEL 'SHEETSINNEWWORKBOOK' = 1.
"如果是读取excel文件中的内容 则是直接打开工作簿第一页
CALL METHOD OF
LV_WORKBOOK
'ADD'.
* 例如：CALL
* METHOD OF EXCEL 'WORKSHEETS' = SHEET EXPORTING #1 = 1.
* CLEAR LV_LINE.
LOOP AT GT_ALVDATA INTO LW_ALVDATA.
LV_COLS = 1.
* 列名的设定
IF SY-TABIX = 1.
* 设定单元格（交货）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'交货'
LV_COLS.
* 设定单元格（物料号）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'物料号'
LV_COLS.
* 设定单元格（交货日期）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'交货日期'
LV_COLS.
* 设定单元格（实际已交货量（按销售单位））
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'实际已交货量（按销售单位）'
LV_COLS.
* 设定单元格-列（售达方）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'售达方'
LV_COLS.
* 设定单元格-列（工厂）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'工厂'
LV_COLS.
* 设定单元格-列（销售单价（SA中的单价））
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'销售单价（SA中的单价）'
LV_COLS.
* 设定单元格-列（销售金额）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'销售金额'
LV_COLS.
* 设定单元格-列（标准价格）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'标准价格'
LV_COLS.
* 设定单元格-列（标准成本总额）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'标准成本总额'
LV_COLS.
* 设定单元格-列（天数）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
'天数'
LV_COLS.
ENDIF.
LV_LINE = LV_LINE + 1. "Excel 中行号从1开始
LV_COLS = 1.
* 设定单元格（交货）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-VBELN
LV_COLS.
* 设定单元格（物料号）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-MATNR
LV_COLS.
* 设定单元格（交货日期）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-LFDAT
LV_COLS.
* 设定单元格（实际已交货量（按销售单位））
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-LFIMG
LV_COLS.
* 设定单元格-列（售达方）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-KUNAG
LV_COLS.
* 设定单元格-列（工厂）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-WERKS
LV_COLS.
* 设定单元格-列（销售单价（SA中的单价））
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-KBETR
LV_COLS.
* 设定单元格-列（销售金额）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-SAL_AMOUNT
LV_COLS.
* 设定单元格-列（标准价格）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-STPRS
LV_COLS.
* 设定单元格-列（标准成本总额）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-SUM_AMOUNT
LV_COLS.
* 设定单元格-列（天数）
PERFORM SET_EXCEL_CELL USING LV_EXCEL
LV_LINE
LW_ALVDATA-ATAGE
LV_COLS.
ENDLOOP.
GET PROPERTY OF LV_EXCEL 'ACTIVESHEET' = LV_SHEET. "激活工作簿
GET PROPERTY OF LV_EXCEL 'ACTIVEWORKBOOK' = LV_WORKBOOK. "激活工作区
CALL METHOD OF
LV_WORKBOOK
'SAVEAS'
EXPORTING
#1 = LV_XLSNAME
#2 = 1.
"将excel文件保存
CALL METHOD
