Skip to Content
0
Former Member
Jun 26, 2009 at 04:38 AM

Excel to internal table

49 Views

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