CRM Web UI - Uploading data from Excel files

   <thtmlb:textArea id     = "Excel_Data"
                    text   = " "
                    width  = "0"
                    height = "0"
                     rows  = "0" /> 

      <bsp:htmlbEvent name = "fireMyEvent"
                      id   = "fireMyEvent"
                      p1   = "p1"
                      p2   = "p2" />

fileName = document.getElementById("<%= controller->component_id %>_fileUpl").value; 

Excel = new ActieXObject("Excel.Application");  
Book = Excel.Workbooks.Open( fileName );

ActiveRows = Book.Worksheets("Sheet1").Range("A1,IV65536").CurrentRegion.Rows.Count;

for(iRow=1;iRow<=ActiveRows;iRow++)
{
     for(jCol=1;jCol<7;jCol++)
     {
          cData  = Book.Worksheets("Sheet1").Cells(iRow,jCol).Value;
          sValue = sValue.concat(cData,"\t");
     }
     sValue = sValue.concat("\n\r");
}

document.getElementById("<%= controller->component_id %>_Excel_Data").value = sValue;
Excel.Workbooks.Close;

return fireMyEvent('GetContent');

    CALL METHOD request->get_form_fields
      CHANGING
         fields = lt_items.
            
    LOOP AT lt_items INTO ls_items WHERE name CS 'excel_data'.
      lv_str = ls_items-value.
    ENDLOOP.

       SPLIT lv_str AT cl_abap_char_utilities=>cr_lf INTO TABLE  lt_str.
 
       LOOP AT lt_str INTO lv_str.
        SPLIT lv_str AT cl_abap_char_utilities=>horizontal_tab INTO ls_cond-documentid
                                                                  ls_cond-sold_to_party_id
                                                                  ls_cond-amount
                                                                  ls_cond-currency
                                                                  ls_cond-validfrom
                                                                  ls_cond-validto.
        APPEND ls_cond TO lt_cond.
       ENDLOOP.

LOOP AT lt_cond INTO ls_cond. 
        CREATE DATA lr_forms.
        CREATE OBJECT lr_entity
                     EXPORTING
                     v_data_ref = lr_forms.
        lr_entity->set_properties( ls_cond ).
  
        typed_context->condupload->collection_wrapper->add( lr_entity ).
      ENDLOOP.

<scirpt language="javascirpt">function upload_file( )
{
 var   iRow = 1,
       iCol = 1,
       ActiveRows = 0,
       fileName,
       sValue = "";
 fileName = document.getElementById("<%= controller->component_id %>_fileUpl").value;
 try
 {
  Excel = new ActieXObject("Excel.Application");
  Book = Excel.Workbooks.Open( fileName );
  ActiveRows = Book.Worksheets("Sheet1").Range("A1,IV65536").CurrentRegion.Rows.Count;
  for(iRow=1;iRow<=ActiveRows;iRow++)
  {
       for(jCol=1;jCol<7;jCol++)
       {
                cData = Book.Worksheets("Sheet1").Cells(iRow,jCol).Value;
                sValue = sValue.concat(cData,"\t");
       }
       sValue = sValue.concat("\n\r");
  }
  document.getElementById("<%= controller->component_id %>_Excel_Data").value = sValue;
  Excel.Workbooks.Close;
 }
return fireMyEvent('GetContent');
</scirpt>

* Types declaration
  TYPES: BEGIN OF line,
          documentid       TYPE string,
          sold_to_party_id TYPE string,
          amount           TYPE string,
          currency         TYPE string,
          validfrom        TYPE string,
          validto          TYPE string,
         END OF line.


  DATA: lr_event          TYPE REF TO cl_bsp_htmlb_event,
             lr_entity          TYPE REF TO cl_bsp_wd_value_node,
             lr_forms           TYPE REF TO line,
             ls_items           TYPE ihttpnvp,
             ls_cond            TYPE line,
             lt_items           TYPE tihttpnvp,
             lt_str               TYPE TABLE OF string,
             lt_cond            TYPE TABLE OF line,
             lv_str              TYPE string.

* Assign the htmlb_event_ex to htmlb_event reference
            lr_event ?= htmlb_event_ex.
* Clear the collection wrappr of context node CondUpload
           typed_context->condupload->collection_wrapper->clear_collection( ).
* Check the triggered event
          IF lr_event->p1 EQ 'GetContent'.
* Read the list of all form fields
             CALL METHOD request->get_form_fields
               CHANGING
                    fields = lt_items.
* Read the records populated in text area
            LOOP AT lt_items INTO ls_items WHERE name CS 'excel_data'.
                 lv_str = ls_items-value.
            ENDLOOP.
* Split the data into an internal table with line feed as delimiter
            SPLIT lv_str AT cl_abap_char_utilities=>cr_lf INTO TABLE lt_str.
* Delete the first record since the first record contains the header
            DELETE lt_str INDEX 1.
* Split the records with horizontal tab as delimiter and populate
* the internal table of type 'CondUpload' context node
          LOOP AT lt_str INTO lv_str.
            SPLIT lv_str AT cl_abap_char_utilities=>horizontal_tab INTO ls_cond-documentid
                                                                    ls_cond-sold_to_party_id
                                                                    ls_cond-amount
                                                                    ls_cond-currency
                                                                    ls_cond-validfrom
                                                                    ls_cond-validto.
            APPEND ls_cond TO lt_cond.
          ENDLOOP.
* Loop into the records and create value node entities
          LOOP AT lt_cond INTO ls_cond.
            CREATE DATA lr_forms.
            CREATE OBJECT lr_entity
               EXPORTING
                  iv_data_ref = lr_forms.
* Populate the entity
             lr_entity->set_properties( ls_cond ).
* Add the entity to colellection wrapper
            typed_context->condupload->collection_wrapper->add( lr_entity ).
           ENDLOOP.
  ENDIF.