ABAP 读取EXCEL文件到内表

1、选择excel文件：

PARAMETERS: P_FILE  LIKE RLGRAP-FILENAME OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
   EXPORTING
     PROGRAM_NAME        = SYST-REPID
     DYNPRO_NUMBER       = SYST-DYNNR
*     FIELD_NAME          = ' '
     STATIC              = 'X'
     MASK                = ',*.XLS,*.XLS'
    CHANGING
      FILE_NAME           = P_FILE
   EXCEPTIONS
     MASK_TOO_LONG       = 1
     OTHERS              = 2
            .

2、导入到与excel文件字段一致的内表：

TYPE-POOLS TRUXS.
DATA  GT_RAW TYPE TRUXS_T_TEXT_DATA.
TYPES: BEGIN OF GTY_EXCEL,
    COL1    TYPE  STRING,
    COL2    TYPE  STRING,
END OF GTY_EXCEL.
DATA: GT_EXCEL TYPE TABLE OF GTY_EXCEL,
      GS_EXCEL TYPE GTY_EXCEL.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*   I_FIELD_SEPERATOR          =
     I_LINE_HEADER              = 'X'
     I_TAB_RAW_DATA             = GT_RAW
     I_FILENAME                 = P_FILE
    TABLES
     I_TAB_CONVERTED_DATA       = GT_EXCEL
 　 EXCEPTIONS
     CONVERSION_FAILED          = 1
     OTHERS                     = 2
            .

 3、类似函数

TEXT_CONVERT_CSV_TO_SAP
TEXT_CONVERT_TEX_TO_SAP
TEXT_CONVERT_TXT_TO_SAP
TEXT_CONVERT_XLS_TO_SAP
TEXT_CONVERT_XML_TO_SAP

 

SAP_CONVERT_TO_CSV_FORMAT
SAP_CONVERT_TO_TEX_FORMAT
SAP_CONVERT_TO_TXT_FORMAT
SAP_CONVERT_TO_XLS_FORMAT
SAP_CONVERT_TO_XML_FORMAT

转载于:https://www.cnblogs.com/xher/p/5715614.html