OLE objects and OO methods - Error using OLE automation

[Former Member]

Hi,

I'm developing an class to read/write excel sheets and i'm getting an error on the OLE method that is:

on this instruction

call method of l_obj_excel 'WORKBOOKS' = l_workb_col.

i got a dump that give me the following error UC_OBJECTS_NOT_CONVERTIBLE

The strange is that i've got the same code running on reports and it works fine only when passing it to a oo method i get that dump.

Thzs in advanced to all

Best regards

Jaime

[Former Member]

hi check this..

Report ZMULTICOLOR_TEST no standard page heading.

• this report demonstrates how to send some ABAP data to an

• EXCEL sheet using OLE automation.

include ole2incl.

• handles for OLE objects

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

h_c type ole2_object. " color

DATA: FILENAME LIKE RLGRAP-FILENAME.

tables: spfli.

data h type i.

• table of flights

data: it_spfli like spfli occurs 10 with header line.

&----

---

*& Event START-OF-SELECTION

&----

---

start-of-selection.

• read flights

select * from spfli into table it_spfli.

• display header

uline (61).

write: / sy-vline no-gap,

(3) 'Flg'(001) color col_heading no-gap, sy-vline no-gap,

(4) 'Nr'(002) color col_heading no-gap, sy-vline no-gap,

(20) 'Von'(003) color col_heading no-gap, sy-vline no-gap,

(20) 'Nach'(004) color col_heading no-gap, sy-vline no-gap,

(8) 'Zeit'(005) color col_heading no-gap, sy-vline no-gap.

uline /(61).

• display flights

loop at it_spfli.

write: / sy-vline no-gap,

it_spfli-carrid color col_key no-gap, sy-vline no-gap,

it_spfli-connid color col_normal no-gap, sy-vline no-gap,

it_spfli-cityfrom color col_normal no-gap, sy-vline no-gap,

it_spfli-cityto color col_normal no-gap, sy-vline no-gap,

it_spfli-deptime color col_normal no-gap, sy-vline no-gap.

endloop.

uline /(61).

• tell user what is going on

call function 'SAPGUI_PROGRESS_INDICATOR'

exporting

• PERCENTAGE = 0

text = text-007

exceptions

others = 1.

• start Excel

create object h_excel 'EXCEL.APPLICATION'.

• PERFORM ERR_HDL.

set property of h_excel 'Visible' = 1.

• CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls' .

• PERFORM ERR_HDL.

• tell user what is going on

call function 'SAPGUI_PROGRESS_INDICATOR'

exporting

• PERCENTAGE = 0

text = text-008

exceptions

others = 1.

• get list of workbooks, initially empty

call method of h_excel 'Workbooks' = h_mapl.

perform err_hdl.

• add a new workbook

call method of h_mapl 'Add' = h_map.

perform err_hdl.

• tell user what is going on

call function 'SAPGUI_PROGRESS_INDICATOR'

exporting

• PERCENTAGE = 0

text = text-009

exceptions

others = 1.

• output column headings to active Excel sheet

perform fill_cell using 1 1 1 200 'Carrier id'(001).

perform fill_cell using 1 2 1 200 'Connection id'(002).

perform fill_cell using 1 3 1 200 'City from'(003).

perform fill_cell using 1 4 1 200 'City to'(004).

perform fill_cell using 1 5 1 200 'Dep. Time'(005).

loop at it_spfli.

• copy flights to active EXCEL sheet

h = sy-tabix + 1.

if it_spfli-carrid cs 'AA'.

perform fill_cell using h 1 0 000255000 it_spfli-carrid.

elseif it_spfli-carrid cs 'AZ'.

perform fill_cell using h 1 0 168000000 it_spfli-carrid.

elseif it_spfli-carrid cs 'JL'.

perform fill_cell using h 1 0 168168000 it_spfli-carrid.

elseif it_spfli-carrid cs 'LH'.

perform fill_cell using h 1 0 111111111 it_spfli-carrid.

elseif it_spfli-carrid cs 'SQ'.

perform fill_cell using h 1 0 100100100 it_spfli-carrid.

else.

perform fill_cell using h 1 0 000145000 it_spfli-carrid.

endif.

if it_spfli-connid lt 400.

perform fill_cell using h 2 0 255000255 it_spfli-connid.

elseif it_spfli-connid lt 800.

perform fill_cell using h 2 0 077099088 it_spfli-connid.

else.

perform fill_cell using h 2 0 246156138 it_spfli-connid.

