DOI输出到EXCEL.docVIP

DOI功能很强大，可以做到很多功能，而且可以使用VBA扩展新功能，比如可以做出如下图效果：更多的东西请看在线帮助里The Spreadsheet Interface一章，有详细的结构定义和方法说明。运行报表前首先要在事务代码OAOR里面新建一个Excel模板，然后调用DOI的类把这个程序调出来后写入数据。给一个简单的DOI模板，这个模板是单元格一格一格填充的，其实可以一块一起填充。*---------------------------------------------------------------------** Report??Z_Rocky_TEST**---------------------------------------------------------------------**??Rocky Wang*??RockyTech (AT) 126.com*??RockT*---------------------------------------------------------------------*REPORT??z_rocky_test.TABLES: makt.***-----------------------------------******??excel related declaring***-----------------------------------***TYPE-POOLS: slis,vrm, sbdst, soi.CONSTANTS document_name(30) VALUE TEST.CONSTANTS inplace VALUE X.DATA: flag .DATA: container? ?TYPE REF TO cl_gui_custom_container,? ?? ?control? ???TYPE REF TO i_oi_container_control,? ?? ?document? ? TYPE REF TO i_oi_document_proxy,? ?? ?spreadsheet TYPE REF TO i_oi_spreadsheet,? ?? ?error? ?? ? TYPE REF TO i_oi_error,? ?? ?errors TYPE REF TO i_oi_error OCCURS 0 WITH HEADER LINE.CONTROLS:? ?exceldata TYPE TABLEVIEW USING SCREEN 0100.DATA:? ?? ? tablename(10), okcode(15),? ?? ?? ?? ?row(4), column(4), data(39).* spreadsheet interface structures for Excel data inputDATA: rangeitem TYPE soi_range_item.DATA: ranges TYPE soi_range_list.DATA: excel_input TYPE soi_generic_table.DATA: excel_input_wa TYPE soi_generic_item.DATA: initialized(1), retcode TYPE soi_ret_string.DATA: item_url(256), already_done, newname(40).DATA??document_type(80).DATA: app TYPE vrm_id, applist TYPE vrm_values.DATA: excel(80) VALUE Excel.Sheet.DATA: line_count TYPE i,? ?? ?column_count TYPE i.DATA: ok_code TYPE sy-ucomm,? ?? ?save_ok TYPE sy-ucomm.CLASS c_oi_errors DEFINITION LOAD.DATA: BEGIN OF itab OCCURS 0.? ?? ???INCLUDE STRUCTURE makt.DATA: END? ?OF itab.SELECT-OPTIONS matnr FOR makt-matnr.START-OF-SELECTION.??PERFORM getdata.??CALL SCREEN 100.*-------------------------------------------