ABAP EXCEL文件读取函数 TEXT_CONVERT_XLS_TO_SAP的使用

*&---------------------------------------------------------------------*

*& REPORT ZPP_BOM_BATCH_QUERY

*&

*& REPORTNAME :BOM批量反查

*&---------------------------------------------------------------------*

*& CREATED BY : LXY

*& CREATED DATE : 2016-03-01

*&---------------------------------------------------------------------*

REPORT ZPP_BOM_BATCH_QUERY.

TYPE-POOLS: SLIS.

TYPE-POOLS:ICON.

TABLES:T001W,BSEG.

TYPE-POOLS : TPIT.

DATA LS_BSEG TYPE BSEG." WITH HEADER LINE.

DATA IT_BUZTAB TYPE TPIT_T_BUZTAB WITH HEADER LINE.

DATA ERRTAB TYPE TPIT_T_ERRDOC WITH HEADER LINE.

DATA IT_FLDTAB TYPE TPIT_T_FNAME WITH HEADER LINE.

DATA IT_TAB TYPE TRUXS_T_TEXT_DATA.

DATA: BEGIN OF ITAB OCCURS 0,

WERKS LIKE T001W-WERKS, "工厂

IDNRK LIKE STPO-IDNRK, "组件编号

MAKTX LIKE MAKT-MAKTX, "组件描述

END OF ITAB.

DATA: BEGIN OF LT_ITAB OCCURS 0,

WERKS LIKE T001W-WERKS, "工厂

IDNRK LIKE STPO-IDNRK, "组件编号

MAKTX LIKE MAKT-MAKTX, "组件描述

MATNR LIKE MARA-MATNR, "父项编号

MAKTX1 LIKE MAKT-MAKTX, "父项描述

TDLNR(200), "替代料编号

END OF LT_ITAB.

DATA: BEGIN OF LT_RETURN OCCURS 0,

WERKS LIKE T001W-WERKS, "工厂

IDNRK LIKE STPO-IDNRK, "组件编号

MAKTX LIKE MAKT-MAKTX, "组件描述

MESSAGE(100),

END OF LT_RETURN.

**ALV

DATA:GT_EVENT_EXIT TYPE SLIS_T_EVENT_EXIT.

DATA:GS_EVENT_EXIT TYPE SLIS_EVENT_EXIT.

DATA:GT_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE.

DATA:GC_GLAY TYPE LVC_S_GLAY.

DATA:GS_LAYOUT TYPE LVC_S_LAYO, "SLIS_LAYOUT_ALV,

WK_REPID LIKE SY-REPID.

DATA:GS_GRID TYPE LVC_S_GLAY.

DATA:TEM_GRID TYPE REF TO CL_GUI_ALV_GRID.

DATA:GT_EVENTS TYPE SLIS_T_EVENT.

DATA:GS_EVENTS LIKE LINE OF GT_EVENTS.

*DATA: RESULT LIKE ITAB OCCURS 0 WITH HEADER LINE.

DATA: RESULT LIKE BSEG OCCURS 0 WITH HEADER LINE.

DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

DATA:VARIANT LIKE DISVARIANT.

DATA LT_BSEG LIKE TABLE OF BSEG WITH HEADER LINE.

DATA:ITSTPO TYPE TABLE OF STPO WITH HEADER LINE,

TTSTPO TYPE TABLE OF STPO WITH HEADER LINE,

ITSTKO TYPE TABLE OF STKO WITH HEADER LINE,

ITMAST TYPE TABLE OF MAST WITH HEADER LINE.

PARAMETER P_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. "类似上传附件时的那个浏览按钮

******************初始屏幕结束**********************************************************************

******************批量导入的BAPI**********************************************************************

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

DEF_FILENAME = SPACE

DEF_PATH = P_FILE

MASK = TEXT-001

MODE = 'O'

IMPORTING

FILENAME = P_FILE

EXCEPTIONS

SELECTION_CANCEL = 0.

START-OF-SELECTION.

CLEAR:ITAB,RESULT.

CLEAR:ITAB[],RESULT[].

*excel 数据导入

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

EXPORTING

I_TAB_RAW_DATA = IT_TAB

I_FILENAME = P_FILE

TABLES

I_TAB_CONVERTED_DATA = ITAB

EXCEPTIONS

CONVERSION_FAILED = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ELSE.

DELETE ITAB INDEX 1.

ENDIF.