endif.

if it_spfli-cityfrom cp 'S*'.

perform fill_cell using h 3 0 155155155 it_spfli-cityfrom.

elseif it_spfli-cityfrom cp 'N*'.

perform fill_cell using h 3 0 189111222 it_spfli-cityfrom.

else.

perform fill_cell using h 3 0 111230222 it_spfli-cityfrom.

endif.

if it_spfli-cityto cp 'S*'.

perform fill_cell using h 4 0 200200200 it_spfli-cityto.

elseif it_spfli-cityto cp 'N*'.

perform fill_cell using h 4 0 000111222 it_spfli-cityto.

else.

perform fill_cell using h 4 0 130230230 it_spfli-cityto.

endif.

if it_spfli-deptime lt '020000'.

perform fill_cell using h 5 0 145145145 it_spfli-deptime.

elseif it_spfli-deptime lt '120000' .

perform fill_cell using h 5 0 015215205 it_spfli-deptime.

elseif it_spfli-deptime lt '180000' .

perform fill_cell using h 5 0 000215205 it_spfli-deptime.

else.

perform fill_cell using h 5 0 115115105 it_spfli-deptime.

endif.

endloop.

• EXCEL FILENAME

CONCATENATE SY-REPID '_' SY-DATUM6(2) '_' SY-DATUM4(2) '_'

SY-DATUM(4) '_' SY-UZEIT '.XLS' INTO FILENAME.

CALL METHOD OF H_MAP 'SAVEAS' EXPORTING #1 = FILENAME.

free object h_excel.

perform err_hdl.

----

---

• FORM FILL_CELL *

----

---

• sets cell at coordinates i,j to value val boldtype bold *

----

---

form fill_cell using i j bold col val.

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 .

perform err_hdl.

set property of h_f 'Color' = col.

perform err_hdl.

endform. "FILL_CELL

&----

---

*& Form ERR_HDL

&----

---

• outputs OLE error if any *

----

---

• --> p1 text

• <-- p2 text

----

---

form err_hdl.

if sy-subrc <> 0.

write: / 'OLE-Automation Error:'(010), sy-subrc.

stop.

endif.

endform. " ERR_HDL

regards,

venkat

[Former Member]

Hi venkat,

thanzs but my problem is that in a class method (developed in se24) the OLE objects throw that error.

Any ideas why?

best regards

Jaime

[kevin_neale]

Hi Jamie,

Did you ever work out what was happening here? I am getting the same issue.

Best regards,

Kevin.

[Sandra_Rossi]

Please create a new post with a link to this OOOLD thread; don't forget to attach the full short dump

[Sandra_Rossi]

there's the SAP note 1260130 - Dump UC_OBJECTS_NOT_CONVERTIBLE in SAPLOLEA "The type of return variable is incorrect for a SAP GUI automation call. For example, a character field is provided where you expect an object to be." i.e. it doesn't indicate there is a difference between report and class, but make sure that in the case of call method of l_obj_excel 'WORKBOOKS' = l_workb_col. that l_workb_col was defined with DATA l_workb_col TYPE OLE2_OBJECT.

If it's not this issue, did you make sure you are calling the OLE from within a dynpro sequence?

Other possibility: maybe that it's the restriction of classes can't work with dynpros (flush stuff and so on). By the way, did you try to add NO FLUSH, maybe it won't dump.

[kevin_neale]

Hi Sandra,

Thank you for taking the time to look at this. I did try to start a new discussion but for some reason it was rejected. I am yet to find out why.

Meanwhile, Yes, I thought about the possibility of OO and front end not working well together so I translated the class to a function. I still had the same problem.

I tried your suggestion of adding NO FLUSH and it did stop the short dump but no file was created either.

The SAP Note doesn't seem to be valid for this system 6.40

Best regards,

Kevin.

[Sandra_Rossi]

If it doesn't work for function modules either, thus it's not the same issue as Jaime Cordero. Are you sure your variable is defined like ddic structure OBJ_RECORD (i.e. OLE2_OBJECT in type pool OLE2), and that your code is executed while connected to the SAP GUI?

[kevin_neale]

Hi Sandra,

You are right. I wasn't sufficiently careful in translating the method to a function. Now the function is working well. The method still has a problem which I think relates to the "restriction of classes can't work with dynpros". Pity, I prefer to use methods. I can wrap the function in a method and that works OK but, what's the point?

So I think it is the same problem that James was having. I guess we have to live with functions a while longer.

Best regards,

Kevin.