SAP万能导入精读.docxVIP

SAP万能导入程序Author：SUNZK QQ：1131341075REPORT?YMPSRIMPORTING?MESSAGE-ID?YMTT.INCLUDE?OLE2INCL.INCLUDE?Z_BATCHIMPORT_TOP.INCLUDE?Z_BATCHIMPORT_SCR.INCLUDE?Z_BATCHIMPORT_F01.AT?SELECTION-SCREEN?ON?VALUE-REQUEST?FOR?P_FILE.??PERFORM?GET_FILENAME_ON_F4?USING?P_FILE.AT?SELECTION-SCREEN?OUTPUT.AT?SELECTION-SCREEN.START-OF-SELECTION.??IF?P_FILE?IS?INITIAL.????MESSAGE?请输入文件路径！?TYPE?S?DISPLAY?LIKE?E.??ELSE.????DATA:LV_MSG?TYPE?C.????DATA:LV_FILE?TYPE?STRING.????LV_FILE?=?P_FILE.????CALL?METHOD?CL_GUI_FRONTEND_SERVICES=FILE_EXIST??????EXPORTING????????FILE?????????????????=?LV_FILE??????RECEIVING????????RESULT???????????????=?LV_MSG??????EXCEPTIONS????????CNTL_ERROR???????????=?1????????ERROR_NO_GUI?????????=?2????????WRONG_PARAMETER??????=?3????????NOT_SUPPORTED_BY_GUI?=?4????????OTHERS???????????????=?5.????IF?SY-SUBRC??0.????ENDIF.????IF?LV_MSG?IS?INITIAL.??????MESSAGE?文件不存在?TYPE?S.????ELSE.??????CLEAR:GV_MESSAGE.??????获取到EXCEL的?SHEET页名??????PERFORM?GET_SHEETNAMES.??????检查SHEET页名对应的表是否存在(并且仅允许操作Y,Z开头的自建表)??????PERFORM?CHECK_TABLE_NAME?CHANGING?GV_MESSAGE.??????IF?GV_MESSAGE?IS?NOT?INITIAL.????????MESSAGE?GV_MESSAGE?TYPE?S?DISPLAY?LIKE?E.????????STOP.??????ENDIF.??????根据SHEET页表名?生成其表结构对应的动态内表??????PERFORM?CREATE_DYNAMIC_TABLE.??????根据表结构?生成?ALV字段列表??????PERFORM?CREATE_ALV_FCAT.??????上载EXCEL数据到内表??????PERFORM?UPLOAD_DATA_FROM_EXCEL.??????填充状态栏上?按钮动态文本、初始状态、标题等。??????PERFORM?FILL_BUTTON_TEXT.??????数据屏幕??????CALL?SCREEN?1001.????ENDIF.??ENDIF.TYPES:BEGIN?OF?TY_BUTTON,????????BT01?TYPE?CHAR30,????????BT02?TYPE?CHAR30,????????BT03?TYPE?CHAR30,????????BT04?TYPE?CHAR30,????????BT05?TYPE?CHAR30,????????BT06?TYPE?CHAR30,????????BT07?TYPE?CHAR30,????????BT08?TYPE?CHAR30,????????BT09?TYPE?CHAR30,????????BT10?TYPE?CHAR30,??????END?OF?TY_BUTTON.按钮文本结构，十个按钮TYPES:BEGIN?OF?TY_SHEETNAME,????????SHEETNAME?TYPE?CHAR30,??????END?OF?TY_SHEETNAME.EXCEL?sheet页DATA:GS_BUTTON?TYPE?TY_BUTTON.BUTTON?描述DATA:GV_TITLE?TYPE?STRING.用于标识?当前状态下的?标题DATA:GV_SCR1001_MODE?TYPE?CHAR30.用于标识?当前屏幕的状态DATA:GV_CURRENT_TAB