ABAP分享三 批量上传数据到内表简单示例

Posted 2023-01-01 abapweb

tYPE-POOLS: truxs.

DATA: BEGIN OF build,

  name(10) TYPE c,
  age(3)   TYPE c,
  sex(2)   TYPE c,
  spa      TYPE p DECIMALS 2,

  END OF build.

DATA tabbuild LIKE TABLE OF build WITH HEADER LINE.
DATA tabs LIKE  tabbuild.
DATA: il_raw TYPE truxs_t_text_data.  "可用可不用

SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.

  PARAMETERS: p_carr LIKE RLGRAP-FILENAME OBLIGATORY .  "DEFAULT  ‘D:\\数据模板\\替换BOM组件.XLS‘

SELECTION-SCREEN END OF BLOCK bk1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_carr .   "请务必把此代码写进来

CALL FUNCTION ‘WS_FILENAME_GET‘     "获取excel文件
    EXPORTING
*     DEF_FILENAME     = ‘ ‘
      def_path         = ‘C:\\‘
          "Structure of MASK: ,<text>,<FILTERGROUP>.
          "Structure of FILTERGROUP: <filter>;<filter>*
      mask             = ‘,Excel File,*.xls;*.xlsx;*.txt.‘
      title            = ‘Window Title:请选择文件‘
          "弹出框的模式 S -- 用来保存文件 O -- 用来打开文件
      MODE             = ‘S‘
    IMPORTING
      filename         =  p_carr
*     RC               =
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3"如果用户取消了对话框
      SELECTION_ERROR  = 4
      OTHERS           = 5.
START-OF-SELECTION.

CALL FUNCTION ‘TEXT_CONVERT_XLS_TO_SAP‘    "将excel文件中的内容传入内表
  EXPORTING
*   I_FIELD_SEPERATOR          =
*   I_LINE_HEADER              = ‘X‘
    i_tab_raw_data             = il_raw
    i_filename                 = p_carr
  TABLES
    i_tab_converted_data       = tabbuild
  EXCEPTIONS
    CONVERSION_FAILED          = 1
    OTHERS                     = 2
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

LOOP AT tabbuild INTO tabs.    "输出内表数据 
  WRITE: / tabs-name,tabs-age,tabs-sex, tabs-spa.
ENDLOOP.