wda積累案例47.使用strans導出excel xls格式

1、在很多時候WDA 需要導出帶有格式的Excel 文件，而基本的導出功能只能導出最簡單的格式（相當于沒格式），這里就用到了STRANS 來實現(xiàn)：1.把Excel 模板（含一條示例數(shù)據(jù)）另存為XML 文件，然后用TXT 打開（注意一定要把格式都設(shè)置好否則后面要全部重新操作一遍）。2. 輸入事務(wù)代碼STRANS，進去創(chuàng)建一個STRANS，然后將上述代碼進去。3.這里注意A的XML 的文件里的代碼，主要注意一下幾點：（傳入的文件的標題抬頭） （傳入的內(nèi)表數(shù)據(jù)）BExpandedRowCount 這個參數(shù)剛生成的時候很小，需要改大才能執(zhí)行。C這里一開始是EXCEL 模板的標題顯示的中文，你只需要改為接受

2、參數(shù)即可：D外層寫 loop，內(nèi)層把原來是 EXCEL 第一行數(shù)據(jù)的，修改為對應的參數(shù)字段即可。原來的代碼是：1先在將 1 改為：就把對應的參數(shù)傳遞進去了。E最后加兩句話和最開始的相呼應。3.調(diào)用 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) 月非主業(yè)投資計劃完成明細表O lv_head. l_file_name = 非主業(yè)投資計劃完成明細表. 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