ABAP 文件导出

FORM get_win_file  CHANGING pv_file TYPE string.
  DATA retfiletable TYPE filetable.
  DATA retrc TYPE sysubrc.
  DATA lv_file_filter TYPE string.
  DATA retuseraction TYPE i.

  lv_file_filter = cl_gui_frontend_services=>filetype_excel.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      multiselection    = abap_false
      file_filter       = lv_file_filter
      default_extension = lv_file_filter
      initial_directory = 'D:\'
    CHANGING
      file_table        = retfiletable
      rc                = retrc
      user_action       = retuseraction.
  READ TABLE retfiletable INTO pv_file INDEX 1.
  REFRESH retfiletable.

ENDFORM.                    " GET_WIN_FILE