wda积累案例47.使用strans导出excel xls格式

1、在很多时候WDA 需要导出带有格式的Excel 文件，而基本的导出功能只能导出最简单的格式（相当于没格式），这里就用到了STRANS 来实现：1.把Excel 模板（含一条示例数据）另存为XML 文件，然后用TXT 打开（注意一定要把格式都设置好否则后面要全部重新操作一遍）。2. 输入事务代码STRANS，进去创建一个STRANS，然后将上述代码进去。3.这里注意A的XML 的文件里的代码，主要注意一下几点：（传入的文件的标题抬头） （传入的内表数据）BExpandedRowCount 这个参数刚生成的时候很小，需要改大才能执行。C这里一开始是EXCEL 模板的标题显示的中文，你只需要改为接受

2、参数即可：D外层写 loop，内层把原来是 EXCEL 第一行数据的，修改为对应的参数字段即可。原来的代码是：1先在将 1 改为：就把对应的参数传递进去了。E最后加两句话和最开始的相呼应。3.调用 STRANS 代码：CHECK r param-id = DOWNLOAD. DATA: l_pro_guidTYPE bapi_ts_guid-project_definition_guid,lt subobject TYPE TABLE OF bapi tbobject,lt_returnTYPE TABLE OF bapiret2,l_xstringTYPExstring,l mime typ

3、e TYPEstring,lt paramTYPEwdr event parameter list,ls_paramTYPEwdr_event_parameter. DATA l_file_name TYPE string.lo erfaceTYPE REF TO if salv wd comp table if,lo_cmTYPE REF TO cl_salv_wd_config_table,lo daableTYPE REF TO cl salv wd daable,lo m tableTYPE REF TO cl salv wd m table,lo_result_data_table

4、TYPE REF TO cl_salv_wd_result_data_table,DATA: lo_nodeTYPE REF TO if_wd_context_node, lo componentTYPE REF TO cl salv wd c table,DATA: lo_api TYPE REF TO if_wd_controller, lo_mess TYPE REF TO if_wd_message_manager.l_rowTYPEstring,l string hTYPEstring,l stringTYPEstring, DATA lo nd item daYPE REF TO

5、if wd context node. DATA lt item daYPE wd this-elements_item_data. DATA lv per TYPE c LENGTH 6. DATA lv_head TYPE string.*navigate from to via lead selection lo_nd_item_data = wd_context-get_child_node( name = wd_this-wdctx_i tem data ). lo nd item_data-get_sic_attributes_table( IMPORTING table = lt

6、_item_data ). CONSTANTS: c_file_suffix TYPE string VALUE .xls. CALL FUNCTION SMD_RFC_MIMETYPE_GETIMPORTINGe_mimetype = l_mime_type. GET PARAMETER ID ZPPM_WDA0042_01 FIELD lv_per. CONCATENAv_per(4) 年 lv_per+4(2) 月非主业投资计划完成明细表O lv_head. l_file_name = 非主业投资计划完成明细表. CALL FUNCTION SCMS_STRING_TO_XSTRINGE

7、XPORTINGtext= l_stringIMPORTINGbuffer = l_xstring. IF sy-subrc 0.报错代码CALL METHOD lo_mess-report_t100_messageEXPORTINGmsgid = ZPPMmsgno = 060msgty = E.RETURN. ENDIF. l file name = l file name & c file suffix. wdr_task=cnt_window-cnt-attach_file_to_response(i filename= l file namei content= l xstringi_mime_type= l_mime_typeCALL TRANSFORMATION z_format_042 （STRANS 名称）SOURCEhead = lv head table1 = lt_item_data RESULT XML l_string.EXPORTINGi_exten = c_file_suffix