資源描述:
《將Excel file上轉(zhuǎn)到Internal table的方法》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、將Excelfile上轉(zhuǎn)到Internaltable的方法1定義輸入文件(Localfileforupload/download)SELECTION-SCREENBEGINOFBLOCKb2WITHFRAMETITLEtext-002.PARAMETERSp_fileLIKErlgrap-filenameOBLIGATORYMODIFIDfin.SELECTION-SCREENENDOFBLOCKb2.2SearchhelpforgetdownloadpathfromPCATSELECTION-SCREENONVALUE-REQU
2、ESTFORp_file.PERFORMget_pc_download_path(zbar00001)USING'X'CHANGINGp_file.ENDIF.*&---------------------------------------------------------------------**&SearchhelpforgetdownloadpathformPC*----------------------------------------------------------------------*FORMget_
3、pc_download_pathUSINGvalue(p_value)CHANGINGp_pcfileLIKErlgrap-filename.CALLFUNCTION'KD_GET_FILENAME_ON_F4'EXPORTINGstatic=p_valueCHANGINGfile_name=p_pcfile.ENDFORM."get_pc_download_path3TransferExcelrecordtointernaltableFORMtransfer_to_it_file.DATA:lt_internTYPEalsmex
4、_tablineOCCURS0WITHHEADERLINE.DATA:l_rowTYPEi,l_colTYPEi,l_tabixTYPEi.CONSTANTS:c_linesizeTYPEiVALUE132.DATA:l_row_stTYPEiVALUE'2',l_row_edTYPEiVALUE'65535',l_col_stTYPEiVALUE'1',l_col_edTYPEiVALUE'15'.*&fuctiontouploadexceldataintointernaltablelt_internCALLFUNCTION'A
5、LSM_EXCEL_TO_INTERNAL_TABLE'EXPORTINGfilename=p_filei_begin_col=l_col_sti_begin_row=l_row_sti_end_col=l_col_edi_end_row=l_row_edTABLESintern=lt_internEXCEPTIONSinconsistent_parameters=1upload_ole=2OTHERS=3.*&iffileformatiswrongetc.,showerrormessage.IFsy-subrc<>0.MESSA
6、GEs240(s#)WITH'Erroruploadtointernaltable!'.EXIT.ENDIF.*&nodatainexcelfileIFlt_intern[]ISINITIAL.MESSAGEs240(s#)WITH'Nodatabeupload!'.EXIT.ELSE.SORTlt_internBYrowcol.LOOPATlt_intern.l_row=lt_intern-row.l_col=lt_intern-col+1.l_tabix=sy-tabix.ASSIGNCOMPONENTl_colOFSTRUC
7、TUREit_fileTO.=lt_intern-value.ATENDOFrow.*whenkpein=0haveerrorIFit_tab-kpein=0.it_tab-kpein=1.ENDIF.it_file-zzsite=p_site.it_file-zzerdat=g_erdat.it_file-erdat=sy-datum.it_file-erzet=sy-uzeit.it_file-zzusdid=g_userid.*CheckDNnumberanditemexistsornot.PERFORMconv
8、ert_alpha_inputUSINGit_file-vbeln.PERFORMconvert_alpha_inputUSINGit_file-posnr.PERFORMcheck_dnUSINGit_file-vbelnit_file-posn