ABAP 文件下载

 

1.SMW0 上传文件

 

2.程序触发下载事件

参考：

CONSTANTS:CNS_TEMPNAME LIKE WWWDATA-OBJID VALUE 'ZXXXX', "服务器模板名称
CNS_PATH LIKE RLGRAP-FILENAME VALUE 'C:\SAPTMP\', "本地处理临时文件夹
CNS_MACRO TYPE CHAR256 VALUE 'AUTOFILL'. "Excel宏名称

DATA: LS_WWWDATATAB LIKE WWWDATATAB,
LV_SUBRC LIKE SY-SUBRC.

CLEAR LS_WWWDATATAB.
GV_OBJID = CNS_TEMPNAME.
SELECT SINGLE *
FROM WWWDATA
INTO CORRESPONDING FIELDS OF LS_WWWDATATAB
WHERE RELID = 'MI'
AND OBJID = GV_OBJID
AND SRTF2 = 0.

IF SY-SUBRC <> 0.
MESSAGE '模板文件不存在，请通过SMW0上传模板文件' TYPE 'E' RAISING OTHERS.
ELSE.

CONCATENATE CNS_PATH CNS_TEMPNAME '.xls' INTO GV_FILENAME.
GV_FILENAME = P_FILE.
CLEAR: LV_SUBRC,
GV_STRING.
GV_STRING = GV_FILENAME.

 

"调用DOWNLOAD_WEB_OBJECT 函数下载模板到路径下
CLEAR LV_SUBRC.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
　　EXPORTING
　　　　KEY = LS_WWWDATATAB
　　　　DESTINATION = GV_FILENAME
　　IMPORTING
　　　　RC = LV_SUBRC.
IF LV_SUBRC NE 0.
　　MESSAGE '模板文件下载失败，请联系系统管理员' TYPE 'E' RAISING OTHERS.
ENDIF.
ENDIF.