Question

SAP 如何将SMW0 上的EXCEL模板下载到本地

Answer 1

前面有说过如何如何将EXCEL 模板上传到SAP里，那么使用代码的话如何实现下载EXCEL模板 *&---------------------------------------------------------------------**& Report ZTEST09*& by cmh*&---------------------------------------------------------------------**&*& 下载 EXCEL 模板*&---------------------------------------------------------------------*REPORT ZTEST09.TABLES:sscrfields.*定义OLE变量DATA:g_excel TYPE ole2_object, g_applica TYPE ole2_object, g_sheet TYPE ole2_object, g_cell TYPE ole2_object, g_workbook TYPE ole2_object.DATA:p_filepath TYPE string.CONSTANTS:c_yes TYPE c VALUE 'X', c_path TYPE char128 VALUE 'C:\TEMP\资产负债表.xls'. " 下载后存放路径*模版下载按钮SELECTION-SCREEN BEGIN OF block block1 with frame title text-000. parameters : g_filen like wwwdatatab-objid default 'ZFI045_1000'. " 要下载的模板名称 SELECTION-SCREEN PUSHBUTTON /1(10) text-002 USER-COMMAND attch. SELECTION-SCREEN end of block block1.AT SELECTION-SCREEN. PERFORM frm_check_input.*&---------------------------------------------------------------------**& Form frm_check_input*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM frm_check_input . DATA l_ret TYPE abap_bool. IF sscrfields-ucomm = 'ATTCH'.* 下载模版 PERFORM frm_download_template. ELSE. ENDIF.ENDFORM. "frm_check_input*&---------------------------------------------------------------------**& Form frm_download_template*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM frm_download_template . DATA: lv_objdata LIKE wwwdatatab, lv_obj_name LIKE wwwdatatab-objid, lv_destination LIKE rlgrap-filename, lv_objid LIKE sy-repid, lv_subrc LIKE sy-subrc. DATA:l_ret TYPE abap_bool, lv_answer. DATA:lv_file TYPE string. MOVE c_path TO lv_file. CALL METHOD cl_gui_frontend_services=>file_exist