From infotype to a excel file

Question

Experts,
ABAP,  Who knows wich fonction can I use to download data from an object (BEGDA, ID, ENDDA...) in an Excel file ?
Thanks in advance .

Answer 1

Hi
Try this code. It downloads data from Personal Data to an excel file
DATA:     program(255)  TYPE c
                                    VALUE 'C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE',
*check the location of your Excel application
      parameter(255) TYPE c VALUE 'c:\sapdata.xls',
      retcode TYPE i.
DATA: BEGIN OF i_emp OCCURS 0,
          PERNR LIKE pa0002-PERNR,
          NAME2 LIKE pa0002-NAME2,
          BEGDA LIKE pa0002-BEGDA,
          ENDDA LIKE pa0002-ENDDA,
      END OF i_emp.
PARAMETERS: p_fname LIKE rlgrap-filename
                    DEFAULT 'c:\sapdata.xls' OBLIGATORY,
           p_begda TYPE begda,
           p_endda TYPE endda.
SELECT * FROM pa0002 INTO CORRESPONDING FIELDS OF TABLE i_emp
         WHERE BEGDA >= p_begda AND endda <= p_endda.
SORT i_emp.
CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
  EXPORTING
    i_filename        = p_fname
  TABLES
    i_tab_sap_data    = i_emp
  EXCEPTIONS
    conversion_failed = 1
    OTHERS            = 2.
IF sy-subrc EQ 0.
  WRITE:/ 'Download to Excel complete'.
ELSE.
  WRITE:/ 'Error with download'.
ENDIF.
CALL FUNCTION 'GUI_EXEC'
  EXPORTING
    command    = program
    parameter  = parameter
  IMPORTING
    returncode = retcode.
IF retcode NE 0.
  WRITE:/ 'PROGRAM', program, 'NOT FOUND OR COULD NOT BE STARTED'.
ENDIF.
Hope this helps.
Cheers,
Remi