Downloading a file to excel sheet

Question

To all forum people 
While I download an internal table into an excel-sheet I would like to place a field name in the excel-sheet corresponding to each field in my internal table so how could this be done are there any function modules pertaining to this issue or is there any other method to do this.....
murali

Answer 1

Hi 
The following is a sample code download to EXCEL file
REPORT Sample
NO STANDARD PAGE HEADING
LINE-SIZE 180
       LINE-
        COUNT 90                                             0001-
        LINE-COUNT 65                                             "0001+
        MESSAGE-ID z1.
TABLES: MARC.
DATA : BEGIN OF i_marc OCCURS 0,
       matnr LIKE marc-matnr,            "Material
       werks LIKE marc-werks,            "Plant     
       mmsta LIKE marc-mmsta,            "MM/PP Status
       ekgrp LIKE marc-ekgrp,            "Purchasing Group
       dispo LIKE marc-dispo,            "MRP Controller
       plifz LIKE marc-plifz,            "PDT (Planned Dlv Time)
       webaz LIKE marc-webaz,            "GRT (Goods Receipt Time)
       fevor LIKE marc-fevor,            "Production Scheduler
       insmk LIKE marc-insmk,            "Post to Inspection Stock
       ladgr LIKE marc-ladgr,            "Loading Group
       kautb LIKE marc-kautb,            "Automatic PO     Allowed
       kordb LIKE marc-kordb,            "Source List
       prctr LIKE marc-prctr,            "Profit Center
       lgpro LIKE marc-lgpro,            "Issue Storage Location
       abcin LIKE marc-abcin,            "Cycle Count Phys Inventory Ind
       sernp LIKE marc-sernp,            "Serial Number Profile
       lgfsb LIKE marc-lgfsb,            "Stor Loc for External Procure
       END OF i_marc.
STRUCTURES DECLARATION
DATA: BEGIN OF wf_msg.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF wf_msg.
DATA : BEGIN OF rec_marc,
       matnr(18),
       z_delim1(1),
       werks(4),
       z_delim2(1),
       mmsta(2),
       z_delim3(1),
       ekgrp(3),
       z_delim4(1),
       dispo(3),
       z_delim5(1),
       plifz(3),
       z_delim6(1),
       webaz(3),
       z_delim7(1),
       fevor(3),
       z_delim8(1),
       insmk(1),
       z_delim9(1),
       ladgr(4),
       z_delim10(1),
       kautb(1),
       z_delim11(1),
       kordb(1),
       z_delim12(1),
       prctr(10),
       z_delim13(1),
       lgpro(4),
       z_delim14(1),
       abcin(1),
       z_delim15(1),
       sernp(4),
       z_delim16(1),
       lgfsb(4),
       z_delim17(1),
       END OF rec_marc.
VARIABLES DECLARATION
  DATA: w_lines   like sy-tabix,
        w_records like sy-tabix.
****DELIMETERS DECLARATION
  DATA: p_del  type c  value ',',        "delimeter
        p_del1 type c  value ';'.        "delimeter
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
  s_matnr FOR marc-matnr,
  s_werks FOR marc-werks,
  s_mmsta FOR marc-mmsta,
  s_ekgrp FOR marc-ekgrp,
  s_dispo FOR marc-dispo,
  s_plifz FOR marc-plifz,
  s_webaz FOR marc-webaz,
  s_fevor FOR marc-fevor,
  s_insmk FOR marc-insmk,
  s_ladgr FOR marc-ladgr,
  s_kautb FOR marc-kautb,
  s_kordb FOR marc-kordb,
  s_prctr FOR marc-prctr,
  s_lgpro FOR marc-lgpro,
  s_abcin FOR marc-abcin,
  s_sernp FOR marc-sernp,
  s_lgfsb FOR marc-lgfsb.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION SCREEN FOR DOWN LOAD OPTION
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETERS:
  r_list  radiobutton group a1,
p_del   default ',',                  "delimeter
DATA: p_filePC TYPE rlgrap-filename value 'C:\zmarc.xls',
      typ TYPE rlgrap-filetype value 'DAT',
      fname TYPE rlgrap-filename,
      ftype TYPE rlgrap-filetype,
      fsize TYPE i.
