abap 用excel将alv上展示的数据导出（基本知识）
转自：http://blog.sina.com.cn/s/blog_98dd7e1101013crl.html
form user_command using r_ucomm like sy-ucomm rs_selfield type slis_selfield . case r_ucomm. when 'EX'.（alv菜单栏上的按钮） perform excel_data. endcase.endform.
*&-------------------------------------------------------------------
form excel_data . perform def_excel. perform sho_excel.endform. " EXECL_DATA*--------------------------------------------------------------------form def_excel .
（以下的代码是必须写的，比较固定，用的时候直接写就行） define fill_cell. call method of v_excel 'CELLS' = v_cell "单元格位置 exporting #1 = &1 #2 = &2. set property of v_cell 'value' = &3. call method of v_cell 'FONT' = v_font. set property of v_font 'Bold' = &4. set property of v_font 'size' = &5. end-of-definition. create object v_excel 'Excel.Application'. call method of v_excel 'Workbooks' = v_book. call method of v_book 'ADD'.*给第一行填充要写的东西，一下的第一个‘1’表示第一行，第二个‘1’表示第一列。 fill_cell 1 1 '生产情况形象进度统计表' 1 20. set property of v_cell 'HorizontalAlignment' = -4108.（这句是居中） set property of v_font 'UNDERLINE' = 2.（下划线）
以下代码主要作用是定义第二行各列和第三行各列、第四行各列：
fill_cell 2 1 '' 1 10. fill_cell 2 2 '' 1 10. fill_cell 2 3 '' 1 10. fill_cell 2 4 '' 1 10. fill_cell 2 5 '' 1 10. fill_cell 2 6 '' 1 10. fill_cell 2 7 '统计时间' 1 10. fill_cell 2 8 '' 1 10. fill_cell 2 9 '' 1 10. fill_cell 2 10 '' 1 10.* fill_cell 3 10 '' 1 10. fill_cell 2 11 '' 1 10. fill_cell 2 12 '' 1 10. fill_cell 2 13 '' 1 10. fill_cell 2 14 '' 1 10. fill_cell 3 1 '' 1 10. fill_cell 3 2 '' 1 10. fill_cell 3 3 '' 1 10. fill_cell 3 4 '' 1 10. fill_cell 3 5 '' 1 10. fill_cell 3 6 '' 1 10. fill_cell 3 7 '' 1 10. fill_cell 3 8 '' 1 10. fill_cell 3 9 '' 1 10. fill_cell 3 10 '编号' 1 10.* fill_cell 3 10 '' 1 10. fill_cell 3 11 ex_itab-num1 1 10. fill_cell 3 12 '' 1 10. fill_cell 3 13 '' 1 10. fill_cell 3 14 '' 1 10.* fill_cell 4 1 '序号' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 2 '工厂' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 3 '生产订单' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 4 '订单描述' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 5 '计划下达时间' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 6 '实际下达时间' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 7 '计划完工时间' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 8 '实际完工时间' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 9 '完工工时' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 10 '总工时' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 11 '完成进度' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 12 '计划资金' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 13 '进度资金' 1 10. set property of v_cell 'HorizontalAlignment' = -4108. fill_cell 4 14 '备注' 1 10. set property of v_cell 'HorizontalAlignment' = -4108.*************先把第一行的所有列都合并**************************** call method of v_excel 'Range' = v_range exporting #1 = 'A1'（这里的意思是从A1到N1这个范围合并） #2 = 'N1'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.**************************一行一列合并 call method of v_excel 'COLUMNS' = v_column exporting #1 = 'E'."列编号 set property of v_column 'ColumnWidth' = 10. set property of v_column 'NumberFormat' = '@'.endform. " DEF_EXCEL*&-------------------------------------------------------------------*--------------------------------------------------------------------form sho_excel . field-symbols : type any , type any. data: lv_txt(50) type c. data: row_i type i, 定义行和列 col_i type i.*** 从内表循环数据，按顺序填到单元表中 loop at alv_itab.（将alv的数据传到为excel定义的内表中） move alv_itab-num to ex_itab-num. move alv_itab-werks to ex_itab-werks. move alv_itab-aufnr to ex_itab-aufnr. move alv_itab-maktx to ex_itab-maktx. move alv_itab-ftrms to ex_itab-ftrms. move alv_itab-ftrmi to ex_itab-ftrmi. move alv_itab-gltrs to ex_itab-gltrs. move alv_itab-idat2 to ex_itab-idat2. move alv_itab-ism01 to ex_itab-ism01. move alv_itab-vgw01 to ex_itab-vgw01. move alv_itab-rate to ex_itab-rate. move alv_itab-jhzj to ex_itab-jhzj. move alv_itab-jdzj to ex_itab-jdzj. move alv_itab-beizhu to ex_itab-beizhu. move alv_itab-zijin1 to ex_itab-zijin1. move alv_itab-zijin2 to ex_itab-zijin2. move alv_itab-num1 to ex_itab-num1. append ex_itab. endloop.
* loop at ex_itab assigning .（表示是分配一个工作区>） row_i = sy-tabix + 4.（意思是从第五行开始添加循环传进去的数据） do 13 times.（循环13列，切记，不是行，是列） col_i = sy-index . assign component sy-index of structure to . lv_txt = . fill_cell row_i col_i lv_txt 0 10. enddo.
》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
这段代码的意思大致就是保持格式的意思吧~~~~我也不是特别理解，但是对它的重要性深有体会啊啊啊啊啊！！！！！！！ call method of v_excel 'COLUMNS' = v_column exporting #1 = 12.（12指的是12列，意思就是第12列的数据按char型导出，长短什么的都不发生变化，若是想要输出的字段是资金型的，那这段代码就必不可少了，O(∩_∩)O~） set property of v_column 'ColumnWidth' = 10. set property of v_column 'NumberFormat' = .》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》 ENDDO. endloop.
fill_cell 3 11 ex_itab-num1 1 10.（这里的ex_itab-num1是excel内表字段） fill_cell 2 8 sy-datum 1 8.
row_i = row_i + 1.
fill_cell row_i 11 '合计:' 1 10 . fill_cell row_i 12 ex_itab-zijin1 1 10. fill_cell row_i 13 ex_itab-zijin2 1 10. row_i = row_i + 1. fill_cell row_i 2 '审核:' 1 10. fill_cell row_i 11 '制编人:' 1 10. data: post type string, col type c value 'N',（‘N’表示excel上最后一列的号） row type string. row_i = row_i - 2.（减去二的意思是：最后两行不用划线） move row_i to row. concatenate 'N' row into post. call method of v_excel 'Range' = v_range exporting #1 = 'A4'"A4表示从A4开始画表格线 #2 = post. call method of v_range 'BORDERS' = v_border. set property of v_border 'LineStyle' = '1'. set property of v_border 'WEIGHT' = '2 '. set property of v_border 'ColorIndex' = '1'. free object v_border. free object v_cell. call method of v_excel 'Columns' = v_column. call method of v_column 'Autofit'.*** 设置excel为可见 set property of v_excel 'Visible' = 1.endform. "sho_excel
展示结果如下：
若是在表头部分有合并单元格的，那么代码如下。
****一行一列和二行一列合并 call method of v_excel 'Range' = v_range exporting #1 = 'A1'（意思是A1和A2合并了） #2 = 'A2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.***** call method of v_excel 'Range' = v_range exporting #1 = 'B1' #2 = 'B2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.**** call method of v_excel 'Range' = v_range exporting #1 = 'C1' #2 = 'C2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.*** call method of v_excel 'Range' = v_range exporting #1 = 'D1' #2 = 'D2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.**** call method of v_excel 'Range' = v_range exporting #1 = 'E1' #2 = 'E2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.*** call method of v_excel 'Range' = v_range exporting #1 = 'H1' #2 = 'H2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.*** call method of v_excel 'Range' = v_range exporting #1 = 'I1' #2 = 'I2'. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.*** call method of v_excel 'Range' = v_range exporting #1 = 'F1'（意思是F1和G1合并了） #2 = 'G1'. set property of v_cell 'HorizontalAlignment' = -4108. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1. call method of v_excel 'Range' = v_range exporting #1 = 'J1'（意思是J1和K1合并了） #2 = 'K1'. set property of v_cell 'HorizontalAlignment' = -4108. call method of v_range 'Select'. set property of v_range 'MergeCells' = 1.结果展示如下：
