Hi,
Problem in transferring file from excel to internal table.
TYPE-POOLS : TRUXS.
TYPES : BEGIN OF ST_QP01,
MATNR TYPE RC27M-MATNR,
WERKS TYPE RC27M-WERKS,
STTAG TYPE RC271-STTAG,
PLNAL TYPE PLKOD-PLNAL,
VERWE TYPE PLKOD-VERWE,
STATU TYPE PLKOD-STATU,
STEUS TYPE PLPOD-STEUS, ""QM01
LTXA1 TYPE PLPOD-LTXA1, ""Density
VERWMERKM TYPE PLMKB-VERWMERKM, """60000091
KURZTEXT TYPE PLMKB-KURZTEXT, """Apparent density (compressed)
STICHPRVER TYPE PLMKB-STICHPRVER, """M1000
TOLERANZUN TYPE QFLTP-TOLERANZUN, """"0.
TOLERANZOB TYPE QFLTP-TOLERANZOB,
END OF ST_QP01.
TYPES : BEGIN OF ST_QP01H,
MATNR TYPE RC27M-MATNR,
WERKS TYPE RC27M-WERKS,
STTAG TYPE RC271-STTAG,
PLNAL TYPE PLKOD-PLNAL,
VERWE TYPE PLKOD-VERWE,
STATU TYPE PLKOD-STATU,
STEUS TYPE PLPOD-STEUS,
LTXA1 TYPE PLPOD-LTXA1,
END OF ST_QP01H.
TYPES : BEGIN OF ST_QP01D2,
MATNR TYPE RC27M-MATNR,
VERWMERKM TYPE PLMKB-VERWMERKM,
KURZTEXT TYPE PLMKB-KURZTEXT,
STICHPRVER TYPE PLMKB-STICHPRVER,
TOLERANZUN TYPE QFLTP-TOLERANZUN,
TOLERANZOB TYPE QFLTP-TOLERANZOB,
END OF ST_QP01D2.
DATA : IT_QP01 TYPE TABLE OF ST_QP01,
WA_QP01 TYPE ST_QP01,
IT_QP01H TYPE TABLE OF ST_QP01H,
WA_QP01H TYPE ST_QP01H,
IT_QP01D2 TYPE TABLE OF ST_QP01D2,
WA_QP01D2 TYPE ST_QP01D2.
DATA : IT_RAW TYPE TRUXS_T_TEXT_DATA,
MSG_TXT(255) TYPE C.
PARAMETERS : FNAME TYPE RLGRAP-FILENAME."""",
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.
PERFORM GET_FILE.
START-OF-SELECTION.
PERFORM BUILD_IT.
FORM GET_FILE .
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
* FIELD_NAME =
* STATIC = ' '
* MASK = ' '
CHANGING
FILE_NAME = FNAME.
ENDFORM. " GET_FILE
FORM BUILD_IT .
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = IT_RAW
I_FILENAME = FNAME
TABLES
I_TAB_CONVERTED_DATA = IT_QP01
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Edited by: Bathrinath Sankaranarayanan on Jun 26, 2009 12:38 PM