upload excel

向右看齐 2022-09-30 07:13 128阅读 0赞

REPORT  ztest\_weng\_01.  
TABLES: ALSMEX\_TABLINE.  
DATA:BEGIN OF iexcel OCCURS 0.  
        INCLUDE STRUCTURE alsmex\_tabline.  
DATA:END OF iexcel.  
DATA: BEGIN OF DATA\_TAB OCCURS 0,  
        VALUE\_0001(50),  
        VALUE\_0002(50),  
        VALUE\_0003(50),  
        VALUE\_0004(50).       "(???????)  
DATA: END OF DATA\_TAB.  
DATA: TIND(4) TYPE N.  
DATA: ZWFELD(19).  
FIELD-SYMBOLS: <FS1>.

PARAMETERS: path LIKE RLGRAP-FILENAME MEMORY ID M01.

\*PARAMETERS: path TYPE localfile,NOHEADER AS CHECKBOX.  
CALL FUNCTION 'ALSM\_EXCEL\_TO\_INTERNAL\_TABLE'  
  EXPORTING  
    filename                = path  
    i\_begin\_col             = 1  
    i\_begin\_row             = 1  
    i\_end\_col               = 100  
    i\_end\_row               = 1000  
  TABLES  
    intern                  = iexcel  
  EXCEPTIONS  
    inconsistent\_parameters = 1  
    upload\_ole              = 2  
    OTHERS                  = 3.  
IF sy-subrc <> 0.  
  WRITE:/ 'READ FLLE ERROR',path.  
ELSE.  
 SORT IEXCEL BY ROW COL.  
   LOOP AT IEXCEL.  
\*     IF NOHEADER = 'X'  
\*     AND IEXCEL-ROW = 1.  
\*       CONTINUE.  
\*     ENDIF.  
     TIND = IEXCEL-COL.  
     CONCATENATE 'DATA\_TAB-VALUE\_' TIND INTO ZWFELD.  
     ASSIGN (ZWFELD) TO <FS1>.  
     <FS1> = IEXCEL-VALUE.  
     AT END OF ROW.  
       APPEND DATA\_TAB.  
       WRITE:/  
\*       'data\_tab ',  
       DATA\_TAB-VALUE\_0001, DATA\_TAB-VALUE\_0002,  
                            DATA\_TAB-VALUE\_0003, DATA\_TAB-VALUE\_0004.  
       CLEAR DATA\_TAB.  
     ENDAT.  
   ENDLOOP.  
ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR path.  
  PERFORM choose\_input\_file USING path.  
\*&---------------------------------------------------------------------\*  
\*&      Form  choose\_input\_file  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*      -->PA\_PATH    text  
\*----------------------------------------------------------------------\*  
FORM choose\_input\_file USING pa\_path.  
  CALL FUNCTION 'WS\_FILENAME\_GET'  
   EXPORTING  
     def\_filename            = '\*.\*'  
      def\_path                = 'D:/'  
     mask                    = ',\*.\*.'  
     mode                    = 'w'  
     title                   = 'Choose Input'  
   IMPORTING  
      filename                = pa\_path

EXCEPTIONS  
      inv\_winsys              = 1  
      no\_batch                = 2  
      selection\_cancel        = 3  
      selection\_error         = 4  
     OTHERS                  = 5.

ENDFORM.                    "choose\_input\_file