hi frnd,
Below code will work...
DATA: BEGIN OF ITAB OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
* BUKRS LIKE KNA1-BUKRS,
ANRED LIKE KNA1-anred,
NAME1 LIKE KNA1-NAME1,
ORT01 LIKE KNA1-ORT01,
END OF ITAB.
DATA : I_EXCEL TYPE STANDARD TABLE OF ALSMEX_TABLINE WITH HEADER LINE ,
W_EXCEL TYPE ALSMEX_TABLINE .
SELECTION-SCREEN BEGIN OF BLOCK B1.
PARAMETERS : FILENAME TYPE RLGRAP-FILENAME,
P_BEG TYPE I ,
P_END TYPE I .
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME .
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
* FIELD_NAME = ' '
IMPORTING
FILE_NAME = FILENAME.
START-OF-SELECTION .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = FILENAME
I_BEGIN_COL = 0001 "STARTING COLUMN OF EXCEL.
I_BEGIN_ROW = P_BEG
I_END_COL = 0004 "ENDING COLUMN OF EXCEL
I_END_ROW = P_END
TABLES
INTERN = I_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 .
LOOP AT I_EXCEL .
CASE I_EXCEL-COL .
WHEN '0001'.
ITAB-kunnr = I_EXCEL-VALUE .
WHEN '0002' .
ITAB-anred = I_EXCEL-VALUE .
WHEN '0003' .
ITAB-name1 = I_EXCEL-VALUE .
when '0004'.
ITAB-ort01 = i_excel-value.
ENDCASE .
AT END OF ROW .
APPEND ITAB . " internal table
CLEAR ITAB .
ENDAT .
ENDLOOP .