OLE Automation to Excel problem

Question

Hello All,
In a report program I have used the OLE2 automation to download data into Excel. But it's not functioning. Its doing nothing. Could you tell me do I have to have any authorizations to use this? Otherwise what could be the problem?
Plz advise.
Thanks a lot.

Answer 1

Thnx Rich.
Here's the code:
<b>REPORT ZMR_MAX_PERIOD.
*-- Tables----
tables: mara,                           "General Material Data
        marc,                           "Plant Data for Material
        makt.                           "Material Descriptions
*-- Data of OLE
include ole2incl.
data: GS_EXCEL type ole2_object,
      GS_BOOKS type ole2_object,
      GS_WBOOK type ole2_object,
      GS_SHEET type ole2_object,
      GS_PAGE  type ole2_object,
      GS_RANGE type ole2_object,
      GS_FONT  type ole2_object,
      GS_COLS  type ole2_object,
      GS_CELL  type ole2_object.
*-- Variables----
*-- Offsets for output columns
data:      w_wid01   type i,
           w_wid02   type i,
           w_wid03   type i,
           w_wid04   type i,
           w_wid05   type i,
           w_wid06   type i,
           w_wid07   type i,
           w_wid08   type i,
           w_wid09   type i,
           w_wid10   type i,
           w_wid11   type i,
           w_wid12   type i,
           w_wid13   type i,
           w_wid14   type i,
           w_wid15   type i,
           w_wid16   type i,
           w_wid17   type i,
           w_color(1).                  "for background color
*-- Constants----
*-- Column widths for report output
constants: c_space   type i value  0,
           c_wid01   type i value  1,
           c_wid02   type i value  6,
           c_wid03   type i value  1,
           c_wid04   type i value 15,
           c_wid05   type i value  1,
           c_wid06   type i value 19,
           c_wid07   type i value  1,
           c_wid08   type i value 42,
           c_wid09   type i value  1,
           c_wid10   type i value 21,
           c_wid11   type i value  1,
           c_wid12   type i value 10,
           c_wid13   type i value  1,
           c_wid14   type i value 12,
           c_wid15   type i value  1,
           c_wid16   type i value 17,
           c_wid17   type i value  1.
*-- Internal tables----
*-- Internal table for material data
data: begin of i_material occurs 0,
        matnr like mara-matnr,
        mtart like mara-mtart,
        aenam like mara-aenam,
        laeda like mara-laeda,
        werks like marc-werks,
        maxlz like marc-maxlz,
        lzeih like marc-lzeih,
        maktx like makt-maktx,
      end of i_material.
*-- Internal table for output
data: begin of i_output occurs 0,
       werks like marc-werks,           "Plant
       mtart like mara-mtart,           "Material type
       matnr like mara-matnr,           "Material number
       maktx like makt-maktx,           "Material description
       maxlz like marc-maxlz,           "Maximum storage period
       lzeih like marc-lzeih,           "Unit for maximum storage period
       aenam like mara-aenam,           "User changed the object
       laeda like mara-laeda,           "Last changed on
     end of i_output.
SELECTION-SCREEN DEFINITION
*-- Data Selection
selection-screen begin of block b1 with frame title title1.
select-options: s_matnr for mara-matnr,
                s_werks for marc-werks,
                s_lgpro for marc-lgpro,
                s_mtart for mara-mtart.
selection-screen end of block b1.
AT SELECTION-SCREEN VALIDATIONS
at selection-screen.
*--Check Plant is entered
if s_werks is initial.
message e009(zm) with 'please enter plant'.
endif.
INITIALIZATION
initialization.
*-- initialize text fields for selection-screen
  title1 = 'Material Data'.
  title2 = 'File locations'.
  perform assign_column_widths.
START-OF-SELECTION (Required in 4.6)
start-of-selection.
  set pf-status 'MAIN'.
*-- Perform get data
  perform get_data.
*-- Populate data into output tab
  perform populate_data.
*-- Write output list
  perform write_output.
