Urgent task on download file

Question

Hi friends ,
I download the data into the excel file succesfully by 'EXCEL_OLE_STANDARD_DAT'
  .But I didnt get the Headings What I have to Modify.
*& Report  ZT11
report zt11.
data : begin of head occurs 0,
       h1(5) type c value 'one',
       h2(5) type c value 'two',
       end of head.
append head.
data : begin of itab occurs 0,
t1(5) type c value 'sag',
t2(5) type c value 'ntc',
end of itab.
append itab.
*write : itab-t1,itab-t2.
CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
EXPORTING
FILE_NAME = 'C:\DETAILS'
CREATE_PIVOT = 0
DATA_SHEET_NAME = ' '
PIVOT_SHEET_NAME = ' '
PASSWORD = ' '
PASSWORD_OPTION = 0
TABLES
PIVOT_FIELD_TAB =
*DATA_TAB = ITAB[]
FIELDNAMES = head
EXCEPTIONS
FILE_NOT_EXIST = 1
FILENAME_EXPECTED = 2
COMMUNICATION_ERROR = 3
OLE_OBJECT_METHOD_ERROR = 4
OLE_OBJECT_PROPERTY_ERROR = 5
INVALID_PIVOT_FIELDS = 6
DOWNLOAD_PROBLEM = 7
OTHERS = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Answer 1

Hi Satya,
check this. this one will get you what you are looking for
data : begin of it_header occurs 0,
        line(20) type c,
       end of it_header.
data : v_repid type sy-repid,
       d_file  type string,
       a_line  type i.
selection-screen : begin of block blk with frame title text-001.
selection-screen : skip 1.
select-options   : so_date for ztest-erdat obligatory.
select-options   : so_plant for ztest-werks.
selection-screen : skip 1.
selection-screen : end of block blk.
selection-screen : begin of block blk1 with frame title text-001.
selection-screen : skip 1.
parameters       : p_file like rlgrap-filename obligatory.
selection-screen : skip 1.
selection-screen : end of block blk1.
initialization.
  v_repid = sy-repid.
at selection-screen on value-request for p_file.
  call function 'F4_FILENAME'
    exporting
    program_name        = v_repid
  DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
    importing
    file_name           = p_file
start-of-selection.
  select * from ztest into table it_ztest
             where erdat  in so_date
               and werks  in so_plant.
  describe table it_ztest lines a_line.
  it_header-line = 'No'.
  append it_header.
  it_header-line = 'Test Name'.
  append it_header.
  concatenate p_file '.xls' into p_file.
  d_file = p_file.
  call function 'WS_DOWNLOAD'
   exporting
  BIN_FILESIZE                  = ' '
  CODEPAGE                      = ' '
     filename                     = p_file
     filetype                     = 'DBF'
  filetype                      = 'DAT'
   mode                          = ' '
  WK1_N_FORMAT                  = ' '
  WK1_N_SIZE                    = ' '
  WK1_T_FORMAT                  = ' '
  WK1_T_SIZE                    = ' '
  COL_SELECT                    = ' '
  COL_SELECTMASK                = ' '
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
    tables
      data_tab                      = it_ztest
      fieldnames                    = it_header
   exceptions
     file_open_error               = 1
     file_write_error              = 2
     invalid_filesize              = 3
     invalid_type                  = 4
     no_batch                      = 5
     unknown_error                 = 6
     invalid_table_width           = 7
     gui_refuse_filetransfer       = 8
     customer_error                = 9
     others                        = 10
  if sy-subrc eq 0.
  endif.
thanks
venki