Uploading Excel to Internal Table

Question

Hi,
  Can anyone please look into the code and suggest me the changes in uploading Excel to Internal Table. Code is as below in OnInputProcessing.
DATA: event TYPE REF TO CL_HTMLB_EVENT.
event =
CL_HTMLB_MANAGER=>get_event( runtime->server->request ).
DATA: fileUpload TYPE REF TO CL_HTMLB_FILEUPLOAD,
       fcontent type xstring,
       fstring  type string,
              len TYPE I.
fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
request = runtime->server->request
name = 'fileUpload'
id = 'myFileUpload1').
len = fileUpload->file_length.
IF event->id = 'submitButton' AND
    event->event_type = 'click'.
   fileUpload ?=
CL_HTMLB_MANAGER=>GET_DATA( request = request
                           id = 'myFileUpload1'
                           name = 'fileUpload' ).
   IF ( fileUpload->file_name NE '' ) AND
   ( fileUpload->file_length GT 0 ).
     IF fileUpload->file_content_type
     = 'application/vnd.ms-excel'.
       DATA: content TYPE ZTABLE,
       conv TYPE REF TO CL_ABAP_CONV_IN_CE,
       viewoff TYPE REF TO CL_ABAP_VIEW_OFFLEN,
       it_off TYPE ABAPOFFLENTAB,
       wa_off TYPE ABAPOFFLEN,
       dd_fields TYPE DDFIELDS,
       wa_fields TYPE DFIES.
data: codepage type CPCODEPAGE.
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
EXPORTING
external_name       = 'utf-16le'
  KIND                = 'H'
  IMPORTING
  SAP_CODEPAGE        = codepage.
conv = CL_ABAP_CONV_IN_CE=>CREATE( encoding = '4103'
endian = 'L'
input =   fileUpload->file_content
ignore_cerr = 'X').
       CALL FUNCTION 'TR_NAMETAB_GET'
         EXPORTING
           IV_TABNAME                 = 'ZTABLE'
           IV_GET_LENGTHS_IN_CHARMODE = 'X'
           IV_GET_TEXTS               = ' '
         IMPORTING
           ET_DFIES                   = dd_fields.
        LOOP AT dd_fields INTO wa_fields.
         MOVE wa_fields-offset TO wa_off-ioff.
         MOVE wa_fields-intlen TO wa_off-ilen.
         APPEND wa_off TO it_off.
        ENDLOOP.
       viewoff = CL_ABAP_VIEW_OFFLEN=>CREATE( tab = it_off ).
        call method conv->read( importing data = fstring ).
       fcontent = conv->get_buffer( ).
       call function 'HR_KR_XSTRING_TO_STRING'
           exporting
               from_codepage = '4103'
               in_xstring    = fcontent
          importing
               out_string    = fstring.
      data: input_string type string.
      data: fields  type string_table.
      data: s_table type string_table.
split fstring at cl_abap_char_utilities=>cr_lf into table s_table.
field-symbols: <wa_table> like line of s_table.
loop at s_table assigning <wa_table>.
  split <wa_table> at cl_abap_char_utilities=>HORIZONTAL_TAB into table
fields.
endloop.
  endif.
  endif.
  endif.
thanks in advance,
anjani.

Answer 1

Hi anjani,
it doesn't help much if you just post some code and request changes, if you don't state the kind of problem you are having ... in order to receice helpful replies, you have to give detailed information, what you want to do, what is not working as expected ... so please post more details.
Meanwhile I recommend doing a search for your excel problem in the forum and also read the excel weblogs from <a href="https://www.sdn.sap.com/sdn/weblogs.sdn?blog=/pub/u/1918">Thomas Jung</a>.
Regards,
Max