TEXT_CONVERT_XLS_TO_SAP-上传excel

*&---------------------------------------------------------------------*
*& 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.