1.通过选择屏幕按钮控制下载模板
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'FC01'.
PERFORM frm_download_temp.
ENDIF.
2.通过调用函数“DOWNLOAD_WEB_OBJECT”,从服务器下载对应文件,这里要注意,文件名与SMW0服务器中对象名称相对应:
FORM frm_download_temp.
DATA l_key TYPE wwwdatatab.
DATA rc TYPE i.
l_key-relid = 'MI'.
l_key-objid = 'ZPP22'.
l_key-tdate = sy-datum.
l_key-ttime = sy-uzeit.
l_key-text = '在制车型导入模板'.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
key = l_key
* destination = p_file
IMPORTING
rc = rc.
IF rc NE 0 .
MESSAGE s000(ih) WITH '模版还未上传' DISPLAY LIKE 'E'.
ENDIF.
ENDFORM.
至于读取上传EXCEL内容,之前博客已经写过,这里就不再阐述了。
dev 300 ZPP22.