Excel模板的上传和下载.docx

sap中Excel的模版上传和下载一：所用到的事物码：smw0二：上传步骤 图1图2 图3注：“包”为你所在项目的包的名称。图4图5点击“7” 选择Excel模版，就可以将模版上传到sap的服务器上了，另需要记住对象名称，在后面的程序中有需要。三：下载代码TABLES:sscrfields.*定义OLE变量DATA:g_excelTYPEole2_object,g_applicaTYPEole2_object,g_sheetTYPEole2_object,g_cellTYPEole2_object,g_workbookTYPEole2_object.DATA:p_filepathTYPEstring.CONSTANTS:c_yesTYPEcVALUEX,c_pathTYPEchar128VALUEC:TMP价格信息批量导入.xls.*模版下载按钮SELECTION-SCREENPUSHBUTTON/1(10)text-002USER-COMMANDattch.ATSELECTION-SCREEN.PERFORMfrm_check_input.*&-*&Formfrm_check_input*&-*text*-*FORMfrm_check_input.DATAl_retTYPEabap_bool.IFsscrfields-ucomm=ATTCH.*下载模版PERFORMfrm_download_template.ELSE.IFp_filepathISINITIAL.MESSAGEs004(zmess)DISPLAYLIKEE.STOP.ENDIF.*将路径全部转换为大写TRANSLATEp_filepathTOUPPERCASE.*检查文件是否存在CALLMETHODcl_gui_frontend_services=file_existEXPORTINGfile=p_filepathRECEIVINGresult=l_retEXCEPTIONScntl_error=1error_no_gui=2wrong_parameter=3not_supported_by_gui=4OTHERS=5.IFsy-subrc0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.IFl_retNEc_yes.MESSAGEe004(zmess)WITH文件不存在.ENDIF.ENDIF.ENDFORM.frm_check_input*&-*&Formfrm_download_template*&-*text*-*FORMfrm_download_template.DATA:lv_objdataLIKEwwwdatatab,lv_obj_nameLIKEwwwdatatab-objid,lv_destinationLIKErlgrap-filename,lv_objidLIKEsy-repid,lv_subrcLIKEsy-subrc.DATA:l_retTYPEabap_bool,lv_answer.DATA:lv_fileTYPEstring.MOVEc_pathTOlv_file.CALLMETHODcl_gui_frontend_services=file_existEXPORTINGfile=lv_fileRECEIVINGresult=l_retEXCEPTIONScntl_error=1error_no_gui=2wrong_parameter=3not_supported_by_gui=4OTHERS=5.IFsy-subrc0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.EXIT.ENDIF.IFl_retEQc_yes.*模版已存在，是否覆盖CALLFUNCTIONPOPUP_TO_CONFIRMEXPORTINGtext_question=模版已存在，是否覆盖？text_button_1=是(001)text_button_2=否(002)IMPORTINGanswer=lv_answerEXCEPTIONStext_not_found=1OTHERS=2.IFsy-subrc0.ENDIF.IFlv_answerEQA.取消EXIT.ELSEIFlv_answerNE1.否p_filepath=c_path.ENDIF.ELSE.lv_answer=1.ENDIF.CREATEOBJECTg_excelEXCEL.APPLICATION.GETPROPERTYOFg_excelWorkbooks=g_workbook.CALLMETHODOFg_workbookClose.IFlv_answerEQ1.MOVEZGN_MMB021TOlv_obj_name.SELECTrelidobjidFROMwwwdataINTOCORRESPONDINGFIELDSOFlv_objdataUPTO1ROWSWHEREsrtf2=0ANDrelid=MIANDobjid=lv_obj_name.ENDSELECT.CALLFUNCTIONDOWNLOAD_WEB_OBJECTEXPORTINGkey=lv_objdatadestination=c_pathIMPORTINGrc=lv_subrc.IFlv_subrc=0.p_filepath=c_path.ENDIF.ENDIF.CALLMETHODOFg_workbookopenEXPORTING#1=c_path.CALLMETHODOFg_excelworksheets=g_sheetEXPORTING#1=1.CALLMETHODOFg_sheetactivate.SETPRO