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文件保存
