sap模板下载

TECODE&＃xff1a;SMW0.


结果画面选择新建&＃xff0c;输入对象名称&＃xff08;这个名称后面代码用到要记住&＃xff09;和描述&＃xff0c;导入自己的模板&＃xff08;需要修改模板点击修改笔就可以&＃xff09;

保存到对应的传入依赖就可以了&＃xff0c;这样可以把模板文件跟程序一起传输到生产机

代码模块&＃xff1a;

AT SELECTION-SCREEN. TABLES: SSCRFIELDS."写入选择屏幕那里的定义"权限检查PERFORM FRM_CHECK_AUTH."DownloadIF SSCRFIELDS-UCOMM &＃61; &＃39;DOWN&＃39;.PERFORM FRM_DOWNLOAD_EXCEL.ENDIF.


FORM FRM_DOWNLOAD_EXCEL .DATA: LS_WWWDATATAB LIKE WWWDATATAB,LT_MIME LIKE W3MIME OCCURS 10,LV_FILENAME TYPE STRING,LV_PATH TYPE STRING,LV_FULLPATH TYPE STRING,WINDOW_TITLE TYPE STRING,DEFAULT_FILE_NAME TYPE STRING.DATA: LV_DESTINATION TYPE RLGRAP-FILENAME,LV_SUBRC TYPE SY-SUBRC.CLEAR: LS_WWWDATATAB,LT_MIME[],LV_FILENAME,LV_PATH,LV_FULLPATH,WINDOW_TITLE,DEFAULT_FILE_NAME.LS_WWWDATATAB-RELID &＃61; &＃39;MI&＃39;. "IMPORT/EXPORT 数据表中的区域LS_WWWDATATAB-OBJID &＃61; &＃39;ZJZSD055&＃39;. "这里写入刚刚让记住的模板对象名LS_WWWDATATAB-TEXT &＃61; &＃39;涂料基准成本导入模板&＃39;. "WWWDATA 对象的短文本WINDOW_TITLE &＃61; &＃39;涂料基准成本导入模板&＃39;.DEFAULT_FILE_NAME &＃61; &＃39;涂料基准成本导入模板&＃39;.CALL FUNCTION &＃39;WWWDATA_IMPORT&＃39; "#EC *EXPORTINGKEY &＃61; LS_WWWDATATABTABLESMIME &＃61; LT_MIMEEXCEPTIONSWRONG_OBJECT_TYPE &＃61; 1IMPORT_ERROR &＃61; 2OTHERS &＃61; 3.CALL METHOD CL_GUI_FRONTEND_SERVICES&＃61;>FILE_SAVE_DIALOGEXPORTINGWINDOW_TITLE &＃61; WINDOW_TITLEDEFAULT_EXTENSION &＃61; &＃39;xlsx&＃39;DEFAULT_FILE_NAME &＃61; DEFAULT_FILE_NAME
* file_filter &＃61; &＃39;EXCEL&＃39;CHANGINGFILENAME &＃61; LV_FILENAMEPATH &＃61; LV_PATHFULLPATH &＃61; LV_FULLPATHEXCEPTIONSCNTL_ERROR &＃61; 1ERROR_NO_GUI &＃61; 2NOT_SUPPORTED_BY_GUI &＃61; 3OTHERS &＃61; 4.IF SY-SUBRC <> 0.STOP.ENDIF.IF LV_FULLPATH IS NOT INITIAL.LV_DESTINATION &＃61; LV_FULLPATH.CALL FUNCTION &＃39;DOWNLOAD_WEB_OBJECT&＃39;EXPORTINGKEY &＃61; LS_WWWDATATABDESTINATION &＃61; LV_DESTINATIONIMPORTINGRC &＃61; LV_SUBRC.IF LV_SUBRC <> 0.MESSAGE &＃39;下载失败&＃39; TYPE &＃39;S&＃39; DISPLAY LIKE &＃39;E&＃39;.ENDIF.ENDIF.ENDFORM.


完成&＃xff01;