《demo excl单页导入模板程序 和 excel 简单示例demo》由会员分享，可在线阅读，更多相关《demo excl单页导入模板程序 和 excel 简单示例demo（37页珍藏版）》请在金锄头文库上搜索。
1、模板导入的程序：REPORT ZEXCELTEMPLATEUPLOAD.TABLES: ZHROFFICE.SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.PARAMETERS SRTFD LIKE ZHROFFICE-SRTFD OBLIGATORY. 关键字（报表事务代码）PARAMETERS FILENAME LIKE ZHROFFICE-FILENAME OBLIGATORY. 文件名SELECTION-SCREEN END OF BLOCK B1.AT SELECTION-SCREEN ON VALUE-REQ
2、UEST FOR SRTFD.PERFORM GETF4HELP1 USING SRTFD.AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.PERFORM GET_PC_FILENAME USING FILENAME O.START-OF-SELECTION.DATA F(128) OCCURS 0 WITH HEADER LINE.DATA LC TYPE I.DATA: L_PGMNA LIKE ZHROFFICE-FILEDESC,L_TTEXT LIKE TSTCT-TTEXT.SELECT APGMNA BTTEXTFROM TST
3、C AS ALEFT JOIN TSTCT AS B ON SPRSL = 1 AND BTCODE = ATCODEINTO (L_PGMNA,L_TTEXT)WHERE ATCODE = SRTFD.ENDSELECT.IF SY-SUBRC 0.MESSAGE 事务代码不存在！ TYPE S DISPLAY LIKE E.STOP.ENDIF.SPLIT FILENAME AT INTO TABLE F.DESCRIBE TABLE F LINES LC.READ TABLE F INDEX LC.ZHROFFICE-FILENAME = F.ZHROFFICE-FILEDESC = L
4、_TTEXT.ZHROFFICE-AEDAT = SY-DATUM.ZHROFFICE-USERA = SY-UNAME.DATA: DATA_CONTAINER LIKE SOLI OCCURS 0 WITH HEADER LINE.DATA: LENGTH TYPE I.CLEAR DATA_CONTAINER. REFRESH DATA_CONTAINER.CALL FUNCTION WS_UPLOADEXPORTINGFILENAME = FILENAMEFILETYPE = BINIMPORTINGFILELENGTH = LENGTHTABLESDATA_TAB = DATA_CO
5、NTAINEREXCEPTIONSCONVERSION_ERROR = 1FILE_OPEN_ERROR = 2FILE_READ_ERROR = 3INVALID_TABLE_WIDTH = 4INVALID_TYPE = 5NO_BATCH = 6UNKNOWN_ERROR = 7OTHERS = 8.IF SY-SUBRC NE 0.CALL FUNCTION POPUP_TO_DISPLAY_TEXTEXPORTINGTITEL = 上载文件TEXTLINE1 = 上载失败！EXCEPTIONSOTHERS = 1.ELSE.MOVE LENGTH TO DATA_CONTAINER-
6、LINE.APPEND DATA_CONTAINER.EXPORT DATA_CONTAINER TO DATABASE ZHROFFICE(CN) ID SRTFD.IF SY-SUBRC NE 0.CALL FUNCTION POPUP_TO_DISPLAY_TEXTEXPORTINGTITEL = 上载文件TEXTLINE1 = 更新数据库失败！EXCEPTIONSOTHERS = 1.ELSE.MESSAGE I033(ZXO) WITH 文件上传成功！.ENDIF.ENDIF.LEAVE.*-* FORM get_pc_filename *-* . *-* P_INNAME *-*F
7、ORM GET_PC_FILENAME USING P_INNAME LIKE RLGRAP-FILENAMEMODE .DATA: L_VATF LIKE RLGRAP-FILENAME.CALL FUNCTION WS_FILENAME_GETEXPORTINGDEF_FILENAME = DEF_PATH = C:MASK = ,所有文件,*.*,Word 文件,*.doc,Excel 文件,*.xls.MODE = MODETITLE = 请选择模板文件IMPORTINGFILENAME = L_VATF* RC = DUMMYEXCEPTIONSINV_WINSYS = 1NO_BA
8、TCH = 2SELECTION_CANCEL = 3SELECTION_ERROR = 4OTHERS = 5.IF SY-SUBRC NE 0.CALL FUNCTION POPUP_TO_DISPLAY_TEXTEXPORTINGTITEL = 错误TEXTLINE1 = 选择文件错误！EXCEPTIONSOTHERS = 1.ELSE.P_INNAME = L_VATF.ENDIF.ENDFORM. get_pc_filename*&-*& Form GETF4HELP1*&-*FORM GETF4HELP1 USING SRTFD.DATA: LTAB_FIELDS LIKE HEL
9、P_VALUE OCCURS 0 WITH HEADER LINE,BEGIN OF LTAB_VALUES OCCURS 0,FELD(40) TYPE C,END OF LTAB_VALUES.DATA: L_TCODE LIKE TSTC-TCODE,L_TTEXT LIKE TSTCT-TTEXT.CLEAR: LTAB_FIELDS, LTAB_VALUES.REFRESH: LTAB_FIELDS, LTAB_VALUES.LTAB_FIELDS-TABNAME = TSTC.LTAB_FIELDS-FIELDNAME = TCODE.LTAB_FIELDS-SELECTFLAG
10、= X.APPEND LTAB_FIELDS.CLEAR LTAB_FIELDS.LTAB_FIELDS-TABNAME = TSTCT.LTAB_FIELDS-FIELDNAME = TTEXT.APPEND LTAB_FIELDS.CLEAR LTAB_FIELDS.CLEAR: L_TCODE,L_TTEXT.SELECT ATCODE BTTEXTFROM TSTC AS ALEFT JOIN TSTCT AS B ON SPRSL = 1 AND BTCODE = ATCODEINTO (L_TCODE,L_TTEXT)WHERE ATCODE IN ( SELECT DISTINC
11、T SRTFD FROM ZHROFFICE ).LTAB_VALUES-FELD = L_TCODE.APPEND LTAB_VALUES.CLEAR LTAB_VALUES.LTAB_VALUES-FELD = L_TTEXT.APPEND LTAB_VALUES.CLEAR LTAB_VALUES.ENDSELECT.CALL FUNCTION HELP_VALUES_GET_WITH_TABLEEXPORTINGFIELDNAME = TCODE TABNAME = TSTCTITEL = 选择事务代码IMPORTINGSELECT_VALUE = SRTFDTABLESFIELDS
12、= LTAB_FIELDSVALUETAB = LTAB_VALUESEXCEPTIONSFIELD_NOT_IN_DDIC = 01MORE_THEN_ONE_SELECTFIELD = 02NO_SELECTFIELD = 03OTHERS = 4.IF SY-SUBRC 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.ENDFORM. GETF4HELP1实例：REPORT zfir001.*-* Program ID : ZFIR001* Program Description : 资产负债表* Developed By : cgf* Started on : 2013.03.08* Ended :*-TYPE-POOLS: ole2. 引入 SLIS 工
