电子表格软件下载.doc

电子表格软件下载 篇一：Excel模板的上传和下载 sap中Excel的模版上传和下载 一：所用到的事物码： smw0 二：上传步骤 图1 图2 图 3 注：“包”为你所在项目的包的名称。 图4 图5 点击“7” 选择Excel模版，就可以将模版上传到sap的服务器上了，另需要记住对象名称，在后面的程序中有需要。 三：下载代码 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 #39;X#39;, c_path TYPE char128 VALUE #39;C:\TMP\价格信息批量导入.xls#39;. *模版下载按钮 SELECTION-SCREEN PUSHBUTTON /1(10) text-002 USER-COMMAND attch. AT SELECTION-SCREEN. PERFORM frm_check_input. *amp;---------------------------------------------------------------------* *amp;Form frm_check_input *amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_check_input . DATA l_ret TYPE abap_bool. IF sscrfields-ucomm = #39;ATTCH#39;. * 下载模版 PERFORM frm_download_template. ELSE. IF p_filepath IS INITIAL. MESSAGE s004(zmess) DISPLAY LIKE #39;E#39;. STOP. ENDIF. * 将路径全部转换为大写 TRANSLATE p_filepath TO UPPER CASE. * 检查文件是否存在 CALL METHOD cl_gui_frontend_services=file_exist EXPORTING file = p_filepath RECEIVING result= l_ret EXCEPTIONS cntl_error = 1 error_no_gui= 2 wrong_parameter= 3 not_supported_by_gui = 4 OTHERS= 5. IF sy-subrc lt; 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. IF l_ret NE c_yes. MESSAGE e004(zmess) WITH #39;文件不存在#39;. ENDIF. ENDIF. ENDFORM. frm_check_input *amp;---------------------------------------------------------------------* *amp;Form frm_download_template *amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_download_template . DATA: lv_objdata LIKE wwwdatatab, lv_obj_name LIKE wwwdatatab-objid, lv_destination LIKE rlgra