WebDynpro中实现Excel模板下载功能

1.打开SE80创建WebDynpro组件。

2.填写详细信息

3.然后点击组件右键创建选项导入一个EXCEL模板

4.这个时候将我们本地新建的模板文件导入进去。

5.操作的系统模板名字暂时不能应用为中文，会提示错误。所以这里我将模板名字设置为1。

6.在VIEW视图下创建一个模板下载按钮。

7.然后创建ON Action就是点击按钮后的操作。双击进入到代码编辑器。

8.然后编写代码，实现模板下载功能。

代码如下：

DATA : lr_component TYPE REF TO if_wd_component.

DATA : lr_component_info TYPE REF TO if_wd_rr_component.

DATA : lr_mr_api TYPE REF TO if_mr_api.

DATA : lv_wd_name TYPE string.

DATA : lv_url TYPE string.

DATA : lv_xstr TYPE xstring.

*取得组件相关对象

lr_component = wd_comp_controller->wd_get_api( ).

lr_component_info = lr_component->get_component_info( ).

*取得当前组件的名字

lv_wd_name = lr_component_info->get_name( ).

*取得excel模板的URL

CALL METHOD cl_wd_utilities=>construct_wd_url(

EXPORTING

application_name = lv_wd_name

IMPORTING

out_local_url    = lv_url ).

lv_url = lv_url && '/Template.xlsx'.

*取得excel模板中的内容，保存为xstring格式

lr_mr_api = cl_mime_repository_api=>get_api( ).

lr_mr_api->get(

EXPORTING

i_url     = lv_url

i_check_authority = ''

IMPORTING

e_content = lv_xstr ).

*将excel打开

cl_wd_runtime_services=>attach_file_to_response(

EXPORTING

i_filename = '1.xlsx'

i_content = lv_xstr

i_mime_type = 'xlsx'

i_in_new_window = abap_false

i_inplace = abap_false ).

9.创建WebDynpro应用程序进行测试。

10.测试成功（复制链接到IE浏览器，其他浏览器会出现乱码情况）