Upload Excel Files to ITable

Question

Hi... maybe someone of you have been reading about how to upload excel files to an internal table using function module ALSM_EXCEL_TO_INTERNAL_TABLE.
The problem that I found with this technique is that it is not possible to use this FM with the SAP WAS because it gives a runtime dump (it only works if the file is on the client machine and if the function module is called from SAPGUI.
Then I have found the topic
Re: BSP and Excel
And one guy puts something interesting like this:
1. In the application use file upload to upload the file.
2. caputure the content and length
DATA: data TYPE REF TO CL_HTMLB_FILEUPLOAD.
data ?= CL_HTMLB_MANAGER=>GET_DATA(
request = runtime->server->request
name = 'fileUpload'
id = 'xx').
name = data->file_name.
content = data->file_content.
length = data->file_length.
content_type = data->file_content_type.
3. Then read the data using the class
DATA: conv TYPE REF TO CL_ABAP_CONV_IN_CE.
conv = CL_ABAP_CONV_IN_CE=>CREATE( input = CONTENT ).
conv->READ( importing data = Variable len = length ).
Now... has anyone continued with this sample? has anyone put the contents into an internal table (with the READ method)...
If someone did it please show me how to..
Thanks
Ariel

Answer 1

Hi Craig,
Ok, I was reading the Thomas's Blog and the thread about excel. The blog talks about encoding and the thread is about how to "download" the table. I want to upload the excel to an internal table.
So, I am almost finishing the code.. But I have a problem (named DUMP) when I create the "conv" object (check the code) the problem is because I dont know how to call the create method indicating 'UFT-16' as encoding.
I show you my "OnInputProcessing" code:
IF button_event->id = 'btnUpload'.
  fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
                       request = request
                       id      = 'txtFile'
                       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 ZMTVEMAT,
              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,
              len       TYPE I.
        conv = CL_ABAP_CONV_IN_CE=>CREATE(
                  encoding = 'UTF-16'
                  endian   = 'L'
                  input    = fileUpload->file_content ).
        CALL FUNCTION 'TR_NAMETAB_GET'
           EXPORTING
            IV_TABNAME                   = 'ZMTVMAT'
            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 ).
            conv->READ(
                        exporting
                          view = viewoff
                        importing
                          data = content
                          len = len ).
This is the DUMP
Runtime Errors         CONVT_CODEPAGE_INIT                               
Exception              CX_SY_CODEPAGE_CONVERTER_INIT                     
       Occurred on     30.11.2004 at 13:20:47                                                                               
The conversion of some code pages is not supported.                                                                               
What happened?                                                                               
The conversion of texts in code page 'UTF-' to code page '1100' is not   
supported.                                                               
Thanks
Ariel