Uploading multiple excel sheets

Question

Dear All,
We are having 4 different excel sheets where data is stored regarding the quantity of laptops, desktops, printers & xerox machines. This data is to be loaded into the SAP tables with Co Code & BA Code as primary key which is there available in excel sheets.
Plz help me in code to upload all the 4 files in SAP tables based on a combination of CO Code & BA Code.
The selection screen will have 4 fields to specify the path of all the 4 excel sheets & all the fields are obligatory.
Thanks & Reg,
Nishant

Answer 1

Hi Satesh,
Thanks very much for your prompt reply.
I am attaching the code herewith, please guide me where to use FORM & PERFORM to upload the other 3 excel sheets of the same format.
REport nis1234.
TABLES: bseg,
        zfi_is_qty.
DATA:
        t_excel LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE,
        l_nodata  TYPE c,
        l_excelfile(128) TYPE c.             " filename to be passed to excel file
DATA: BEGIN OF t_type,
        bukrs LIKE bseg-bukrs,
        gsber LIKE bseg-gsber,
        COUNT TYPE I,
      END OF t_type.
data: l_charlen1 type i,
      l_charlen2 type i.
DATA: t_type2 LIKE t_type OCCURS 0 WITH HEADER LINE.
DATA:  l_end_row TYPE i,
       l_endrow1 TYPE i,
       charlen type c.
DATA l_count TYPE I.
DATA : q_count TYPE i value 1.
PARAMETER :
           p_endrow TYPE i OBLIGATORY,
             p_file  TYPE rlgrap-filename OBLIGATORY.
****clearing the contents of database table before uploading a new file everytime
DELETE FROM ZFI_IS_QTY.
*****selection-screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      field_name = p_file
    CHANGING
      file_name  = p_file.
START-OF-SELECTION.
  l_excelfile = p_file.
l_endrow1 = p_endrow.
p_endrow = p_endrow + 1.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = l_excelfile
      i_begin_col             = 5
      i_begin_row             = 2
      i_end_col               = 6
     i_end_row              = p_endrow
      i_end_row               = 4000
    TABLES
      intern                  = t_excel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    MESSAGE i010(zn) WITH 'Error in upload Please check the upload file'.
  ENDIF.
DESCRIBE TABLE T_EXCEL LINES L_ENDROW1.
L_ENDROW1 = L_ENDROW1 / 2.
  DO.
    LOOP AT t_excel WHERE row = q_count.
      IF t_excel-col = 1.
        t_type2-gsber = t_excel-value.
      ELSEIF t_excel-col = 2.
        t_type2-bukrs = t_excel-value.
  ENDIF.
    ENDLOOP.
    l_charlen1 = strlen( t_type2-bukrs ).
    l_charlen2 = strlen( t_type2-gsber ).
    if ( t_type2-bukrs <> ' ' and t_type2-gsber <> ' ' ).
       if ( l_charlen1 = 4 and l_charlen2 = 4 ).
        APPEND t_type2. CLEAR t_type2.
       endif.
    endif.
    q_count = q_count + 1.
    IF q_count > l_endrow1.
      EXIT.
    ENDIF.
  ENDDO.
  SORT T_TYPE2 BY BUKRS GSBER.
*****uploading data from internal table into database table
LOOP AT T_TYPE2.
MOVE-CORRESPONDING T_TYPE2 TO T_TYPE.
L_COUNT = L_COUNT + 1.
AT END OF GSBER.
  AT END OF BUKRS.
write:/  t_type-BUKRS,
          t_type-GSBER,
          L_COUNT.
zfi_is_qty-COMPANY_CODE = t_type-bukrs.
zfi_is_qty-BAREA = t_type-gsber.
zfi_is_qty-DT = l_count.
insert zfi_is_qty.
  CLEAR L_COUNT.
  ENDAT.
ENDAT.
ENDLOOP.
************to read the data from the database table.
data: itab like zfi_is_qty occurs 0 with header line.
select * from zfi_is_qty into corresponding fields of table itab.
ULINE.
loop at itab.
  WRITE:/ ITAB-COMPANY_CODE,
          ITAB-BAREA,
          ITAB-DT.
Endloop.
Thanks in advance,
nishu