FORM row_column  USING   p_r p_width p_type.  CASE p_type.    WHEN ‘R‘.        "行高      CALL METHOD OF gs_excel ‘CELLS‘ = gs_cells EXPORTING #1 = p_r #2 = 1.      GET PROPERTY OF gs_cells ‘rows‘ = gs_rows.      SET PROPERTY OF gs_rows ‘rowheight‘ = p_width.    WHEN ‘C‘.        "列宽      CALL METHOD OF gs_excel ‘CELLS‘ = gs_cells EXPORTING #1 = 1 #2 = p_r.      GET PROPERTY OF gs_cells ‘columns‘ = gs_columns .      SET PROPERTY OF gs_columns ‘columnwidth‘ = p_width.  ENDCASE.  FREE OBJECT gs_rows.  FREE OBJECT gs_columns.  FREE OBJECT gs_cells.ENDFORM.                    " PRM_EXPORT_EXCEL1

FORM row_column  USING   p_r p_width p_type.  CASE p_type.    WHEN ‘R‘.        "行高      CALL METHOD OF gs_excel ‘CELLS‘ = gs_cells EXPORTING #1 = p_r #2 = 1.      GET PROPERTY OF gs_cells ‘rows‘ = gs_rows.      SET PROPERTY OF gs_rows ‘rowheight‘ = p_width.    WHEN ‘C‘.        "列宽      CALL METHOD OF gs_excel ‘CELLS‘ = gs_cells EXPORTING #1 = 1 #2 = p_r.      GET PROPERTY OF gs_cells ‘columns‘ = gs_columns .      SET PROPERTY OF gs_columns ‘columnwidth‘ = p_width.  ENDCASE.  FREE OBJECT gs_rows.  FREE OBJECT gs_columns.  FREE OBJECT gs_cells.ENDFORM.                    " PRM_EXPORT_EXCEL1

FORM merged  USING   x1 y1 x2 y2 p_linestyle.*--Selecting cell area to be merged.  CALL METHOD OF gs_excel ‘Cells‘ = gs_cell1    EXPORTING    #1 = x1    #2 = y1.  CALL METHOD OF gs_excel ‘Cells‘ = gs_cell2    EXPORTING    #1 = x2    #2 = y2.  CALL METHOD OF gs_excel ‘Range‘ = gs_range    EXPORTING    #1 = gs_cell1    #2 = gs_cell2.  CALL METHOD OF gs_range ‘Select‘.*--Merging  CALL METHOD OF gs_range ‘Merge‘ .  GET PROPERTY OF gs_range ‘borders‘ = gs_borders .  SET PROPERTY OF gs_borders ‘weight‘ = ‘2‘.  SET PROPERTY OF gs_borders ‘linestyle‘ = p_linestyle.  FREE OBJECT gs_range.  FREE OBJECT gs_borders.ENDFORM.                    " MERGED

FORM fill_cell_gs  USING p_r1                         p_r2                         p_bold                         p_size                         p_linestyle                         p_value.  CALL METHOD OF gs_excel ‘CELLS‘ = gs_cells EXPORTING #1 = p_r1 #2 = p_r2.* 设置被选中单元格的对齐方式  " && 水平方向　2左对齐，3居中，4右对齐  SET PROPERTY OF gs_cells ‘horizontalAlignment‘ = 3.  "&& 垂直方向　1靠上　，2居中，3靠下  SET PROPERTY OF gs_cells ‘VerticalAlignment‘ = 2.  "自动换行  SET PROPERTY OF gs_cells ‘WrapText‘ = 1.  "设置边框属性  GET PROPERTY OF gs_cells ‘borders‘ = gs_borders .  SET PROPERTY OF gs_borders ‘weight‘ = ‘2‘.  SET PROPERTY OF gs_borders ‘linestyle‘ = p_linestyle.  "设置字体属性  CALL METHOD OF gs_cells ‘FONT‘ = gs_font.  SET PROPERTY OF gs_font ‘BOLD‘ = p_bold.     "1:粗体  0:普通字体  SET PROPERTY OF gs_font ‘SIZE‘ = p_size.     "字体大小  "设置单元格的值  SET PROPERTY OF  gs_cells ‘VALUE‘ = p_value.  FREE OBJECT gs_font.  FREE OBJECT gs_borders.  FREE OBJECT gs_cells.  g_c1 = g_c1 + 1.ENDFORM.

