码迷,mamicode.com
首页 > 其他好文 > 详细

2020.02.26 【ABAP随笔】- EXCEL批导程式1

时间:2020-02-26 01:13:56      阅读:32      评论:0      收藏:0      [点我收藏+]

标签:exception   ssi   sele   too   output   cti   通过   code   cto   

今天就只是复习下excel最简单得导入程式. 其他功能请后续关注。

技术图片

 *节选部分代码
TYPES:BEGIN OF ty_zmmt001,
        matnr TYPE zmmt001-matnr,
        id    TYPE zmmt001-id,
        f1    TYPE zmmt001-f1,
        f2    TYPE zmmt001-f2,
        f3    TYPE zmmt001-f3,
      END OF ty_zmmt001.
DATA lt_zmmt001 TYPE TABLE OF ty_zmmt001.
 DATA lt_excel TYPE TABLE OF alsmex_tabline.

PARAMETERS p_file TYPE localfile MODIF ID gp2 OBLIGATORY MEMORY ID file.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file."这个就是获取文件路径得封装方法 见下方代码,可以直接使用
  CALL METHOD zcl_document_jxzhu=>set_document_from_frontend
    CHANGING
      et_file_table           = file_table
      file_path               = p_file
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_support_by_gui      = 4
      other_reasons           = 5
      OTHERS                  = 6.

START-OF-SELECTION.

  CASE X.
    WHEN p3."导入excel-ALSM_EXCEL_TO_INTERNAL_TABLE
      CHECK p_file IS NOT INITIAL.
      PERFORM frm_get_excel_1.
  ENDCASE.

FORM frm_get_excel_1 .

  DATA lt_excel TYPE TABLE OF alsmex_tabline.
*这个是SAP标准常用的函数,通过OLE来操作excel
*缺点: 速度略慢,只能接收9999行数据
  CALL FUNCTION ALSM_EXCEL_TO_INTERNAL_TABLE
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
      i_begin_row             = 2
      i_end_col               = 20
      i_end_row               = 9999
    TABLES
      intern                  = lt_excel[]
    EXCEPTIONS
      inconsistent_parameters = 1
      s_file_ole              = 2
      OTHERS                  = 3.

  CHECK sy-subrc EQ 0.

  DATA ls_zmmt001 TYPE ty_zmmt001.
  LOOP AT lt_excel INTO DATA(ls_excel).
    AT NEW row.
      APPEND INITIAL LINE TO lt_zmmt001 ASSIGNING FIELD-SYMBOL(<fs>).
    ENDAT.
    ASSIGN COMPONENT ls_excel-col OF STRUCTURE <fs> TO FIELD-SYMBOL(<fs_filed>).
    IF sy-subrc EQ 0.
      <fs_filed> = ls_excel-value.
    ENDIF.
  ENDLOOP.

  cl_demo_output=>display( lt_zmmt001 ).



ENDFORM.

METHOD set_document_from_frontend.
    DATA it_tab TYPE filetable.
    DATA returncode TYPE i.
    DATA extension TYPE string.

    CASE doc_type.
      WHEN EXCEL.
        IF iv_window_title IS INITIAL.
          iv_window_title = |SELECT EXCEL FILE, E.G. *.XLSX|.
        ENDIF.
        extension = .XLSX|.XLS.
        IF iv_file_filter IS INITIAL.
          iv_file_filter = Excel(*.xlsx)|*.xlsx|Excel(*.xlsm)|*.xlsm|Excel 97-2003(*.xls)|*.xls.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
    CALL METHOD cl_gui_frontend_services=>file_open_dialog
      EXPORTING
        window_title            = iv_window_title
        default_extension       = extension
*       default_filename        =
        file_filter             = iv_file_filter
*       with_encoding           =
*       initial_directory       =
        multiselection          = iv_multiselection
      CHANGING
        file_table              = et_file_table
        rc                      = ev_rc
