代替Excel上载的方法

不要使用Excel文件做上传！

*----------------------------------------------------------------------*

*  剪贴板数据到内表，根据制表符分割

*  如果有数据类型错误，比如内表是数值型但是剪贴板里面是字母，

*  则弹出W消息，并忽略这条数据

*----------------------------------------------------------------------*

FORM cliptoitab TABLES itab.

  DATA: htab TYPE cVALUE cl_abap_char_utilities=>horizontal_tab .

  DATA: lt_clip TYPETABLE OF char2048 WITH HEADER LINE ,

        lt_fld  TYPE TABLE OF char2048 WITH HEADER LINE.

  DATA: cxroot TYPE REFTO cx_root,

        excmsgTYPE        string.

  FIELD-SYMBOLS:<fs_fld> ,

                <fs_tab> .

 

  ASSIGN itab TO<fs_tab> .

 

  CALL METHODcl_gui_frontend_services=>clipboard_import

    IMPORTING

      data                 = lt_clip[]

    EXCEPTIONS

      cntl_error           = 1

      error_no_gui         = 2

     not_supported_by_gui = 3

      OTHERS               = 4.

  IF sy-subrc <>0.

    MESSAGE ID sy-msgidTYPE sy-msgty NUMBER sy-msgno

      WITH sy-msgv1sy-msgv2 sy-msgv3 sy-msgv4  .

  ELSE.

    CALL METHODcl_gui_cfw=>flush .

    LOOP AT lt_clip.

      CLEAR lt_fld[].

      SPLIT lt_clip AThtab INTO TABLE lt_fld.

      LOOP AT lt_fld.

        ASSIGNCOMPONENT sy-tabix OF STRUCTURE <fs_tab> TO <fs_fld>.

        CHECK sy-subrc= 0.

        TRY .

            lt_fld =translate( val = lt_fld from = |\r| to = '' ).

            lt_fld =translate( val = lt_fld from = |\n| to = '' ).

            lt_fld =translate( val = lt_fld from = |"| to = '' ).

           <fs_fld> = lt_fld.

          CATCH  cx_root INTO cxroot.

            excmsg =cxroot->get_text( ).

        ENDTRY.

      ENDLOOP.

      APPEND itab .

      CLEAR itab.

    ENDLOOP.

    IF excmsg IS NOTINITIAL.

      MESSAGE w000(oo)WITH '数据转换有错误发生，已经忽略'.

    ENDIF.

  ENDIF.

ENDFORM.

 

 

使用：

先在Excel，或者WORD表格，或者文本文件复制数据。总之只要保证数据是Tab分隔符就可以了。

然后在在程序执行PERFORM cliptoitab.就可以了。