Excel模板的上传和下载.docxVIP

/szfeng/archive/2011/12/16/2290132.htmlsap中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?X,?c_path?TYPE?char128?VALUE?C:\TMP\价格信息批量导入.xls.*模版下载按钮SELECTION-SCREEN?PUSHBUTTON?/1(10)?text-002?USER-COMMAND?attch.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.?IF?p_filepath?IS?INITIAL.?MESSAGE?s004(zmess)?DISPLAY?LIKE?E.?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??0.?MESSAGE?ID?sy-msgid?TYPE?sy-msgty?NUMBER?sy-msgno?WITH?sy-msgv1?sy-msgv2?sy-msgv3?sy-msgv4.?ENDIF.?IF?l_ret?NE?c_yes.?MESSAGE?e004(zmess)?WITH?文件不存在.?ENDIF.?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_re