Help on OLE

Former Member — Tue, 03 Apr 2007 07:36:21 GMT

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....

Re: Help on OLE

Former Member — Tue, 03 Apr 2007 07:47:13 GMT

Thanks all.

I did find out a mistake in the declarations and solved my problem..