*&---------------------------------------------------------------------*
*& Report Z004
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z004.
TYPES:BEGIN OF ELE,
K1 TYPE CHAR10,
K2 TYPE CHAR10,
END OF ELE.
PARAMETERS P_FILES TYPE RLGRAP-FILENAME .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILES.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
* DEF_PATH = ' '
* MASK = ' '
MODE = 'O'
TITLE = '上传Excel表格'
IMPORTING
FILENAME = P_FILES
* RC =
* EXCEPTIONS
* INV_WINSYS = 1
* NO_BATCH = 2
* SELECTION_CANCEL = 3
* SELECTION_ERROR = 4
* OTHERS = 5
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
START-OF-SELECTION.
DATA LT_RAW TYPE TRUXS_T_TEXT_DATA.
DATA LT_TABLE TYPE TABLE OF ELE.
IF P_FILES IS NOT INITIAL.
DATA FILENAME TYPE STRING.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR = 'X'
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = LT_RAW
I_FILENAME = P_FILES
TABLES
I_TAB_CONVERTED_DATA = LT_TABLE
* EXCEPTIONS
* CONVERSION_FAILED = 1
* OTHERS = 2
.
IF SY-SUBRC = 0.
DATA LEN TYPE I.
DESCRIBE TABLE LT_TABLE LINES LEN.
WRITE : / '共计:',LEN.
ENDIF.
ELSE.
MESSAGE '请选择上传文件' TYPE 'I'.
ENDIF.
标签：FILES,CONVERT,TEXT,excel,FILENAME,LT,TABLE,TYPE,DATA From： https://www.cnblogs.com/hua900822/p/17321735.html