Excel to Internal table

TYPES: BEGIN OF itab,
pernr type pernr,
bukrs type bukrs,
END OF itab.

DATA t_upload TYPE STANDARD TABLE OF itab WITH header line.

DATA wa_upload TYPE itab.

DATA: it_excel TYPE STANDARD TABLE OF alsmex_tabline WITH header line.


CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = 'C:\Documents and Settings\G.Pujari\Desktop\giridhar1.xls'
I_BEGIN_COL = 1
I_BEGIN_ROW = 1
I_END_COL = 2
I_END_ROW = 60000
TABLES
INTERN = it_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.
ENDIF.

if not it_excel[] is initial.
loop at it_excel.
case it_excel-col.
when '0001'.
t_upload-pernr = it_excel-VALUE.
when '0002'.
t_upload-bukrs = it_excel-value.
append t_upload.
endcase.
endloop.
endif.