Hi,
Use the following Code for Upload.
PARAMETERS : P_INFILE LIKE RLGRAP-FILENAME OBLIGATORY.
DATA: FNAME TYPE STRING.
DATA: GINT_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF GINT_RECORD OCCURS 0,
* data element: MATNR
MATNR(018),
* data element: WERKS_D
WERKS(004),
* data element: PLANTEXT
KTEXT(040),
END OF GINT_RECORD.
FIELD-SYMBOLS : <L_FS> .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_INFILE.
PERFORM OPEN_FILE.
START-OF-SELECTION.
DATA : LV_FNAME LIKE RLGRAP-FILENAME.
LV_FNAME = FNAME.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = LV_FNAME
I_BEGIN_COL = 1
I_BEGIN_ROW = 1
I_END_COL = 100
I_END_ROW = 65536
TABLES
INTERN = GINT_EXCELFILE
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
BREAK-POINT.
REFRESH GINT_RECORD.
CLEAR GINT_RECORD.
DATA : WRK_ROW TYPE I.
CLEAR: WRK_ROW.
DATA : WRK_TABIX LIKE SY-TABIX.
WRK_ROW = 1.
READ TABLE GINT_EXCELFILE WITH KEY ROW = WRK_ROW.
IF SY-SUBRC = 0.
WRK_TABIX = SY-TABIX.
LOOP AT GINT_EXCELFILE FROM WRK_TABIX.
ASSIGN COMPONENT GINT_EXCELFILE-COL
OF STRUCTURE GINT_RECORD TO <L_FS>.
MOVE GINT_EXCELFILE-VALUE TO <L_FS> .
AT END OF ROW .
APPEND GINT_RECORD.
CLEAR GINT_RECORD.
ENDAT.
ENDLOOP .
ENDIF.
break-point.
*&---------------------------------------------------------------------*
*& Form OPEN_FILE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM OPEN_FILE .
* FUNCTION TO SELECT THE FILE FOR UPLOAD
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = SPACE
DEF_PATH = P_INFILE
MASK = ',*.* ,*.*.'
MODE = 'O'
TITLE = TEXT-002
IMPORTING
FILENAME = FNAME
EXCEPTIONS
INV_WINSYS = 04
NO_BATCH = 08
SELECTION_CANCEL = 12
SELECTION_ERROR = 16.
P_INFILE = FNAME.
ENDFORM. " OPEN_FILE
Creat Excel with three fields(MATNR,WERKS,MAKTX) to upload.
Thanks,
Maruthamuthu Subramani