SELECTION-SCREEN END OF BLOCK blk2.
START-OF-SELECTION
START-OF-SELECTION.
  PERFORM get_data.
END-OF-SELECTION
END-OF-SELECTION.
if r_list = 'X'.
    PERFORM output_list.
  elseif r_dldPC = 'X'.
    PERFORM download_file_PC.
  endif.
*&      Form  get_data
      Get data from table MARC
FORM get_data.
CLEAR: i_marc. REFRESH: i_marc.
  SELECT matnr
         werks
         mmsta
         ekgrp
         dispo
         plifz
         webaz
         fevor
         insmk
         ladgr
         kautb
         kordb
         prctr
         lgpro
         abcin
         sernp
         lgfsb
    INTO TABLE i_marc
       FROM marc
         WHERE matnr IN s_matnr
         AND werks IN s_werks
         AND mmsta IN s_mmsta
         AND ekgrp IN s_ekgrp
         AND dispo IN s_dispo
         AND plifz IN s_plifz
         AND webaz IN s_webaz
         AND fevor IN s_fevor
         AND insmk IN s_insmk
         AND ladgr IN s_ladgr
         AND kautb IN s_kautb
         AND kordb IN s_kordb
         AND prctr IN s_prctr
         AND lgpro IN s_lgpro
         AND abcin IN s_abcin
         AND sernp IN s_sernp
         AND lgfsb IN s_lgfsb.
ENDFORM.                    " get_data
*&      Form  output_list
      Output List with Column Headings
FORM output_list.
  CLEAR: w_lines.
  DESCRIBE TABLE i_marc LINES w_lines.
  if w_lines gt 0.
    ULINE.
    WRITE:/28  'MM/PP',
          38  'MRP',
          48  'Prod',
          58  'Purch',
          68  'Profit',
          80  'Planned',
          92  'GR',
          100 'Post to',
          114 'Auto',
          122 'Source',
          132 'Issue',
          140 'CC Phys',
          150 'Loading',
          160 'Serial No',
          172 'SLoc'.
    WRITE:/1  'Material',
          20  'Plant',
          28  'Status',
          38  'Ctrlr',
          48  'Sched',
          58  'Grp',
          68  'Ctr',
          80  'Dlv. Time',
          92  'Time',
          100 'Insp. Stock',
          114 'PO',
          122 'List',
          132 'SLoc',
          140 'Indicator',
          150 'Group',
          160 'Profile',
          172 'for EP'.
    ULINE.
    LOOP AT i_marc.
      WRITE:/   i_marc-matnr,
            20  i_marc-werks.
      set left scroll-boundary." Added to keep the left 2 columns fixed
                               while viewing the list online
      WRITE:28  i_marc-mmsta,
            38  i_marc-dispo,
            48  i_marc-fevor,
            58  i_marc-ekgrp,
            68  i_marc-prctr,
            80  i_marc-plifz,
            92  i_marc-webaz,
            100 i_marc-insmk,
            114 i_marc-kautb,
            122 i_marc-kordb,
            132 i_marc-lgpro,
            140 i_marc-abcin,
            150 i_marc-ladgr,
            160 i_marc-sernp,
            172 i_marc-lgfsb.
    ENDLOOP.
    ULINE.
  endif.
ENDFORM.                    " output_list
*&      Form  download_file_PC
      Download file to Local directory on PC
FORM download_file_PC.
CLEAR: w_lines, w_records.
  DESCRIBE TABLE i_marc LINES w_lines.
  if w_lines gt 0.
Download file
    PERFORM open_file using p_filePC.
    PERFORM output_file_PC.
    PERFORM close_file using p_filePC.
    PERFORM write_summary.
  endif.
ENDFORM.                    " download_file_PC
*&      Form  write_summary
FORM write_summary.
  write : / '******************************************************'.
write : / '****     PROGRAM IS ENDED SUCCESSFULLY           **'.0001-
  write : / '****   PROGRAM HAS ENDED SUCCESSFULLY         *****'."0001+
  write : / '******************************************************'.
  skip.
  write : /  'No. of recds written  :', 38 w_records.
  skip.
  if r_dldUx = 'X'.
    write : /  'Output file name : ' , p_fileUX.
  elseif r_dldPC = 'X'.
    write : /  'Output file name : ' , p_filePC.
  endif.
  skip.
  write : / '******************************************************'.
