【SAP】ABAP开发——批处理制作excel模板

1.绘制EXCEL模板 

PERFORM frm_newsheet.
PERFORM frm_setwidth USING: 1  6,  "第一列表格宽度
                            2  10, "第二列表格宽度
                            3  8,
                            4  4.
PERFORM frm_fillcell2 USING : 1 1  '供应商' 000000200,  "excel第一行标题,红色字体
                              1 2  '物料' 000000000,    "黑色字体
                              1 3  '采购组织' 000000200,
                              1 4  '工厂' 000000200.
PERFORM frm_freesheet.

FORM frm_fillcell2 USING i j val col.
  CALL METHOD OF h_excel 'CELLS' = h_zl
    EXPORTING
    #1 = i
    #2 = j.
  PERFORM frm_err_hdl.
  SET PROPERTY OF h_zl 'VALUE' = val.
  PERFORM frm_err_hdl.
  GET PROPERTY OF h_zl 'FONT' = h_f.
  PERFORM frm_err_hdl.
  SET PROPERTY OF h_f 'COLOR' = col.
  PERFORM frm_err_hdl.
ENDFORM.

 2.制作excel模板的相关子例程

* 利用OLE将LIST中的数据输出到EXCEL工作表中
INCLUDE OLE2INCL.