"1 设置行高 "参数说明：行/列号、行高/列宽、R-行 C-列
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
"1 设置列宽
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
"设置边框 "第一个单元格X、Y 第二个单元格X、Y、边框(1带边框 0不带)
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
时间： 2024-10-13 19:46:49