demoexcl单页导入模板程序和excel简单示例demo

《demoexcl单页导入模板程序和excel简单示例demo》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、模板导入的程序:REPORTZEXCELTEMPLATEUPLOAD.TABLES:ZHROFFICE•SELECTION-SCREENBEGINOFBLOCKBlWITHFRAMETITLETEXT-001.PARAMETERSSRTFDLIKEZHROFFICE-SRTFDOBLIGATORY.□关键字(报表事务代码)PARAMETERSFILENAMELIKEZHROFFICE-FILENAMEOBLIGATORY.口文件名SELECTION-SCREENENDOFBLOCKBl.ATSELECTION-SCREENONVALUE-REQUESTFORSRTFD.PERF

2、ORMGETF4HELP1USINGSRTFD.ATSELECTION-SCREENONVALUE-REQUESTFORFILENAME.PERFORMGET_PC_FILENAMEUSINGFILENAMEO.START-OF-SELECTION.DATAF(128)OCCURS0WITHHEADERLINE.DATALCTYPEI.DATA:L_PGMNALIKEZHROFFICEFILEDESC,L_TTEXTLIKETSTCTTTEXT.SELECTA〜PGMNAB-TTEXTFROMTSTCASALEFTJOINTSTCTASBONSPRSL='1'ANDB~TCOD

3、E=A~TCODEINTO(L_PGMNA,L_TTEXT)WHEREA~TCODE=SRTFD.ENDSELECT.IFSY-SUBRC<>0.MESSAGE'爭务彳弋码不存在！*TYPE'S*DISPLAYLIKE'E'・STOP.ENDIF.SPLITFILENAMEAT11INTOTABLEF.DESCRIBETABLEFLINESLC.READTABLEFINDEXLC.ZHROFFICE-FILENAME=F.ZHROFFICE-FILEDESC=L_TTEXT.ZHROFFICE-AEDAT=SY-DATUM.ZHROFFICEUSERA=SYUNAME•DAT

4、A:DATA_CONTAINERLIKESOLIOCCURS0WITHHEADERLINE.DATA:LENGTHTYPEI.CLEARDATA_CONTA1：NER・REFRESHDATACONTAINER.CALLFUNCTION1WS_UPLOADfEXPORTINGFILENAMEFILENAMEFILETYPE'BIN'IMPORTINGFILELENGTHLENGTHTABLESDATATABDATACONTAINEREXCEPTIONSCONVERSION_ERROR=1FILE_OPEN_ERROR=2FILE_READ_ERROR=3INVALID_TABLE

5、_WIDTH=4INVALID_TYPE=5NO_BATCH=6UNKNOWN_ERROR=7OTHERS=8•IFSY-SUBRCNE0.CALLFUNCTION1POPUP_TO_DISPLAY_TEXT1EXPORTINGTITEL=•上载文件，TEXTLINE1='上载失败！'EXCEPTIONSOTHERS=1.ELSE・MOVELENGTHTODATA_CONTAINER-LINE・APPENDDATA_CONTAINER.EXPORTDATA_CONTAINERTODATABASEZHROFFICE(CN)IDSRTFD.IFSY-SUBRCNE0.CALLFUN

6、CTION*POPUP_TO_DISPLAY_TEXT'EXPORTINGTITEL=，上载文件，TEXTLINE1=，更新数据库失败！，EXCEPTIONSOTHERS=1.ELSE.MESSAGE1033(ZXO)WITH「文件.上传成功!ENDIF.ENDIF.LEAVE•FORMget_pc_fi1ename★—*★—**——>PJNNAMEFORMGET_PC_F1LENAMEUSINGP_INNAMELIKERLGRAPFILENAMEMODE•DATA:L_VATFLIKERLGRAP-FILENAME.CALLFUNCTION1WS_FILENAME_GET1E

7、XPORTINGDEF_FILEN/kME=1'DEF_PATH=fC:1MASK=1z所有文件,*.*,Word文件,*.doc,Excel文件，*・xls.'MODE=MODETITLE=•请选择模板文件，IMPORTINGFILENAME=L_VATF★RC=DUMMYEXCEPTIONSINV_WINSYS=1NO_BATCH=2SELECTION_CANCEL=3SELECTION_ERROR=4OTHERS=5・IFSY-SUBRCNE0.CALLFUNCTION1POPUP_