OLE error (instead of opening a new tab it is opening a new workbook)

Question

Hi friends
we have a requirement of passing the data from ITAB to excel
the code is hown below
INCLUDE ole2incl.
DATA: excel_object TYPE ole2_object, "EXCEL OBJECT
workbook_list TYPE ole2_object, "LIST OF WORKBOOKS
workbook TYPE ole2_object, "WORKBOOK
cell TYPE ole2_object, "CELL
font TYPE ole2_object, "FONT
activesheet TYPE ole2_object."ACTIVE SHEET
TABLES: pa0002.
DATA row_number TYPE i.
DATA: it_pa0002 LIKE pa0002 OCCURS 10 WITH HEADER LINE.
START-OF-SELECTION.
  SELECT * FROM pa0002 INTO TABLE it_pa0002 UP TO 10 ROWS.
  CREATE OBJECT excel_object 'EXCEL.APPLICATION'.
  SET PROPERTY OF excel_object 'VISIBLE' = 1.
  CALL METHOD OF excel_object 'WORKBOOKS' = workbook_list.
  CALL METHOD OF workbook_list 'ADD' = workbook.
  GET PROPERTY OF excel_object 'ActiveSheet' = activesheet.
  SET PROPERTY OF activesheet 'NAME' = 'EMPLOYEE_RECORD'.
* FILL THE ACTIVE SHEET WITH COLUMN HEADINGS
  PERFORM fill_cell_with_data USING 1 1 1 'Employee Number'.
  PERFORM fill_cell_with_data USING 1 2 1 'First Name'.
  PERFORM fill_cell_with_data USING 1 3 1 'Last Name'.
  PERFORM fill_cell_with_data USING 1 4 1 'Date of Birth'.
  PERFORM fill_cell_with_data USING 1 5 1 'Place of Birth'.
* FILL EMPLOYEE DATA TO ACTIVE EXCEL SHEET
  LOOP AT it_pa0002.
    row_number = sy-tabix + 1.
    PERFORM fill_cell_with_data USING row_number 1 0 it_pa0002-pernr.
    PERFORM fill_cell_with_data USING row_number 2 0 it_pa0002-vorna.
    PERFORM fill_cell_with_data USING row_number 3 0 it_pa0002-nachn.
    PERFORM fill_cell_with_data USING row_number 4 0 it_pa0002-gbdat.
    PERFORM fill_cell_with_data USING row_number 5 0 it_pa0002-gbort.
  ENDLOOP.
*FREE OBJECT EXCEL_OBJECT.
  CALL METHOD OF workbook_list 'ADD' = workbook.
  PERFORM fill_cell_with_data USING 1 1 1 'Employee Number'.
  PERFORM fill_cell_with_data USING 1 2 1 'First Name'.
  PERFORM fill_cell_with_data USING 1 3 1 'Last Name'.
  PERFORM fill_cell_with_data USING 1 4 1 'Date of Birth'.
  PERFORM fill_cell_with_data USING 1 5 1 'Place of Birth'.
* FILL EMPLOYEE DATA TO ACTIVE EXCEL SHEET
  LOOP AT it_pa0002.
    row_number = sy-tabix + 1.
    PERFORM fill_cell_with_data USING row_number 1 0 it_pa0002-pernr.
    PERFORM fill_cell_with_data USING row_number 2 0 it_pa0002-vorna.
    PERFORM fill_cell_with_data USING row_number 3 0 it_pa0002-nachn.
    PERFORM fill_cell_with_data USING row_number 4 0 it_pa0002-gbdat.
    PERFORM fill_cell_with_data USING row_number 5 0 it_pa0002-gbort.
  ENDLOOP.
  FREE OBJECT excel_object.
*&      Form  FILL_CELL_WITH_DATA
*       text
*      -->ROW        text
*      -->COLUMN     text
*      -->BOLD       text
*      -->VAL        text
FORM fill_cell_with_data USING row column bold val.
  CALL METHOD OF excel_object
    'CELLS' = cell
    EXPORTING #1 = row
    #2 = column.
  SET PROPERTY OF cell 'VALUE' = val.
  GET PROPERTY OF cell 'FONT' = font.
  SET PROPERTY OF font 'BOLD' = bold.
ENDFORM.                    "FILL_CELL_WITH_DATA
According to this code , i am populating the same set of values in two tabs
but instead of opening the second tab after filling the first tab
it is opening a new book
please correct me.
with regards
s.janagar

Answer 1

hi santhosh,
the RSOLETT1 is a module pool program
and the program RSDEMO01 is calling once the workbook and filling one tab
and that requirement is been satisfied in my progrm itself
the thing  is i need to populate the second set of loop into another tab of my excel sheet
please correct my code
dont provide me the sample code
because my code is almost correct i guess
a small piece of code needs to be added or changed
cheers
s.janagar
Edited by: Janagar Sundaramoorthy Nadar on May 5, 2009 10:35 AM
Edited by: Janagar Sundaramoorthy Nadar on May 5, 2009 10:35 AM