Excel文件上传

 *&---------------------------------------------------------------------*
 *&      FORM  FRM_UPDATA_EXCEL
 *&---------------------------------------------------------------------*
 *       TEXT
 *----------------------------------------------------------------------*
 *  -->  P1        TEXT
 *  <--  P2        TEXT
 *----------------------------------------------------------------------*
 FORM FRM_UPDATA_EXCEL .
   IF P_FILE IS INITIAL.
     MESSAGE '请输入导入文件的路径' TYPE 'I'.
     LEAVE TO TRANSACTION SY-TCODE.
   ENDIF.

   DATA: BEGIN OF I_EXCEL OCCURS .
           INCLUDE STRUCTURE ALSMEX_TABLINE.
   DATA: END OF I_EXCEL.

   DATA: L_ANSWER() TYPE C,
         L_COLUMN TYPE I.

   FIELD-SYMBOLS: <FS>.
   DATA: L_PATHNAME LIKE RLGRAP-FILENAME.
   DATA:
     C_BEGIN_ROW TYPE I VALUE ,       "Beginning row of excel file
     C_BEGIN_COL TYPE I VALUE ,       "Beginning column of excel file
     C_END_ROW   TYPE I VALUE ,   "Ending row of excel file
     C_END_COL   TYPE I VALUE .      "Ending column of excel file

   MOVE P_FILE TO L_PATHNAME.

   CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     EXPORTING
       FILENAME                = L_PATHNAME
       I_BEGIN_COL             = C_BEGIN_COL
       I_BEGIN_ROW             = C_BEGIN_ROW
       I_END_COL               = C_END_COL
       I_END_ROW               = C_END_ROW
     TABLES
       INTERN                  = I_EXCEL
     EXCEPTIONS
       INCONSISTENT_PARAMETERS =
       UPLOAD_OLE              =
       OTHERS                  = .
   IF SY-SUBRC <> .
     MESSAGE '打开EXCEL文件出错!' TYPE 'E'.
   ELSE.
     IF I_EXCEL[] IS INITIAL.
       CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
         EXPORTING
           DIAGNOSETEXT1 = '数据为空！'
           TEXTLINE1     = '请检查文件是否正确'
           TITEL         = '警告'
         IMPORTING
           ANSWER        = L_ANSWER.
       LEAVE TO TRANSACTION SY-TCODE.
     ELSE.

       DELETE I_EXCEL WHERE ROW = ''.
       SORT I_EXCEL BY ROW COL.
       LOOP AT I_EXCEL.
         MOVE I_EXCEL-COL TO L_COLUMN.
         ASSIGN COMPONENT L_COLUMN OF STRUCTURE IW_ANLA TO <FS>.
         MOVE I_EXCEL-VALUE TO <FS>.
         AT END OF ROW.
           APPEND IW_ANLA TO IT_ANLA.
           CLEAR IW_ANLA.
         ENDAT.
       ENDLOOP.
     ENDIF.
   ENDIF.

 ENDFORM.                    "FRM_UPDATA_EXCEL