Quantcast
Channel: SCN : All Content - All Communities
Viewing all articles
Browse latest Browse all 7999

Problem in uploading Excel Sheet in Report

$
0
0

Dear gurus

 

My requirement is to Upload excel sheet  in my Report.

 

I have used FM's as

 

KD_GET_FILENAME_ON_F4 -  for  fetching file

 

and

 

GUI_UPLOAD  -  for  uploading the file to my report.

 

Here's the  code as-

 

REPORT Z_KK_EXCEL.

types: begin of itab,
         EMPName type c,
         Designation type c,
         Salary type c,
        end of itab.

data: it_tab type standard TABLE OF itab,
       wa_tab type itab.

data: file_str type string.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: p_file TYPE RLGRAP-Filename.

SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
   CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      PROGRAM_NAME        = SYST-REPID
      DYNPRO_NUMBER       = SYST-DYNNR
      FIELD_NAME          = 'P_FILE'
      STATIC              = 'X'
      MASK                = 'excel, *xls'
*     FILEOPERATION       = 'R'
*     PATH                =
     CHANGING
       FILE_NAME           = p_file
*     LOCATION_FLAG       = 'P'
    EXCEPTIONS
      MASK_TOO_LONG       = 1
      OTHERS              = 2
             .
   IF SY-SUBRC <> 0.

   ENDIF.

    start-of-selection.

     file_str = p_file.

    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        FILENAME                      = file_str
       FILETYPE                      = 'ASC'
       HAS_FIELD_SEPARATOR           = 'X'
*      HEADER_LENGTH                 = 0
*      READ_BY_LINE                  = 'X'
*      DAT_MODE                      = ' '
*      CODEPAGE                      = ' '
*      IGNORE_CERR                   = ABAP_TRUE
*      REPLACEMENT                   = '#'
*      CHECK_BOM                     = ' '
*      VIRUS_SCAN_PROFILE            =
*      NO_AUTH_CHECK                 = ' '
*      ISDOWNLOAD                    = ' '
*    IMPORTING
*      FILELENGTH                    =
*      HEADER                        =
      TABLES
        DATA_TAB                      = it_tab
*    CHANGING
*      ISSCANPERFORMED               = ' '
     EXCEPTIONS
       FILE_OPEN_ERROR               = 1
       FILE_READ_ERROR               = 2
       NO_BATCH                      = 3
       GUI_REFUSE_FILETRANSFER       = 4
       INVALID_TYPE                  = 5
       NO_AUTHORITY                  = 6
       UNKNOWN_ERROR                 = 7
       BAD_DATA_FORMAT               = 8
       HEADER_NOT_ALLOWED            = 9
       SEPARATOR_NOT_ALLOWED         = 10
       HEADER_TOO_LONG               = 11
       UNKNOWN_DP_ERROR              = 12
       ACCESS_DENIED                 = 13
       DP_OUT_OF_MEMORY              = 14
       DISK_FULL                     = 15
       DP_TIMEOUT                    = 16
       OTHERS                        = 17
              .
    IF SY-SUBRC <> 0.

    ENDIF.
   end-of-selection.

     loop at it_tab into wa_tab.

       write :/ wa_tab-EMPName,
                wa_tab-Designation,
                wa_tab-Salary.
       endloop.


my output is coming like this



Can anyone help  ?


Thanks


Regards

karan


Viewing all articles
Browse latest Browse all 7999

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>