Excel 文件下载
2024-08-05 20:26:20 213人阅读
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 OF LV_WORKBOOK ‘CLOSE‘.
