SAP ABAP EXCEL 下载模板

定义屏幕

这是在屏幕的执行按钮后的位置添加一个功能按钮

SELECTION-SCREEN FUNCTION KEY 1. 

初始化设置

给sscrfields-functxt_01赋值就是给上述添加的功能按钮设置按钮文本

TABLES: sscrfields.

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

点击按钮后触发下载功能

当用户点击屏幕功能按钮 sscrfields-ucomm EQ ‘FC01’ 时弹出文件保存框，提示用户选择保存路径

后执行下载功能

AT SELECTION-SCREEN.
  DATA: gv_name        TYPE string,
        gv_file        TYPE string,
        gv_user_action TYPE i.
  IF sscrfields-ucomm EQ 'FC01'.
   `    gv_name = '下载模板'.
    CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
      EXPORTING
        default_file_name = gv_name
      IMPORTING
        fullpath          = gv_file
        user_action       = gv_user_action.

    IF gv_user_action EQ 0.
     `      PERFORM frm_download_excel USING 'ZTEMPLATE' gv_file.
      MESSAGE '模板下载成功!' TYPE 'S'.
    ENDIF.
  ENDIF.

下载EXCEL文件功能

FORM frm_download_excel USING excel_name excel_name1.
  DATA:
    ls_objdata     LIKE wwwdatatab,
    ls_mime        LIKE w3mime,
    ls_destination LIKE rlgrap-filename,
    lv_objnam      TYPE string,
    lv_subrc       LIKE sy-subrc,
    lv_errtxt      TYPE string,
    lv_objid       TYPE wwwdatatab-objid,
    lv_dest        LIKE sapb-sappfad,
    lv_fullpath    LIKE rlgrap-filename.

  MOVE excel_name TO lv_objid.
  CONCATENATE lv_objid '.XLSX' INTO lv_objnam.
  CONDENSE lv_objnam NO-GAPS.
  
  SELECT SINGLE
    relid,
    objid
  FROM
    wwwdata
  WHERE srtf2 EQ 0
    AND relid EQ 'MI'
    AND objid EQ @lv_objid
  INTO CORRESPONDING FIELDS OF @ls_objdata.
  
  IF sy-subrc NE 0 OR ls_objdata-objid EQ space.
    CONCATENATE '模板文件：' lv_objnam '不存在，请用TCODE:SMW0进行加载' INTO lv_errtxt.
    MESSAGE lv_errtxt TYPE 'E'.
    RETURN.
  ENDIF.

  CONCATENATE excel_name1 '.xlsx' INTO lv_fullpath.
  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key         = ls_objdata
      destination = lv_fullpath
    IMPORTING
      rc          = lv_subrc.

  IF lv_subrc NE 0.
    CONCATENATE '模板文件：' lv_objnam '下载失败' INTO lv_errtxt.
    MESSAGE lv_errtxt TYPE 'E'.
  ELSE.
    MESSAGE '模板下载成功' TYPE 'S'.
  ENDIF.
ENDFORM.

---