EXCLE模板下载

最新推荐文章于 2024-02-29 14:36:53 发布

西柚e

最新推荐文章于 2024-02-29 14:36:53 发布

阅读量253

点赞数

分类专栏： ABAP 文章标签：模板下载

本文链接：https://blog.csdn.net/ABAP_NY/article/details/102840864

版权

ABAP 专栏收录该内容

53 篇文章 5 订阅

订阅专栏

PARAMETERS  p_path LIKE rlgrap-filename.
SELECTION-SCREEN : FUNCTION KEY 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\桌面'
*     MASK             = '.EXCEL 文件 (*.XLS).'
      mode             = 'O'
      title            = '请选择文本文件...'
    IMPORTING
      filename         = p_path
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

INITIALIZATION.
  sscrfields-functxt_01 = '模板下载'.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_down_file ."下载模板
    WHEN OTHERS.
  ENDCASE.

DATA: lv_file          TYPE string,
        lv_path          TYPE string,
        lv_fullpath      TYPE string,
        lv_user_action   TYPE i,
        lv_file_encoding TYPE abap_encod,
        ls_objdata       LIKE wwwdatatab,
        lv_objid         TYPE wwwdatatab-objid,
        lv_errtxt        TYPE string,
        lv_rc            LIKE sy-subrc,
        lv_path1         TYPE rlgrap-filename.

  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title      = '下载模板'
      file_filter       = cl_gui_frontend_services=>filetype_excel
      default_file_name = 'text.xlsx'
      initial_directory = 'C:\'
    CHANGING
      filename          = lv_file
      path              = lv_path
      fullpath          = lv_fullpath
      user_action       = lv_user_action
      file_encoding     = lv_file_encoding
    EXCEPTIONS
      cntl_error        = 1
      error_no_gui      = 2
      OTHERS            = 3.
  IF sy-subrc <> 0 OR lv_file = ''.
    MESSAGE s000(zmm01) WITH '操作已取消'.
    RETURN.
  ENDIF.

  lv_path1 = lv_fullpath.
  lv_objid = ''. "模板名称
  SELECT SINGLE relid objid FROM wwwdata INTO CORRESPONDING FIELDS OF ls_objdata
  WHERE srtf2 = 0 AND relid = 'MI' AND objid = lv_objid.
  IF sy-subrc NE 0 OR ls_objdata-objid EQ space.
    CONCATENATE '模板文件' lv_objid '不存在' INTO lv_errtxt.
    MESSAGE lv_errtxt TYPE 'E'.
  ENDIF.

  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key         = ls_objdata
      destination = lv_path1
    IMPORTING
      rc          = lv_rc.

  IF lv_rc NE 0.
    CONCATENATE '模板文件：' ls_objdata-objid '下载失败' INTO lv_errtxt.
    MESSAGE lv_errtxt TYPE 'E'.
  ELSE.
    MESSAGE '模板下载成功' TYPE 'S'.
  ENDIF.