Column Headers in Excel using CLIENT_OLE2

Question

Hello guys,
I have muti record block that has 10 columns which I want to display in Excel. I created a procedure RUN_EXCEL and everything works fine when the button is pressed and the procedure is called. However, I want to add the column prompts and when I try to do that using the prompt text I get the column headers but all the rows and colums mess up. Can anyone tell me how to get the column header to work to add in my current procedure. Right now if I run this way it doesn't display the promt headers.
Thanks
PROCEDURE RUN_EXCEL IS
application Client_OLE2.Obj_Type;
workbooks Client_OLE2.Obj_Type;
workbook Client_OLE2.Obj_Type;
worksheets Client_OLE2.Obj_Type;
worksheet Client_OLE2.Obj_Type;
args Client_OLE2.List_Type;
cell client_ole2.Obj_Type;
font client_ole2.obj_type;
range client_ole2.obj_type;
range_col client_ole2.obj_type;
item_prompt VARCHAR2(32767);
j INTEGER;
k INTEGER;
l INTEGER;
BEGIN
application := Client_OLE2.create_obj('Excel.Application');
Client_OLE2.Set_Property ( application , 'visible', 1);
workbooks := Client_OLE2.Get_Obj_Property(application, 'Workbooks');
workbook := Client_OLE2.Invoke_Obj(workbooks, 'Add');
worksheets := Client_OLE2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := Client_OLE2.Invoke_Obj(worksheets, 'Add');
go_block('DM_T_EXCEPTION_LOG');
first_record;
j:=1;
k:=1;
while :system.last_record = 'FALSE'
loop
for k in 1..10 /* Table has 10 columns */
loop
If not name_in(:system.cursor_item) is NULL Then
     item_prompt := get_item_property(:SYSTEM.CURRENT_BLOCK||'.'||:SYSTEM.CURRENT_ITEM, prompt_text);
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
Client_OLE2.release_obj(cell);
range := client_ole2.get_obj_property (worksheet, 'UsedRange');
range_col := client_ole2.get_obj_property (range, 'Columns');
client_ole2.invoke (range_col, 'AutoFit');
End If;
next_item;
end loop;
j:=j+1;
next_record;
end loop;
/* For the last record */
for k in 1..10
loop
If not name_in(:system.cursor_item) is NULL Then
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
-- imessage('in k again'||' '||:system.cursor_item||' '||item_prompt);
Client_OLE2.release_obj(cell);
range := client_ole2.get_obj_property (worksheet, 'UsedRange');
range_col := client_ole2.get_obj_property (range, 'Columns');
client_ole2.invoke (range_col, 'AutoFit');
End If;
next_item;
end loop;
ole2.set_property(application, 'Visible', 'false');
client_ole2.release_obj (range);
client_ole2.release_obj (range_col);
Client_OLE2.Release_Obj(worksheet);
Client_OLE2.Release_Obj(worksheets);
END;

Answer 1

Re:  Problem area in code
"Match" is a worksheet function and is not used in VBA unless it is identified as a worksheet function, such as...
  X = Application.WorksheetFunction.Match(arg, arg, arg)
Jim Cone
Portland, Oregon USA
free 'Save Selection as Picture' excel add-in
(a couple of clicks & you have a picture file of the selected cells)
https://jumpshare.com/b/O5FC6LaBQ6U3UPXjOmX2