Excel 文件下载

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\'.                  "关闭工作区   CALL METHOD OF       LV_EXCEL       \'QUIT\'.   "退出excel *WRITE:/ XLSNAME,\'DONE\'.   "退出成功，输出done   FREE OBJECT LV_SHEET.                               "释放操作   FREE OBJECT LV_WORKBOOK.   FREE OBJECT LV_EXCEL. ENDFORM.                    " FRM_DOWNLOAD_DATA *&---------------------------------------------------------------------* *&      Form  SET_EXCEL_CELL *&---------------------------------------------------------------------* *       设定单元格-列 *----------------------------------------------------------------------* *      -->P_IN_EXCEL     excel对象 *      -->P_IN_LINE      行号 *      -->P_IN_FIELD     项目 *      <--P_OUT_COLS     列号 *----------------------------------------------------------------------* FORM SET_EXCEL_CELL  USING  P_IN_EXCEL  TYPE OLE2_OBJECT                             P_IN_LINE   TYPE I                             P_IN_FIELD  TYPE ANY                             P_OUT_COLS  TYPE I.   DATA: LV_CELL   TYPE OLE2_OBJECT. * 指定单元格   CALL METHOD OF       P_IN_EXCEL       \'CELLS\'    = LV_CELL     EXPORTING       #1         = P_IN_LINE       #2         = P_OUT_COLS. * 写入值   SET  PROPERTY OF LV_CELL                    \'VALUE\' = P_IN_FIELD.   P_OUT_COLS = P_OUT_COLS + 1. ENDFORM.                    " SET_EXCEL_CELL *&---------------------------------------------------------------------* *&      Form  GET_SAVE_PATH *&---------------------------------------------------------------------* *       获取下载文件完整路径 *----------------------------------------------------------------------* *      <--P_IN_PATH  text *----------------------------------------------------------------------* FORM GET_SAVE_PATH  CHANGING P_IN_PATH  TYPE STRING.   DATA: LV_FILENAME   TYPE STRING,         LV_PATH       TYPE STRING.   CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG     EXPORTING       WINDOW_TITLE         = \'下载文件\'       FILE_FILTER          = \'*.xls\'     CHANGING       FILENAME             = LV_FILENAME       PATH                 = LV_PATH       FULLPATH             = P_IN_PATH     EXCEPTIONS       CNTL_ERROR           = 1       ERROR_NO_GUI         = 2       NOT_SUPPORTED_BY_GUI = 3       OTHERS               = 4.   IF SY-SUBRC <> 0. *   Implement suitable error handling here   ENDIF. ENDFORM.                    " GET_SAVE_PATH