Hi: working with excel sheet

Question

HI,
   Please i need the code to activate the excel worksheet
cells after dowloading it to the desktop. I will appreciate your help.
rgs
p.kp

Answer 1

Hi,
<b>Demo Program</b>
RSOLETT1
RSDEMO01
XXLTTEST
XXLSTEST
XXLFTEST
Check this source Code ; Hope it helps
REPORT  y_man_excel                             .
* this report demonstrates how to send some ABAP data to an
* EXCEL sheet using OLE automation.
INCLUDE ole2incl.
* handles for OLE objects
DATA: o_excel       TYPE ole2_object,        " Excel object
      o_workbooks   TYPE ole2_object,         " list of workbooks
      o_worksheet   TYPE ole2_object,          " workbook
      h_zl TYPE ole2_object,           " cell
      h_f TYPE ole2_object.            " font
TYPES: BEGIN OF ty_header,
          create_date  TYPE char20 ,
          nomship_ref  TYPE char20 ,
          offer        TYPE char20 ,
          conf_ref_no  TYPE char20 ,
          con_eff_date TYPE char20 ,
          status_date  TYPE char20 ,
          rej_text     TYPE char20 ,
          trf_date     TYPE char20 ,
          mprn         TYPE char20 ,
          mprn_status  TYPE char20 ,
          mam_app      TYPE char20 ,
          open_read    TYPE char22 ,
       END OF ty_header.
CONSTANTS :
       lc_file_type  TYPE char10 VALUE 'DAT'.
DATA : lit_ty_header TYPE TABLE OF ty_header,
       wa_ty_header  LIKE LINE  OF lit_ty_header,
       lv_file_name  TYPE string.
CLEAR: lit_ty_header[],
       wa_ty_header,
       lv_file_name.
* Table of Coulumn Names.
wa_ty_header-create_date    = 'Column one' .
wa_ty_header-nomship_ref    = 'Column Two' .
wa_ty_header-offer          = 'Column there' .
wa_ty_header-conf_ref_no    = 'Column Four' .
wa_ty_header-con_eff_date   = 'Column five' .
wa_ty_header-status_date    = 'Column Six' .
wa_ty_header-rej_text       = 'Column Seven' .
wa_ty_header-trf_date       = 'Column Eight' .
wa_ty_header-mprn           = 'Column Nine' .
wa_ty_header-mprn_status    = 'Column Ten' .
wa_ty_header-mam_app        = 'Column Eleven' .
wa_ty_header-open_read      = 'Column 12' .
APPEND wa_ty_header TO lit_ty_header.
* File Name
CONCATENATE text-033
            sy-uname
            sy-datum
            sy-uzeit
            text-034
INTO lv_file_name.
CONDENSE lv_file_name.
*&   Event START-OF-SELECTION
START-OF-SELECTION.
*----start Excel
  CREATE OBJECT o_excel 'EXCEL.APPLICATION'.
*----Set non visible
  SET PROPERTY OF o_excel  'Visible' = 1.
*----get list of workbooks, initially empty
  CALL METHOD OF o_excel 'Workbooks' = o_workbooks.
  PERFORM err_hdl.
*----add a new workbook
  CALL METHOD OF o_workbooks 'Add' = o_worksheet.
*  CALL METHOD OF o_worksheet 'Activate'.
*  SET PROPERTY OF o_worksheet  'Name' = 'Page 1'.
  PERFORM err_hdl.
* 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).
  CALL METHOD OF o_worksheet 'SAVEAS'
    EXPORTING
      #1 = 'c:kis_excel.xls'.
  FREE OBJECT o_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 o_excel 'Cells' = h_zl
    EXPORTING
      #1 = i
      #2 = j.
  PERFORM err_hdl.
  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  ERR_HDL
*       outputs OLE error if any                                       *
*  -->  p1        text
*  <--  p2        text
FORM err_hdl.
  IF sy-subrc <> 0.
    WRITE: / 'error:-', sy-subrc.
    STOP.
  ENDIF.