How to add coloum name in a exel sheet download file?

Question

Dear all,
I amdownloading a excel sheet from a internal table.I am getting all data correctly.
but now i want to add coloumn name for each coloumn.
How can I do it?
i had try from work area and insert at first index but not get proper result.....
so if possible plz suggest sampl code also.
Regards
Ricky

Answer 1

Hi Ricky Maheswari,
                              I will send a sample code for u.check it once.I execute the below code that is executed successfully.
In my report u have check these things carefully "PEFORM APPEND_HEADER " and SELECT STATEMENT(I use appending table stmt there).Then ur problem will be resolved.
code:
*& Report  YBDC_DOWNLOAD_MM01_XLS                                      *
*& DEVELOPER   : KIRAN KUMAR.G                                         *
*& PURPOSE     : FETCH DATA FROM DB AND PLACE THEM IN .XLS FILE        *
*& CREATION DT : 2/12/2007                                             *
*& REQUEST     : ERPK900035                                            *
*& NOTE        : MENTION PATH & MENTION FILE.XLS IN THE SELE-SCREEN    *
REPORT  ybdc_download_mm01_xls  MESSAGE-ID zbdcmsg.
Tables
TABLES: mara, "General Material Data
        makt. "Material Descriptions
Global Variables
DATA: gv_path TYPE string. "Hold Path Selection Information
Internal Table
DATA : BEGIN OF gt_data OCCURS 0,
        matnr(20),   " Material Number
        mbrsh(20),   " Industry Sector
        mtart(20),   " Material Type
        meins(20),   " Base Unit Of Measure
        maktx(20),   " Material Description
       END OF gt_data.
Selection-Screen
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_file(90).
SELECTION-SCREEN : END OF BLOCK b1.
SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS : s_matnr FOR mara-matnr,
                 s_mbrsh FOR mara-mbrsh,
                 s_mtart FOR mara-mtart,
                 s_maktx FOR makt-maktx,
                 s_meins FOR mara-meins.
SELECTION-SCREEN : END OF BLOCK b2.
Initialization
INITIALIZATION.
  PERFORM initial.
Placing A File In The Directory
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM path_directory.
START-OF-SELECTION.
Append Some Header Information To XLS File
  PERFORM append_header.
Fetching The Data
  PERFORM fecth_data.
END-OF-SELECTION.
GUI_DOWNLOAD
  PERFORM gui_download.
*&      Form  path_directory
      text
-->  p1        text
<--  p2        text
FORM path_directory .
  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title         = 'Download A File'
      initial_folder       = 'c:/'
    CHANGING
      selected_folder      = gv_path
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL METHOD cl_gui_cfw=>flush
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  p_file = gv_path.
  CLEAR gv_path.
ENDFORM.                    " path_directory
*&      Form  fecth_data
      text
-->  p1        text
<--  p2        text
FORM fecth_data .
  SELECT a~matnr
         a~mbrsh
         a~mtart
         a~meins
         b~maktx
    FROM mara AS a
   INNER JOIN makt AS b ON amatnr = bmatnr
   APPENDING  TABLE gt_data
   WHERE a~matnr IN s_matnr
   AND   a~mbrsh IN s_mbrsh
   AND   a~mtart IN s_mtart
   AND   b~maktx IN s_maktx
   AND   a~meins IN s_meins.
  IF sy-subrc = 0.
    MESSAGE s000.
  ENDIF.
ENDFORM.                    " fecth_data
*&      Form  gui_download
      text
-->  p1        text
<--  p2        text
FORM gui_download .
  gv_path = p_file.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
   BIN_FILESIZE                  =
     filename                      = gv_path
     filetype                      = 'ASC'
   APPEND                        = ' '
     write_field_separator         = 'X'
   HEADER                        = '00'
   TRUNC_TRAILING_BLANKS         = ' '
   WRITE_LF                      = 'X'
   COL_SELECT                    = ' '
   COL_SELECT_MASK               = ' '
   DAT_MODE                      = ' '
IMPORTING
   FILELENGTH                    =
    TABLES
     data_tab                      = gt_data
   EXCEPTIONS
     file_write_error              = 1
     no_batch                      = 2
     gui_refuse_filetransfer       = 3
     invalid_type                  = 4
     no_authority                  = 5
     unknown_error                 = 6
     header_not_allowed            = 7
     separator_not_allowed         = 8
     filesize_not_allowed          = 9
     header_too_long               = 10
     dp_error_create               = 11
     dp_error_send                 = 12
     dp_error_write                = 13
     unknown_dp_error              = 14
     access_denied                 = 15
     dp_out_of_memory              = 16
     disk_full                     = 17
     dp_timeout                    = 18
     file_not_found                = 19
     dataprovider_exception        = 20
     control_flush_error           = 21
     OTHERS                        = 22
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " gui_download
*&      Form  append_header
      text
-->  p1        text
<--  p2        text
FORM append_header .
  REFRESH : gt_data.
  CLEAR   : gt_data.
  gt_data-matnr = 'MATERIAL NUMBER'.
  gt_data-mbrsh = 'INDUSTRY SECTOR'.
  gt_data-mtart = 'MATERIAL TYPE'.
  gt_data-maktx = 'MATERIAL DESCRIPTION'.
  gt_data-meins = 'BASE UNIT OF MEASURE'.
  APPEND gt_data.
  CLEAR gt_data.
ENDFORM.                    " append_header
*&      Form  initial
      text
-->  p1        text
<--  p2        text
FORM initial .
  s_matnr-sign   = 'I'.
  s_matnr-option = 'BT'.
  s_matnr-low    = '800'.
  s_matnr-high   = '100-200'.
  APPEND s_matnr.
  s_mbrsh-sign   = 'I'.
  s_mbrsh-option = 'BT'.
  s_mbrsh-low    = 'M'.
  s_mbrsh-high   = ''.
  APPEND s_mbrsh.
  s_mtart-sign   = 'I'.
  s_mtart-option = 'BT'.
  s_mtart-low    = 'FERT'.
  s_mtart-high   = 'HALB'.
  APPEND s_mtart.
  s_maktx-sign   = 'I'.
  s_maktx-option = 'BT'.
  s_maktx-low    = 'IRON'.
  s_maktx-high   = 'STEEL'.
  APPEND s_maktx.
  s_meins-sign   = 'I'.
  s_meins-option = 'BT'.
  s_meins-low    = 'CM'.
  s_meins-high   = 'KG'.
  APPEND s_meins.
ENDFORM.                    " initial
Award points if helpful.
Kiran Kumar.G
                 Have a Nice Day..