demo excl单页导入模板程序 和 excel 简单示例demo.docx

模板导入的程序：REPORTZEXCELTEMPLATEUPLOAD.TABLES:ZHROFFICE.SELECTION-SCREENBEGINOFBLOCKB1WITHFRAMETITLETEXT-001.PARAMETERSSRTFDLIKEZHROFFICE-SRTFDOBLIGATORY.关键字（报表事务代码）PARAMETERSFILENAMELIKEZHROFFICE-FILENAMEOBLIGATORY.文件名SELECTION-SCREENENDOFBLOCKB1.ATSELECTION-SCREENONVALUE-REQUESTFORSRTFD.PERFORMGETF4HELP1USINGSRTFD.ATSELECTION-SCREENONVALUE-REQUESTFORFILENAME.PERFORMGET_PC_FILENAMEUSINGFILENAMEO.START-OF-SELECTION.DATAF(128)OCCURS0WITHHEADERLINE.DATALCTYPEI.DATA:L_PGMNALIKEZHROFFICE-FILEDESC,L_TTEXTLIKETSTCT-TTEXT.SELECTAPGMNABTTEXTFROMTSTCASALEFTJOINTSTCTASBONSPRSL=1ANDBTCODE=ATCODEINTO(L_PGMNA,L_TTEXT)WHEREATCODE=SRTFD.ENDSELECT.IFSY-SUBRC0.MESSAGE事务代码不存在！TYPESDISPLAYLIKEE.STOP.ENDIF.SPLITFILENAMEATINTOTABLEF.DESCRIBETABLEFLINESLC.READTABLEFINDEXLC.ZHROFFICE-FILENAME=F.ZHROFFICE-FILEDESC=L_TTEXT.ZHROFFICE-AEDAT=SY-DATUM.ZHROFFICE-USERA=SY-UNAME.DATA:DATA_CONTAINERLIKESOLIOCCURS0WITHHEADERLINE.DATA:LENGTHTYPEI.CLEARDATA_CONTAINER.REFRESHDATA_CONTAINER.CALLFUNCTIONWS_UPLOADEXPORTINGFILENAME=FILENAMEFILETYPE=BINIMPORTINGFILELENGTH=LENGTHTABLESDATA_TAB=DATA_CONTAINEREXCEPTIONSCONVERSION_ERROR=1FILE_OPEN_ERROR=2FILE_READ_ERROR=3INVALID_TABLE_WIDTH=4INVALID_TYPE=5NO_BATCH=6UNKNOWN_ERROR=7OTHERS=8.IFSY-SUBRCNE0.CALLFUNCTIONPOPUP_TO_DISPLAY_TEXTEXPORTINGTITEL=上载文件TEXTLINE1=上载失败！EXCEPTIONSOTHERS=1.ELSE.MOVELENGTHTODATA_CONTAINER-LINE.APPENDDATA_CONTAINER.EXPORTDATA_CONTAINERTODATABASEZHROFFICE(CN)IDSRTFD.IFSY-SUBRCNE0.CALLFUNCTIONPOPUP_TO_DISPLAY_TEXTEXPORTINGTITEL=上载文件TEXTLINE1=更新数据库失败！EXCEPTIONSOTHERS=1.ELSE.MESSAGEI033(ZXO)WITH文件上传成功！.ENDIF.ENDIF.LEAVE.*-*FORMget_pc_filename*-*.*-*-P_INNAME*-*FORMGET_PC_FILENAMEUSINGP_INNAMELIKERLGRAP-FILENAMEMODE.DATA:L_VATFLIKERLGRAP-FILENAME.CALLFUNCTIONWS_FILENAME_GETEXPORTINGDEF_FILENAME=DEF_PATH=C:MASK=,所有文件,*.*,Word文件,*.doc,Excel文件,*.xls.MODE=MODETITLE=请选择模板文件IMPORTINGFILENAME=L_VATF*RC=DUMMYEXCEPTIONSINV_WINSYS=1NO_BATCH=2SELECTION_CANCEL=3SELECTION_ERROR=4OTHERS=5.IFSY-SUBRCNE0.CALLFUNCTIONPOPUP_TO_DISPLAY_TEXTEXPORTINGTITEL=错误TEXTLINE1=选择文件错误！EXCEPTIONSOTHERS=1.ELSE.P_INNAME=L_VATF.ENDIF.ENDFORM.get_pc_filename*&-*&FormGETF4HELP1*&-*FORMGETF4HELP1USINGSRTFD.DATA:LTAB_FIELDSLIKEHELP_VALUEOCCURS0WITHHEADERLINE,BEGINOFLTAB_VALUESOCCURS0,FELD(40)TYPEC,ENDOFLTAB_VALUES.DATA:L_TCODELIKETSTC-TCODE,L_TTEXTLIKETSTCT-TTEXT.CLEAR:LTAB_FIELDS,LTAB_VALUES.REFRESH:LTAB_FIELDS,LTAB_VALUES.LTAB_FIELDS-TABNAME=TSTC.LTAB_FIELDS-FIELDNAME=TCODE.LTAB_FIELDS-SELECTFLAG=X.APPENDLTAB_FIELDS.CLEARLTAB_FIELDS.LTAB_FIELDS-TABNAME=TSTCT.LTAB_FIELDS-FIELDNAME=TTEXT.APPENDLTAB_FIELDS.CLEARLTAB_FIELDS.CLEAR:L_TCODE,L_TTEXT.SELECTATCODEBTTEXTFROMTSTCASALEFTJOINTSTCTASBONSPRSL=1ANDBTCODE=ATCODEINTO(L_TCODE,L_TTEXT)WHEREATCODEIN(SELECTDISTINCTSRTFDFROMZHROFFICE).LTAB_VALUES-FELD=L_TCODE.APPENDLTAB_VALUES.CLEARLTAB_VALUES.LTAB_VALUES-FELD=L_TTEXT.APPENDLTAB_VALUES.CLEARLTAB_VALUES.ENDSELECT.CALLFUNCTIONHELP_VALUES_GET_WITH_TABLEEXPORTINGFIELDNAME=TCODETABNAME=TSTCTITEL=选择事务代码IMPORTINGSELECT_VALUE=SRTFDTABLESFIELDS=LTAB_FIELDSVALUETAB=LTAB_VALUESEXCEPTIONSFIELD_NOT_IN_DDIC=01MORE_THEN_ONE_SELECTFIELD=02NO_SELECTFIELD=03OTHERS=4.IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.ENDFORM.GETF4HELP1实例：REPORTzfir001.*-*ProgramID:ZFIR001*ProgramDescription:资产负债表*DevelopedBy:cgf*Startedon:2013.03.08*Ended:*-TYPE-POOLS:ole2.引入SLIS工具包，需要用到里面的函数TABLES:faglflext,t001,bkpf,bsis.DATA:it_faglflextLIKETABLEOFfaglflextWITHHEADERLINE.DATA:l_excelTYPEole2_object,Excelobjectl_windowTYPEole2_object,listofworkbooksl_booksTYPEole2_object,listofworkbooksl_bookTYPEole2_object,workbookl_cellTYPEole2_object,cellobjectl_fontTYPEole2_object,fontobjectl_columnTYPEole2_object,COLUMNOBJECTl_rowTYPEole2_object,COLUMNOBJECTl_rangeTYPEole2_object,RANGEOBJECTl_formatTYPEole2_object,RANGEOBJECTl_borderTYPEole2_object,BORDEROBJECTl_edgebottomTYPEole2_object,BORDEROBJECTl_sheetTYPEole2_object,cellobjectl_pagesetupTYPEole2_object,fontobjectl_interiorTYPEole2_object,g_cellTYPEole2_object,v_excelTYPEole2_object.DATA:g_text(500),g_text01(100),g_dateLIKEsy-datum.DATA:g_1001LIKEfaglflext-hslvt,货币资金g_1002LIKEfaglflext-hslvt,交易性金融资产g_1003LIKEfaglflext-hslvt,应收票据g_1004LIKEfaglflext-hslvt,应收账款g_1004_1LIKEfaglflext-hslvt,减：坏账准备g_1005LIKEfaglflext-hslvt,预付款项g_1006LIKEfaglflext-hslvt,应收利息g_1007LIKEfaglflext-hslvt,应收股利g_1008LIKEfaglflext-hslvt,其他应收款g_1008_1LIKEfaglflext-hslvt,减：坏账准备g_1009LIKEfaglflext-hslvt,存货g_1009_1LIKEfaglflext-hslvt,其中：原材料g_1009_2LIKEfaglflext-hslvt,库存商品g_1009_3LIKEfaglflext-hslvt,存货跌价准备g_1010LIKEfaglflext-hslvt,一年内到期的非流动资产g_1011LIKEfaglflext-hslvt,其他流动资产g_1012LIKEfaglflext-hslvt,可供出售金融资产g_1013LIKEfaglflext-hslvt,持有至到期投资g_1014LIKEfaglflext-hslvt,长期应收款g_1015LIKEfaglflext-hslvt,长期股权投资g_1016LIKEfaglflext-hslvt,投资性房地产g_1017LIKEfaglflext-hslvt,固定资产g_1017_1LIKEfaglflext-hslvt,减：累计折旧g_1017_2LIKEfaglflext-hslvt,减：固定资产减值准备g_1018LIKEfaglflext-hslvt,在建工程g_1019LIKEfaglflext-hslvt,工程物资g_1020LIKEfaglflext-hslvt,固定资产清理g_1021LIKEfaglflext-hslvt,生产性生物资产g_1022LIKEfaglflext-hslvt,油气资产g_1023LIKEfaglflext-hslvt,无形资产g_1023_1LIKEfaglflext-hslvt,其中：土地使用权g_1024LIKEfaglflext-hslvt,开发支出g_1025LIKEfaglflext-hslvt,商誉g_1026LIKEfaglflext-hslvt,长期待摊费用g_1027LIKEfaglflext-hslvt,递延所得税资产g_1028LIKEfaglflext-hslvt,其他非流动资产g_1029LIKEfaglflext-hslvt,短期借款g_1030LIKEfaglflext-hslvt,交易性金融负债g_1031LIKEfaglflext-hslvt,应付票据g_1032LIKEfaglflext-hslvt,应付账款g_1033LIKEfaglflext-hslvt,预收款项g_1034LIKEfaglflext-hslvt,应付职工薪酬g_1034_1LIKEfaglflext-hslvt,应付工资g_1034_2LIKEfaglflext-hslvt,应付保险费g_1035LIKEfaglflext-hslvt,应交税费g_1035_1LIKEfaglflext-hslvt,应交税金g_1036LIKEfaglflext-hslvt,应付利息g_1037LIKEfaglflext-hslvt,应付股利g_1038LIKEfaglflext-hslvt,其他应付款g_1039LIKEfaglflext-hslvt,一年内到期的非流动负债g_1040LIKEfaglflext-hslvt,其他流动负债g_1041LIKEfaglflext-hslvt,长期借款g_1042LIKEfaglflext-hslvt,应付债券g_1043LIKEfaglflext-hslvt,长期应付款g_1044LIKEfaglflext-hslvt,专项应付款g_1044_1LIKEfaglflext-hslvt,递延收益g_1045LIKEfaglflext-hslvt,预计负债g_1046LIKEfaglflext-hslvt,递延所得税负债g_1047LIKEfaglflext-hslvt,其他非流动负债g_1048LIKEfaglflext-hslvt,实收资本（或股本）g_1049LIKEfaglflext-hslvt,资本公积g_1049_1LIKEfaglflext-hslvt,减：库存股g_1050LIKEfaglflext-hslvt,减：库存股g_1051LIKEfaglflext-hslvt,盈余公积g_1052LIKEfaglflext-hslvt,未分配利润g_1053LIKEfaglflext-hslvt,外币报表折算差额g_1001_finalLIKEfaglflext-hslvt,货币资金g_1002_finalLIKEfaglflext-hslvt,交易性金融资产g_1003_finalLIKEfaglflext-hslvt,应收票据g_1004_finalLIKEfaglflext-hslvt,应收账款g_1004_1_finalLIKEfaglflext-hslvt,减：坏账准备g_1005_finalLIKEfaglflext-hslvt,预付款项g_1006_finalLIKEfaglflext-hslvt,应收利息g_1007_finalLIKEfaglflext-hslvt,应收股利g_1008_finalLIKEfaglflext-hslvt,其他应收款g_1008_1_finalLIKEfaglflext-hslvt,减：坏账准g_1009_finalLIKEfaglflext-hslvt,存货g_1009_1_finalLIKEfaglflext-hslvt,其中：原材料g_1009_2_finalLIKEfaglflext-hslvt,库存商品g_1009_3_finalLIKEfaglflext-hslvt,存货跌价准备g_1010_finalLIKEfaglflext-hslvt,一年内到期的非流动资产g_1011_finalLIKEfaglflext-hslvt,其他流动资产g_1012_finalLIKEfaglflext-hslvt,可供出售金融资产g_1013_finalLIKEfaglflext-hslvt,持有至到期投资g_1014_finalLIKEfaglflext-hslvt,长期应收款g_1015_finalLIKEfaglflext-hslvt,长期股权投资g_1016_finalLIKEfaglflext-hslvt,投资性房地产g_1017_finalLIKEfaglflext-hslvt,固定资产g_1017_1_finalLIKEfaglflext-hslvt,减：累计折旧g_1017_2_finalLIKEfaglflext-hslvt,减：固定资产减值准备g_1018_finalLIKEfaglflext-hslvt,在建工程g_1019_finalLIKEfaglflext-hslvt,工程物资g_1020_finalLIKEfaglflext-hslvt,固定资产清理g_1021_finalLIKEfaglflext-hslvt,生产性生物资产g_1022_finalLIKEfaglflext-hslvt,油气资产g_1023_finalLIKEfaglflext-hslvt,无形资产g_1023_1_finalLIKEfaglflext-hslvt,其中：土地使用权g_1024_finalLIKEfaglflext-hslvt,开发支出g_1025_finalLIKEfaglflext-hslvt,商誉g_1026_finalLIKEfaglflext-hslvt,长期待摊费用g_1027_finalLIKEfaglflext-hslvt,递延所得税资产g_1028_finalLIKEfaglflext-hslvt,其他非流动资产g_1029_finalLIKEfaglflext-hslvt,短期借款g_1030_finalLIKEfaglflext-hslvt,交易性金融负债g_1031_finalLIKEfaglflext-hslvt,应付票据g_1032_finalLIKEfaglflext-hslvt,应付账款g_1033_finalLIKEfaglflext-hslvt,预收款项g_1034_finalLIKEfaglflext-hslvt,应付职工薪酬g_1034_1_finalLIKEfaglflext-hslvt,应付工资g_1034_2_finalLIKEfaglflext-hslvt,应付保险费g_1035_finalLIKEfaglflext-hslvt,应交税费g_1035_1_finalLIKEfaglflext-hslvt,应交税金g_1036_finalLIKEfaglflext-hslvt,应付利息g_1037_finalLIKEfaglflext-hslvt,应付股利g_1038_finalLIKEfaglflext-hslvt,其他应付款g_1039_finalLIKEfaglflext-hslvt,一年内到期的非流动负债g_1040_finalLIKEfaglflext-hslvt,其他流动负债g_1041_finalLIKEfaglflext-hslvt,长期借款g_1042_finalLIKEfaglflext-hslvt,应付债券g_1043_finalLIKEfaglflext-hslvt,长期应付款g_1044_finalLIKEfaglflext-hslvt,专项应付款g_1044_1_finalLIKEfaglflext-hslvt,递延收益g_1045_finalLIKEfaglflext-hslvt,预计负债-g_1046_finalLIKEfaglflext-hslvt,递延所得税负债g_1047_finalLIKEfaglflext-hslvt,其他非流动负债g_1048_finalLIKEfaglflext-hslvt,实收资本（或股本）g_1049_finalLIKEfaglflext-hslvt,资本公积g_1049_1_finalLIKEfaglflext-hslvt,减：库存股g_1050_finalLIKEfaglflext-hslvt,减：库存股g_1051_finalLIKEfaglflext-hslvt,盈余公积g_1052_finalLIKEfaglflext-hslvt,未分配利润g_1053_finalLIKEfaglflext-hslvt.外币报表折算差额DATA:g_9999LIKEfaglflext-hslvt,g_9999_finalLIKEfaglflext-hslvt.DATA:g_9998LIKEfaglflext-hslvt,g_9998_finalLIKEfaglflext-hslvt.DATA:it_t001LIKETABLEOFt001WITHHEADERLINE.公司代码SELECTION-SCREENBEGINOFBLOCKb1WITHFRAMETITLEtext-001.SELECT-OPTIONS:p_bukrsFORbkpf-bukrsOBLIGATORYDEFAULT2001.公司代码PARAMETERS:P_BUKRSLIKEBSEG-BUKRSOBLIGATORYDEFAULT,公司代码p_gjahrLIKEbseg-gjahrOBLIGATORYDEFAULTsy-datum+0(4),p_monatLIKEbkpf-monatOBLIGATORYDEFAULTsy-datum+4(2).SELECTION-SCREENENDOFBLOCKb1.START-OF-SELECTION.*PERFORMfrm_auth_check.PERFORMfrm_get_data.END-OF-SELECTION.PERFORMfrm_output_data.*&-*&FormFRM_GET_DATA*&-*text*-*-p1text*-p2text*-*FORMfrm_get_data.DATA:lv_subrcTYPEsy-subrc,lv_msgTYPEstring.*检查数据正确性PERFORMfrm_check_dataCHANGINGlv_subrclv_msg.IFlv_subrc0.MESSAGElv_msgTYPEI.ENDIF.CHECKlv_subrcEQ0.DATA:i_numTYPEi.SELECT*FROMt001INTOCORRESPONDINGFIELDSOFTABLEit_t001WHEREbukrsINp_bukrs.BUKRS=P_BUKRS.SELECT*INTOTABLEit_faglflextFROMfaglflextWHERErbukrsINp_bukrs=p_bukrsANDryear=p_gjahr.SORTit_faglflextBYracctrfarea.LOOPATit_faglflext.*流动资产*IFit_faglflext-racct=1001000000ANDit_faglflext-racct=1101000001ANDIT_FAGLFLEXT-RACCT=1121000000ANDit_faglflext-racct=1122000000A