下载模板，上传EXCEL详解编程语言

说道SAP里对EXCEL操作的大概就是上传，下载，显示了。。。

下载：（文档是通过SMW0上传的）注：如果下载的时候需要填充EXCEL的值，。。。请参考另一篇文档，OLE

CALL METHOD CL_GUI_FRONTEND_SERVICES= FILE_SAVE_DIALOG 

 EXPORTING 

 DEFAULT_EXTENSION = xlsx 

 DEFAULT_FILE_NAME = LC_FILENAME 

 CHANGING 

 FILENAME = LC_FILENAME 

 PATH = LC_PATH 

 FULLPATH = LC_FULLPATH 

 EXCEPTIONS 

 CNTL_ERROR = 1 

 ERROR_NO_GUI = 2 

 NOT_SUPPORTED_BY_GUI = 3 

 OTHERS = 4. 

 IF LC_FULLPATH = . 

 MESSAGE 不能打开excel TYPE E. 

 ENDIF. 

 IF SY-SUBRC = 0. 

 P_DEST = LC_FULLPATH. 

* concatenate p_objid .XLS into ls_objnam. 

 CONDENSE LS_OBJNAM NO-GAPS. 

 SELECT SINGLE RELID OBJID FROM WWWDATA INTO CORRESPONDING FIELDS OF LO_OBJDATA 

 WHERE SRTF2 = 0 AND RELID = MI AND OBJID = P_OBJID. 

 IF SY-SUBRC NE 0 OR LO_OBJDATA-OBJID EQ SPACE. 

 CONCATENATE 模板文件 LS_OBJNAM 不存在 INTO LS_ERRTXT. 

 MESSAGE LS_ERRTXT TYPE I. 

 ENDIF. 

 LS_DESTINATION = P_DEST. 

 CALL FUNCTION DOWNLOAD_WEB_OBJECT 

 EXPORTING 

 KEY = LO_OBJDATA 

 DESTINATION = LS_DESTINATION 

 IMPORTING 

 RC = LI_RC. 

 IF LI_RC NE 0. 

 CONCATENATE 模板文件： LS_OBJNAM 下载失败 INTO LS_ERRTXT. 

 MESSAGE LS_ERRTXT TYPE E. 

 ENDIF. 

 ENDIF.

上传：

选择屏上加个文件路径选择：

SELECTION-SCREEN:BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-001. 

PARAMETERS:P_FILE LIKE RLGRAP-FILENAME. 

SELECTION-SCREEN END OF BLOCK BLK01.

给文件搜索帮助：

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. 

 PERFORM FRM_GET_FILEPATH.

18631.html