ENDFORM.                    " write_summary
*&      Form  open_file
      text
     -->P_P_FILEUX  text
FORM open_file USING output_file.
  OPEN DATASET output_file FOR OUTPUT IN TEXT MODE.
  if sy-subrc <> 0.
Send technical message
    CLEAR wf_msg.
    wf_msg-msgid  = 'ZB'.
    wf_msg-msgnr  = '003'.
    wf_msg-msgtyp = 'E'.
    wf_msg-msgv1  = output_file.
    CALL FUNCTION 'Z_ERROR'
         EXPORTING
              msg    = wf_msg
              pid    = sy-cprog
         EXCEPTIONS
              others = 1.
  endif.
ENDFORM.                    " open_file
*&      Form  close_file
      Close File
FORM close_file USING    output_file.
  close dataset output_file.
  if sy-subrc <> 0.
Send technical message
    clear wf_msg.
    wf_msg-msgid  = 'Z3'.
    wf_msg-msgnr  = '003'.
    wf_msg-msgtyp = 'E'.
    wf_msg-msgv1  = output_file.
    call function 'Z_ERROR'
         EXPORTING
              msg    = wf_msg
              pid    = sy-cprog
         EXCEPTIONS
              others = 1.
  endif.
ENDFORM.                    " close_file
*&      Form  output_file_PC
      Write Data to Local PC File
FORM output_file_PC.
DATA: BEGIN OF i_PCFile OCCURS 0,
          rec(2000) TYPE C,
      END OF i_PCFile.
  data: dload_record(1000).
  DATA: flength TYPE i.
Transfer Header Line
  clear: dload_record.
  concatenate 'Material' 'Plant' 'MM/PP Status' 'Purch Grp.' 'MRP Ctrl.'
              'Planned Dlv. Time' 'GR Time' 'Prod Sched'
              'Post to Insp. Stock''Loading Group''Auto PO'
              'Source List''Profit Ctr.' 'Issue SLoc''CC Phys Indicator'
              'Serial No Profile' 'SLoc for EP'
               into dload_record
               separated by p_del.
  condense dload_record no-gaps.
  i_PCFile-rec = dload_record.
  append i_PCFile.
  clear i_PCFile.
Transfer Data
  loop at i_marc.
    w_records = w_records + 1.
    clear: rec_marc, dload_record.
    move-corresponding i_marc to rec_marc.
    move p_del to:  rec_marc-z_delim1, rec_marc-z_delim2,
                    rec_marc-z_delim3, rec_marc-z_delim4,
                    rec_marc-z_delim5, rec_marc-z_delim6,
                    rec_marc-z_delim7, rec_marc-z_delim8,
                    rec_marc-z_delim9, rec_marc-z_delim10,
                    rec_marc-z_delim11,rec_marc-z_delim12,
                    rec_marc-z_delim13,rec_marc-z_delim14,
                    rec_marc-z_delim15,rec_marc-z_delim16,
                    rec_marc-z_delim17.
    move rec_marc to dload_record.
    condense dload_record no-gaps.
    i_PCFile-rec = dload_record.
    append i_PCFile.
    clear i_PCFile.
  endloop.
  IF p_filePC NE SPACE.
    CALL FUNCTION 'DOWNLOAD'
         EXPORTING
              filename            = p_filePC
              filetype            = typ
         IMPORTING
              act_filename        = fname
              act_filetype        = ftype
              filesize            = fsize
         TABLES
              data_tab            = i_PCFile
         EXCEPTIONS
              invalid_filesize    = 1
              invalid_table_width = 2.
    IF SY-SUBRC NE 0.
      WRITE 'File can not be opened'.
    ENDIF.
Begin 0001+
  Set PC Filename to whatever is returned from the Function Module, to
  display later
    p_filePC = fname.
End 0001+
  ELSE.
    WRITE:/ 'Please Enter File Name'.
  ENDIF.
ENDFORM.                    " output_file_PC
if it helps please reward points
Regards
Prabhakar