Regarding saving of excel sheet to presentation server...

Question

Hi,
am using OLE inorder to create the EXCEL sheet, but the problem is am not able to save it to presentation server using the following program.. We have to do it Manually..
Please go through it and help me and how will i save it using programm...
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_cell TYPE ole2_object,
      p_filename TYPE rlgrap-filename.
TABLES: spfli.
DATA  h TYPE i.
table of flights
DATA: vert TYPE numc2 VALUE '90'.
DATA: h_format TYPE ole2_object,
      l_cols TYPE ole2_object,
      l_entcol TYPE ole2_object,
      color TYPE char1 VALUE '4'.
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 UP TO 10 ROWS.
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_mapl 'SaveAs' EXPORTING #1 = 'C:\Documents and Settings\jrozar\Desktop\SKV.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_cell1 USING 90 1 1 1 'Flug'(001).
  PERFORM fill_cell1 USING 90 1 2 0 'Nr'(002).
  PERFORM fill_cell1 USING 90 1 3 1 'Von'(003).
  PERFORM fill_cell1 USING 90 1 4 1 'Nach'(004).
  PERFORM fill_cell1 USING 90 1 5 1 'Zeit'(005).
  LOOP AT it_spfli.
copy flights to active EXCEL sheet
    h = sy-tabix + 1.
    PERFORM fill_cell USING h 1 0 it_spfli-carrid.
    PERFORM fill_cell USING h 2 0 it_spfli-connid.
    PERFORM fill_cell USING h 3 0 it_spfli-cityfrom.
    PERFORM fill_cell USING h 4 0 it_spfli-cityto.
    PERFORM fill_cell USING h 5 0 it_spfli-deptime.
  ENDLOOP.
changes by Kishore  - start
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTING #1 = 2.
PERFORM ERR_HDL.
add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP  EXPORTING #1 = 2.
PERFORM ERR_HDL.
tell user what is going on
SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
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 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
copy flights to active EXCEL sheet
   H = SY-TABIX + 1.
   PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
   PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
   PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
   PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
   PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
changes by Kishore  - end
disconnect from Excel
CALL METHOD OF H_MAPL 'Saveas' EXPORTING  #1 = 'C:\tst.xls'.
  p_filename = 'C:\tst.xls'.
  CALL METHOD OF h_mapl 'Saveas'
    EXPORTING
    #1 = p_filename.
  CALL METHOD OF h_excel 'Close'.
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 val.
  CALL METHOD OF h_excel 'Cells' = h_zl EXPORTING #1 = i #2 = j.
  PERFORM err_hdl.
  CALL METHOD OF h_zl 'Interior' = h_format.
      IF J EQ  2.
      color = 2.
SET PROPERTY OF h_format 'ColorIndex' = color.
    ELSE.
      color = 4.
    ENDIF.
  SET PROPERTY OF h_format 'ColorIndex' = color.
  CALL METHOD OF h_zl 'Columns' = l_cols
    EXPORTING
    #1 = 2.
  CALL METHOD OF l_cols 'EntireColumn' = l_entcol.
  CALL METHOD OF l_entcol 'Autofit'.
  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.
ENDFORM.                    "FILL_CELL
*&      Form  FILL_CELL1
      text
     -->VERT       text
     -->I          text
     -->J          text
     -->BOLD       text
     -->VAL        text
FORM fill_cell1 USING vert i j bold val.
  CALL METHOD OF h_excel 'Cells' = h_zl EXPORTING #1 = i #2 = j.
  PERFORM err_hdl.
  SET PROPERTY OF h_zl 'Orientation' = vert.
  CALL METHOD OF h_zl 'Interior' = h_format.
    IF J EQ  2.
      color = 2.
SET PROPERTY OF h_format 'ColorIndex' = color.
    ELSE.
      color = 4.
    ENDIF.
  SET PROPERTY OF h_format 'ColorIndex' = color.
  CALL METHOD OF h_zl 'Columns' = l_cols
    EXPORTING
    #1 = i.
  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.
ENDFORM.                                                    "FILL_CELL1
*&      Form  ERR_HDL
      outputs OLE error if any                                       *
-->  p1        text
<--  p2        text
FORM err_hdl.
  IF sy-subrc <> 0.
    WRITE: / 'Fehler bei OLE-Automation:'(010), sy-subrc.
    STOP.
  ENDIF.
ENDFORM.                    " ERR_HDL

Answer 1

Hello Subhash,
Try this
data: sheet TYPE ole2_object.
data: lv_file(512) default 'C:tst.xls'.
* Save excel speadsheet to particular filename
  GET PROPERTY OF h_excel 'ActiveSheet' = sheet.
  CALL METHOD OF sheet 'SaveAs'
    EXPORTING
      #1 = lv_file     "filename
      #2 = 1.                      "fileFormat