SAP ABAP选择本地文件,获取本地文件的路径

1. 普通方法
  CALL FUNCTION 'WS_FILENAME_GET' "用于选择本地文件,获取本地文件的路径
   EXPORTING
*     DEF_FILENAME           = ' '  "默认的文件名称
*     DEF_PATH               = ' '  "默认的文件地址
*     MASK                   = ',EXCEL.XLS,*.XLSX,*.XLS,TEXT.TXT,*.TXT.'
     MODE                   = 'O'      "S 保存  O 打开
     TITLE                  = '选择文件'  "窗口的显示名称
   IMPORTING                        "传出给选择屏幕上的文本框
     FILENAME               = p_fileS
*     RC                     =
   EXCEPTIONS
     INV_WINSYS             = 1
     NO_BATCH               = 2
     SELECTION_CANCEL       = 3
     SELECTION_ERROR        = 4
     OTHERS                 = 5
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
 

2.面向对象方法


  DATA: lit_file      TYPE filetable,
        l_file_filter TYPE string,
        l_rc          TYPE i.
  FIELD-SYMBOLS: <fs_file> LIKE LINE OF lit_file.

  l_file_filter = 'Excel Template (*.xlt)|*.xlt|Excel Workbook (*.xls)|*.xls|All files (*.*)|*.*'.

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Choose template file ...'
      default_extension       = '*.*'
      "file_filter             = l_file_filter
    CHANGING
      file_table              = lit_file
      rc                      = l_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.

  IF sy-subrc = 0.
    READ TABLE lit_file ASSIGNING <fs_file> INDEX 1.

    IF sy-subrc = 0.
      file = <fs_file>-filename.
    ENDIF.
  ENDIF.

 

 

  • 2
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值