END-OF-SELECTION
TOP-OF-PAGE
TOP OF PAGE AT LINE SELECTION
AT LINE SELECTION
AT USER COMMAND
at user-command.
*-- Download to Excel
   case sy-ucomm.
     when 'EXCEL'.
      perform download_to_excel.
   endcase.
--S-U-B-R-O-U-T-I-N-E-S--
    FORM SET_BACKGROND_COLOR
Set background color for list output
form set_background_color.
  if w_color = 1.
     FORMAT INTENSIFIED OFF COLOR 2.
     clear w_color.
  else.
     FORMAT INTENSIFIED ON COLOR 2.
     w_color = 1.
  endif.
endform.                           "set_background_color
    FORM GET_DATA
Get material data
form get_data.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
     TEXT             = 'reading material data... '
    select mara~matnr
           mara~mtart
           mara~aenam
           mara~laeda
           marc~werks
           marc~maxlz
           marc~lzeih
           makt~maktx
      into table i_material
      from mara
      join marc
        on maramatnr = marcmatnr
      join makt
        on marcmatnr = maktmatnr
     where mara~matnr IN s_matnr
       and marc~werks IN s_werks
       and marc~lgpro IN s_lgpro
       and mara~mtart IN s_mtart.
    sort i_material by matnr.
endform.                           "get_data
    FORM POPULATE_DATA
Populate data for output
form populate_data.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
     TEXT             = 'Processing data... '
loop at i_material.
   move i_material-werks to i_output-werks.
   move i_material-mtart to i_output-mtart.
   move i_material-matnr to i_output-matnr.
   move i_material-maktx to i_output-maktx.
   move i_material-maxlz to i_output-maxlz.
   move i_material-lzeih to i_output-lzeih.
   move i_material-aenam to i_output-aenam.
   move i_material-laeda to i_output-laeda.
   append i_output.
   clear  i_output.
endloop.
sort i_output by matnr.
endform.                           "populate_data
    FORM WRITE_COLUMN_HEADINGS
Write column headings for output
form write_column_headings.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
     TEXT             = 'Writing output... '
   if i_output[] is initial.
     message i000.
     exit.
   endif.
*-- Write column headings
skip.
uline.
FORMAT COLOR 1 ON.
write: at /w_wid01 sy-vline.
write: at /w_wid02(c_wid02) 'Plant' CENTERED,
       at  w_wid03(c_wid03) SY-VLINE,
       at  w_wid04(c_wid04) 'Material Type' CENTERED,
       at  w_wid05(c_wid05) SY-VLINE,
       at  w_wid06(c_wid06) 'Material Number' CENTERED,
       at  w_wid07(c_wid07) SY-VLINE,
       at  w_wid08(c_wid08) 'Material Description' CENTERED,
       at  w_wid09(c_wid09) SY-VLINE,
       at  w_wid10(c_wid10) 'Max. Storage Period' CENTERED,
       at  w_wid11(c_wid11) SY-VLINE,
       at  w_wid12(c_wid12) 'Time Unit' CENTERED,
       at  w_wid13(c_wid13) SY-VLINE,
       at  w_wid14(c_wid14) 'Changed By' CENTERED,
       at  w_wid15(c_wid15) SY-VLINE,
       at  w_wid16(c_wid16) 'Last Changed On' CENTERED,
       at  w_wid17(c_wid17) SY-VLINE.
FORMAT COLOR 1 OFF.
uline.
endform.                           "write_column_headings
    FORM WRITE_OUTPUT