FORM prm_export_excel1 .  DATA:lv_char TYPE string.  DATA:lv_line TYPE i.  DATA:lv_date TYPE string.  DATA:lv_name(10) TYPE c.  DATA:lv1 TYPE c,       lv2 TYPE c,       lv3 TYPE c,       lv4 TYPE c.  DATA:lv_lines TYPE i VALUE 1.  CREATE OBJECT gs_excel ‘EXCEL.APPLICATION‘.*设置EXCEL可见  SET PROPERTY OF gs_excel ‘Visible‘ = 0.*创建工作表  CALL METHOD OF gs_excel ‘Workbooks‘ = gs_workbook.  DESCRIBE TABLE gt_zsqm00501 LINES lv_line.* 创建sheet并添加到工作表  SET PROPERTY OF gs_excel ‘SHEETSINNEWWORKBOOK‘ = lv_line.   "如需多个sheets,将1改成相应的值  CALL METHOD OF gs_workbook ‘ADD‘.*如果是已有EXCEL模板则直接打开即可*  CALL METHOD OF gs_workbook ‘OPEN‘*    EXPORTING*      #1 = ‘C:\test.xls‘.   "EXCEL文件路径*选中相应sheet设置名称  LOOP AT gt_zsqm00501 INTO gs_zsqm00501.*    SHIFT GS_ZSQM00501-PRUEFLOS LEFT DELETING LEADING ‘0‘.    CALL METHOD OF gs_excel ‘WORKSHEETS‘ = gs_sheet       EXPORTING         #1 = lv_lines.    lv_lines = lv_lines + 1.    CALL METHOD OF gs_sheet ‘ACTIVATE‘.    SET PROPERTY OF gs_sheet ‘NAME‘  = gs_zsqm00501-prueflos.    FREE OBJECT gs_sheet .    "参数说明：行/列号、行高/列宽、R-行 C-列    PERFORM  row_column USING: 1  ‘23‘ ‘R‘, "1 设置行高                               2  ‘23‘ ‘R‘,                               3  ‘23‘ ‘R‘,                               4  ‘23‘ ‘R‘,                               5  ‘20‘ ‘R‘,                               6  ‘20‘ ‘R‘,                               7  ‘20‘ ‘R‘,                               8  ‘20‘ ‘R‘,                               9  ‘20‘ ‘R‘,                              10  ‘20‘ ‘R‘,                              11  ‘20‘ ‘R‘.    PERFORM  row_column USING: 1  ‘18‘ ‘C‘, "1 设置列宽                               2  ‘18‘ ‘C‘,                               3  ‘18‘ ‘C‘,                               4  ‘18‘ ‘C‘,                               5  ‘14‘ ‘C‘.    "第一个单元格X、Y 第二个单元格X、Y、边框(1带边框 0不带)    PERFORM merged USING:1 1 1 5 0 ,"行1                         2 1 2 5 0 ,"行2                         3 1 3 5 0 ,                         4 1 4 5 0 ,                         5 1 5 1 1 ,                         5 2 5 2 1 ,                         5 3 5 3 1 ,                         5 4 5 5 1 ,                         6 1 6 1 1 ,                         6 2 6 2 1 ,                         6 3 6 3 1 ,                         6 4 6 5 1 ,                         7 1 7 1 1 ,                         7 2 7 2 1 ,                         7 3 7 3 1 ,                         7 4 7 5 1 ,                         8 1 8 1 1 ,                         8 2 8 2 1 ,                         8 3 8 3 1 ,                         8 4 8 5 1 ,                         9 1 9 1 1 ,                         9 2 9 2 1 ,                         9 3 9 3 1 ,                         9 4 9 5 1 ,                       10 1 10 1 1 ,                       10 2 10 2 1 ,                       10 3 10 3 1 ,                       10 4 10 4 1 ,                       10 5 10 5 1 .    SELECT SINGLE butxt INTO g_butxt    FROM t001    WHERE bukrs = gs_zsqm00501-werk.    "参数说明：单元格X、单元格Y、字体(1粗体 0普通字体)、字体大小、边框(1带边框 0不带)、内容    IF gs_zsqm00501-werk = ‘2001‘.      PERFORM fill_cell_gs USING: 1 1 1 18 0 ‘广州东凌粮油股份有限公司‘ ,                                  2 1 1  9 0 ‘Donlinks grain & oil CO.,LTD.‘.      lv_name = ‘黄新哲‘.    ELSE.      PERFORM fill_cell_gs USING: 1 1 1 18 0 ‘广州植之元油脂实业有限公司‘,                                  2 1 1  9 0 ‘Guangzhou Green Oil Industrial Co.,Ltd.‘.      lv_name = ‘文国才‘.    ENDIF.    CLEAR:lv_char.    CONCATENATE ‘‘‘‘ gs_zsqm00501-pastrterm+0(4) ‘-‘ gs_zsqm00501-pastrterm+4(2) ‘-‘ gs_zsqm00501-pastrterm+6(2) INTO lv_date.    CONCATENATE ‘质检批号：‘ gs_zsqm00501-zinslot ‘     检验批：‘ gs_zsqm00501-prueflos     ‘     制单日期：‘ sy-datum+0(4) ‘-‘ sy-datum+4(2) ‘-‘ sy-datum+6(2) INTO lv_char.    CONCATENATE ‘‘‘‘ gs_zsqm00501-sghth INTO gs_zsqm00501-sghth.    PERFORM fill_cell_gs USING: "1 1 1 18 0 G_BUTXT ,                                3 1 1 18 0 ‘检  验  单‘,                                4 1 1 12 0 lv_char,                                5 1 1 12 1 ‘物 料 名 称‘,                                5 2 1 12 1 gs_zsqm00501-ktextmat,                                5 3 1 12 1 ‘采 购 订 单‘,                                5 4 1 12 1 gs_zsqm00501-ebeln,                                6 1 1 12 1 ‘检 验 日 期‘,                                6 2 1 12 1 lv_date,*                                6 2 1 12 1 GS_ZSQM00501-PASTRTERM,                                6 3 1 12 1 ‘供  应  商‘,                                6 4 1 12 1 gs_zsqm00501-name1,                                7 1 1 12 1 ‘抽 样 人‘,                                7 2 1 12 1 gs_zsqm00501-uname,                                7 3 1 12 1 ‘车/船 号‘,                                7 4 1 12 1 gs_zsqm00501-zcarid,                                8 1 1 12 1 ‘抽 样 基 数‘,                                8 2 1 12 1 gs_zsqm00501-zlosmenge,                                8 3 1 12 1 ‘抽样数量‘,                                8 4 1 12 1 gs_zsqm00501-zgesstichpr,                                9 1 1 12 1 ‘执 行 标 准‘,                                9 2 1 12 1 gs_zsqm00501-zstand,                                9 3 1 12 1 ‘纸质合同号‘,                                9 4 1 12 1 gs_zsqm00501-sghth,                               10 1 1 12 1 ‘检 验 项 目‘,                               10 2 1 12 1 ‘检 验 结 果‘,                               10 3 1 12 1 ‘检验依据‘,                               10 4 1 12 1 ‘企 业 标 准‘,                               10 5 1 12 1 ‘单项评价‘.    g_r1 = 11.    LOOP AT gt_zsqm00502 INTO gs_zsqm00502 WHERE prueflos = gs_zsqm00501-prueflos.      PERFORM  row_column USING: g_r1  ‘20‘ ‘R‘. "1 设置行高      PERFORM fill_cell_gs USING:g_r1 1 1 12 1 gs_zsqm00502-kurztext,                                 g_r1 2 1 12 1 gs_zsqm00502-dxjg,                                 g_r1 3 1 12 1 gs_zsqm00502-pmethode,                                 g_r1 4 1 12 1 gs_zsqm00502-ktx01,                                 g_r1 5 1 12 1 gs_zsqm00502-jywb.      g_r1 = g_r1 + 1.    ENDLOOP.    PERFORM merged USING:g_r1 1 g_r1 1 1 ,                         g_r1 2 g_r1 5 1 .    CLEAR:lv_char.    IF gs_zsqm00501-code = ‘A‘.      lv1 = ‘√‘.      lv_char = ‘√ 接收       接收，扣款         让步接收        退货‘.*      CONCATENATE LV1 ‘√ 接收        ‘ LV2 ‘接收，扣款         ‘LV3 ‘让步接收         ‘ LV4 ‘退货‘ INTO LV_CHAR.    ELSEIF gs_zsqm00501-code = ‘A0‘.      lv2 = ‘√‘.      lv_char = ‘接收      √ 接收，扣款         让步接收        退货‘.    ELSEIF gs_zsqm00501-code = ‘A1‘.      lv3 = ‘√‘.      lv_char = ‘接收       接收，扣款        √ 让步接收        退货‘.    ELSEIF gs_zsqm00501-code = ‘R‘.      lv4 = ‘√‘.      lv_char = ‘接收       接收，扣款         让步接收       √ 退货‘.    ENDIF.    PERFORM fill_cell_gs USING: g_r1 1 1 12 1 ‘处 理 方 式‘,                                g_r1 2 1 12 1 lv_char.    g_r1 = g_r1 + 1.    PERFORM  row_column USING: g_r1  ‘30‘ ‘R‘. "1 设置行高    PERFORM fill_cell_gs USING:g_r1 1 1 12 1 ‘备注‘.    PERFORM merged USING:g_r1 1 g_r1 1 1 ,                         g_r1 2 g_r1 5 1 .    PERFORM fill_cell_gs USING:g_r1 2 1 12 1 gs_zsqm00501-sgtxt.    g_r1 = g_r1 + 2.    PERFORM  row_column USING: g_r1  ‘23‘ ‘R‘. "1 设置行高    PERFORM merged USING:g_r1 1 g_r1 5 0.    CLEAR:lv_char.    CONDENSE gs_zsqm00501-usnam NO-GAPS.    CONDENSE lv_name NO-GAPS.    CONDENSE gs_zsqm00501-name_qave NO-GAPS.    CONCATENATE ‘制单人：‘ gs_zsqm00501-usnam ‘           化验员：‘ gs_zsqm00501-pruefer"LV_NAME     ‘             审核人：‘ gs_zsqm00501-name_qave INTO lv_char.    PERFORM fill_cell_gs USING:g_r1 1 1 12 0 lv_char.    GET PROPERTY OF gs_excel ‘ACTIVESHEET‘ = gs_sheet.    GET PROPERTY OF gs_excel ‘ActiveWorkbook‘ = gs_workbook.  ENDLOOP.  CALL METHOD OF gs_workbook ‘SAVEAS‘    EXPORTING      #1 = gv_file    "保存路径      #2 = 1.  IF sy-subrc = 0.    MESSAGE s000 WITH ‘数据已导出‘.  ELSE.    MESSAGE s000 WITH ‘数据导出失败‘ DISPLAY LIKE ‘E‘.  ENDIF.*  CALL METHOD OF gs_workbook ‘CLOSE‘.  CALL METHOD OF gs_excel ‘QUIT‘.  FREE OBJECT gs_sheet.  FREE OBJECT gs_workbook.  FREE OBJECT gs_excel.ENDFORM.                    " FRM_EXCEL_BZYJH