Hi Gurus,
I am trying to create a excel sheet using an OLE to dowload my data.The problem is that once i reach the perform fill_cell, I am receiving an error:
'Error with OLE automation: '(010)'. I do not know where the problem is.
Please help me out or give me sample codes,if any......
My code is as follows:
CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
SET PROPERTY OF H_EXCEL 'Visible' = 1.
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
PERFORM ERR_HDL.
CALL METHOD OF H_MAPL 'Add' = H_MAP.
PERFORM ERR_HDL.
PERFORM FILL_CELL USING 1 1 0 0 'Mat'(001).
PERFORM FILL_CELL USING 1 2 0 0 'MatDesc'(002).
PERFORM FILL_CELL USING 1 3 0 0 'MatGrp'(003).
PERFORM FILL_CELL USING 1 4 0 0 'MRPctrlr'(004).
PERFORM FILL_CELL USING 1 5 0 0 'Released Qty at Month End'(005).
FORM FILL_CELL USING I J BOLD COLOUR VAL.
INCLUDE OLE2INCL.
DATA: H_EXCEL TYPE OLE2_OBJECT, " Excel object
H_MAPL TYPE OLE2_OBJECT, " list of workbooks
H_MAP TYPE OLE2_OBJECT, " workbook
H_ZL TYPE OLE2_OBJECT, " cell
H_F TYPE OLE2_OBJECT, " font
gs_interior TYPE ole2_object .
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
PERFORM ERR_HDL.
SET PROPERTY OF H_ZL 'Value' = VAL .
PERFORM ERR_HDL.
GET PROPERTY OF H_ZL 'Font' = H_F.
PERFORM ERR_HDL.
SET PROPERTY OF H_F 'Bold' = BOLD .
GET PROPERTY OF H_ZL 'Interior' = gs_interior .
SET PROPERTY OF gs_interior 'ColorIndex' = COLOUR .
PERFORM ERR_HDL.
ENDFORM. " FILL_CELL
Points will be rewarded for helpful answers....
Bluesky
