Excel File Format Problem while downloading in ALV Grid

Question

Hi All,
My program gives an ALV Grid Output which contains the file download button , when I choose spread sheet as the file format , the actual data starts only from 4th line and the lines above it contain date, heading etc and the rest are blank. Is it possible that I can download only the records in the grid output with the column names and not the unnecessary log?
Also the format is not proper excel format, this same file will be used for upload into another program using the Function Module 'TEXT_CONVERT_XLS_TO_SAP'. When I load the file saved in the above format, this Function Module always fails.
Please let me know any solution for this problem
Thanks in Advance.

Answer 1

Hi
try this code----
*&      Form  DOWNLOAD_EXCEL_TEMPLATE
      text
-->  p1        text
<--  p2        text
FORM download_excel_template .
  TYPES: BEGIN OF lt_data,
            field1(20),
            field2(30),
            field3(20),
            field4(20),
            field5(20),
            field6(30),
            field7(15),
            field8(10),
            field9(10),
            field10(20),
            field11(20),
            field12(10),
            field13(20),
            field14(20),
          END OF lt_data.
  DATA: lv_file TYPE rlgrap-filename,
        li_data TYPE STANDARD TABLE OF lt_data,
        wa_data TYPE lt_data,
        lv_pathcheck type c,
        lv_file1 type string.
  wa_data-field1 = ''.
  APPEND wa_data TO li_data.
  REFRESH gi_header.
  wa_header-name = 'Company Code'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Main Asset Number'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Asset Sub Number'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Document Date'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Posting Date'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Asset Value Date'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Item Text'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Reference'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Allocation'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Amount Posted'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Percentage Rate'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Quantity'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Prior-Yr Quantity'.
  APPEND wa_header TO gi_header.
  wa_header-name = 'Curr-Yr Quantity'.
  APPEND wa_header TO gi_header.
  lv_file = gv_file.
  lv_file1 = gv_file.
  CALL METHOD cl_gui_frontend_services=>directory_exist
    EXPORTING
      directory            = lv_file1
    RECEIVING
      result               = lv_pathcheck
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      wrong_parameter      = 3
      not_supported_by_gui = 4
      OTHERS               = 5.
   FIND '.xls' IN lv_file IGNORING CASE.
  IF sy-subrc = 0.
    REPLACE '.XLS' IN lv_file WITH ' ' IGNORING CASE.
  ENDIF.
  FIND '.TXT' IN lv_file IGNORING CASE.
  IF sy-subrc = 0.
    REPLACE '.TXT' IN lv_file WITH ' ' IGNORING CASE.
  ENDIF.
  CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
    EXPORTING
      file_name                 = lv_file
      data_sheet_name           = 'DATA'
    TABLES
      data_tab                  = li_data
      fieldnames                = gi_header
    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 gv_msgid TYPE 'E' NUMBER 002.
  ENDIF.
ENDFORM.                    " DOWNLOAD_EXCEL_TEMPLATE
regards,
Prashant