Export to Excel Question

Question

Forms [32 Bit] Version 10.1.2.3.0 (Production)
How can I get the field names as column headings on export excel for the first row using my cursor below?
PROCEDURE generate_summary IS
l_filename varchar2(200);
FLAG BOOLEAN;
directory_name varchar2(200);
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 ole2.Obj_Type;
k INTEGER;
j integer;
     CURSOR x_cur IS
          SELECT emp_id,
                       name,
                       dept
          FROM   emp;
begin
l_filename := webutil_file.file_save_dialog
(directory_name => '<dir>:\'
,file_name => 'summary'||sysdate||'.xls'
,file_filter => null
,title => 'Select client side filename where App Server file will be saved');
/* Calling Excel and adding a new worksheet to a blank workbook */
application := Client_OLE2.create_obj('Excel.Application');
CLIENT_OLE2.SET_PROPERTY(APPLICATION, 'VISIBLE', false);
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');
j:=1;
for x_rec in x_cur loop
  args:=Client_OLE2.create_arglist;
  Client_OLE2.add_arg(args, j);
  Client_OLE2.add_arg(args, 1);
  cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
  Client_OLE2.destroy_arglist(args);
  Client_OLE2.set_property(cell, 'Value', name_in(x_rec.emp_id));
  Client_OLE2.release_obj(cell);
  args:=Client_OLE2.create_arglist;
  Client_OLE2.add_arg(args, j);
  Client_OLE2.add_arg(args, 2);
  cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
  Client_OLE2.destroy_arglist(args);
  Client_OLE2.set_property(cell, 'Value', name_in(x_rec.name));
  Client_OLE2.release_obj(cell);
  args:=Client_OLE2.create_arglist;
  Client_OLE2.add_arg(args, j);
  Client_OLE2.add_arg(args, 3);
  cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
  Client_OLE2.destroy_arglist(args);
  Client_OLE2.set_property(cell, 'Value', name_in(x_rec.dept));
  Client_OLE2.release_obj(cell);
  j:=j+1;
end loop;
Client_OLE2.Release_Obj(worksheet);
Client_OLE2.Release_Obj(worksheets);
/* Save the Excel file created */
args := Client_OLE2.Create_Arglist;
Client_OLE2.Add_Arg(args,l_filename);
Client_OLE2.Invoke(workbook, 'SaveAs', args);
Client_OLE2.Destroy_Arglist(args);
/* release workbook */
Client_OLE2.Release_Obj(workbook);
Client_OLE2.Release_Obj(workbooks);
/* Release application */
Client_OLE2.Invoke(application, 'Quit');
Client_OLE2.Release_Obj(application);
/* Display successfull message */
message('File successfully saved as ' || l_filename);
END;The output generated only contains the data, no column headings.
Thanks!

Answer 1

This is a piece of my total procedure. If row = 2, it means that you are getting the first row of data. In that case, write row 1 (the header row) first.
   -- Get the data
   first_record;
   -- Data starts at row 2. Row 1 is for the header.
   v_row  := 2;
   <<record_loop>>
   loop
      v_item := v_first_item;
      v_col  := 1;
      <<item_loop>>
      loop
         exit when v_item =i_block||'.'||null;  -- no more items in the block
         if not id_null(find_item(v_item))
         then
            if get_item_property(v_item,item_type) in ('TEXT ITEM','DISPLAY ITEM','CHECKBOX','RADIO GROUP','LIST')
            and get_item_property(v_item,visible) = 'TRUE'
            then
               if v_row = 2
               then
                  -- v_row=2: 1st data row, so put the column headers in row 1
                  -- Column header is: 1)item prompt 2)database column name
                  v_header := get_item_property(v_item,prompt_text);
                  if v_header is null
                  then
                     v_header := get_item_property(v_item,column_name);
                     if v_header is null
                     then
                        v_header := '?';
                     end if;
                  end if;
                  -- Put the column header in row 1
                  put_cell(1,v_col,v_header);
               end if;