Write list output
form write_output.
loop at i_output.
    perform set_background_color.
  write: at /w_wid01(c_wid01) SY-VLINE,
         at  w_wid02(c_wid02) i_output-werks,
         at  w_wid03(c_wid03) SY-VLINE,
         at  w_wid04(c_wid04) i_output-mtart,
         at  w_wid05(c_wid05) SY-VLINE,
         at  w_wid06(c_wid06) i_output-matnr,
         at  w_wid07(c_wid07) SY-VLINE,
         at  w_wid08(c_wid08) i_output-maktx,
         at  w_wid09(c_wid09) SY-VLINE,
         at  w_wid10(c_wid10) i_output-maxlz,
         at  w_wid11(c_wid11) SY-VLINE,
         at  w_wid12(c_wid12) i_output-lzeih,
         at  w_wid13(c_wid13) SY-VLINE,
         at  w_wid14(c_wid14) i_output-aenam,
         at  w_wid15(c_wid15) SY-VLINE,
         at  w_wid16(c_wid16) i_output-laeda,
         at  w_wid17(c_wid17) SY-VLINE.
endloop.
endform.                           "write_output
    FORM DOWNLOAD_TO_EXCEL
Download report data to excel spreadsheet
form download_to_excel.
data: row type i value '2'.
*-- Create Excel spreadsheet
  create object GS_EXCEL 'EXCEL.APPLICATION'.
   if sy-subrc <> 0.
     message e002(sy) with sy-msgli.
   endif.
   call method of GS_EXCEL 'WORKBOOKS' = GS_BOOKS.
   call method of GS_BOOKS 'ADD' = GS_WBOOK.
*-- Add column headers
   perform fill_cell using 1 1 'Plant'.
   perform fill_cell using 1 2 'Material Type'.
   perform fill_cell using 1 3 'Material Number'.
   perform fill_cell using 1 4 'Material Description'.
   perform fill_cell using 1 5 'Max Storage'.
   perform fill_cell using 1 6 'Time Unit'.
   perform fill_cell using 1 7 'Changed By'.
   perform fill_cell using 1 8 'Last Changed On'.
loop at i_output.
   perform fill_cell using row 1 i_output-werks.
   perform fill_cell using row 2 i_output-mtart.
   perform fill_cell using row 3 i_output-matnr.
   perform fill_cell using row 4 i_output-maktx.
   perform fill_cell using row 5 i_output-maxlz.
   perform fill_cell using row 6 i_output-lzeih.
   perform fill_cell using row 7 i_output-aenam.
   perform fill_cell using row 8 i_output-laeda.
   row = row + 1.
endloop.
*-- Set name of spreadsheet
  call method of GS_EXCEL 'ACTIVESHEET' = GS_SHEET.
  set property of GS_SHEET 'NAME' = 'Max Storage Period'.
*-- Set orientaion to landscape.
  call method of GS_SHEET 'PAGESETUP' = GS_PAGE.
  set property of GS_PAGE 'ORIENTATION' = 2.
  free object GS_PAGE.
*-- Make column headers bold and centered
  call method of GS_SHEET 'RANGE' = GS_RANGE exporting #1 = 'A1:Z1'.
  set property of GS_RANGE 'HORIZONTALALIGNMENT' = 3.
  call method of GS_RANGE 'FONT' = GS_FONT.
  set property of GS_FONT 'BOLD' = 1.
  free object GS_RANGE.
  free object GS_FONT.
*-- Set column widths to autofit
  call method of GS_SHEET 'RANGE' = GS_RANGE exporting #1 = 'A1:Z1'.
  set property of GS_RANGE 'COLUMNS' = GS_COLS.
  call method of GS_COLS 'AUTOFIT'.
*-- Display spreadsheet
  set property of GS_EXCEL 'VISIBLE' = 1.
*-- Free OLE objects
  free object GS_EXCEL.
  free object GS_BOOKS.
  free object GS_WBOOK.
  free object GS_SHEET.
  free object GS_RANGE.
  free object GS_COLS.
  free object GS_CELL.
endform.                           "download_to_excel
    FORM FILL_CELL
Add report fields to Excel sheet
form fill_cell using row col value.
call method of GS_EXCEL 'CELLS' = GS_CELL exporting #1 = row
                                               #2 = col.
set property of GS_CELL 'VALUE' = VALUE.
free object GS_CELL.
endform.
----</b>