*       user_action             =
*       file_encoding           =
      EXCEPTIONS
        file_open_dialog_failed = 1
        cntl_error              = 2
        error_no_gui            = 3
        not_supported_by_gui    = 4
        OTHERS                  = 5.
    IF sy-subrc <> 0.
      CASE sy-subrc.
        WHEN 1.RAISE file_open_dialog_failed.
        WHEN 2.RAISE cntl_error.
        WHEN 3.RAISE error_no_gui.
        WHEN 4.RAISE not_support_by_gui.
        WHEN OTHERS. RAISE other_reasons.
      ENDCASE.
    ENDIF.

    IF ev_rc < 1.
      RETURN.
    ENDIF.

    READ TABLE et_file_table ASSIGNING FIELD-SYMBOL(<selectedfilename>) INDEX 1.
    IF sy-subrc = 0.
      DATA(lv_len_s) = strlen( <selectedfilename>-filename ).
      DESCRIBE FIELD file_path LENGTH DATA(lv_len_d) IN CHARACTER MODE.
      IF lv_len_s > lv_len_d.
        MESSAGE i398(00) WITH The filename length is too long(003).
        RETURN.
      ENDIF.
      file_path = <selectedfilename>-filename.
    ENDIF.
  ENDMETHOD.

效果为:

将excel中输入导入后显示。

技术图片

 

 

-Tab Zhu 不念过去 不畏将来

技术图片

 

METHOD set_document_from_frontend.
    DATA it_tab TYPE filetable.
    DATA returncode TYPE i.
    DATA extension TYPE string.

    CASE doc_type.
      WHEN ‘EXCEL‘.
        IF iv_window_title IS INITIAL.
          iv_window_title |SELECT EXCEL FILEE.G*.XLSX|.
        ENDIF.
        extension ‘.XLSX|.XLS‘.
        IF iv_file_filter IS INITIAL.
          iv_file_filter ‘Excel(*.xlsx)|*.xlsx|Excel(*.xlsm)|*.xlsm|Excel 97-2003(*.xls)|*.xls‘.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
    CALL METHOD cl_gui_frontend_services=>file_open_dialog
      EXPORTING
        window_title            iv_window_title
        default_extension       extension
*       default_filename        =
        file_filter             iv_file_filter
*       with_encoding           =
*       initial_directory       =
        multiselection          iv_multiselection
      CHANGING
        file_table              et_file_table
        rc                      ev_rc
*       user_action             =
*       file_encoding           =
      EXCEPTIONS
        file_open_dialog_failed 1
        cntl_error              2
        error_no_gui            3
        not_supported_by_gui    4
        OTHERS                  5.
    IF sy-subrc <> 0.
      CASE sy-subrc.
        WHEN 1.RAISE file_open_dialog_failed.
        WHEN 2.RAISE cntl_error.
        WHEN 3.RAISE error_no_gui.
        WHEN 4.RAISE not_support_by_gui.
        WHEN OTHERSRAISE other_reasons.
      ENDCASE.
    ENDIF.

    IF ev_rc < 1.
      RETURN.
    ENDIF.

    READ TABLE et_file_table ASSIGNING FIELD-SYMBOL(<selectedfilename>INDEX 1.
    IF sy-subrc 0.
      DATA(lv_len_sstrlen<selectedfilename>-filename ).
      DESCRIBE FIELD file_path LENGTH DATA(lv_len_dIN CHARACTER MODE.
      IF lv_len_s > lv_len_d.
        MESSAGE i398(00WITH ‘The filename length is too long‘(003).
        RETURN.
      ENDIF.
      file_path <selectedfilename>-filename.
    ENDIF.
  ENDMETHOD.

2020.02.26 【ABAP随笔】- EXCEL批导程式1

标签:exception   ssi   sele   too   output   cti   通过   code   cto   

原文地址:https://www.cnblogs.com/jxzhu/p/12364852.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有 京ICP备13008772号-2
迷上了代码!