SAP ABAP编程 选择文件对话框 CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

PARAMETERS: P_DOWN LIKE RLGRAP-FILENAME OBLIGATORY .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_DOWN.
  PERFORM SAVE_EXCEL USING P_DOWN.

**********保存文件路径*****************

FORM SAVE_EXCEL  USING   P_DOWN .     

   DATA : LC_FILENAME   TYPE STRING  VALUE  '新建文件' ,
        LC_FULLPATH   TYPE STRING   VALUE  'C:\Users\Administrator\Desktop\' ,  
        LC_PATH       TYPE  STRING  VALUE  'C:\Users\Administrator\Desktop\' .

   CALL  METHOD CL_GUI_FRONTEND_SERVICES =>FILE_SAVE_DIALOG
     EXPORTING
*     WINDOW_TITLE         =
      DEFAULT_EXTENSION     =  'XLS'    "默认保存文件格式
      DEFAULT_FILE_NAME     = LC_FILENAME   "默认文件名称
*     WITH_ENCODING        =
*     FILE_FILTER          =
*     INITIAL_DIRECTORY    =
*     PROMPT_ON_OVERWRITE  = 'X'
     CHANGING
      FILENAME               = LC_FILENAME    "默认文件名称
      PATH                        = LC_PATH             "文件路径
      FULLPATH              = LC_FULLPATH   "文件路径
*     USER_ACTION          =
*     FILE_ENCODING        =
     EXCEPTIONS
      CNTL_ERROR            =  1
      ERROR_NO_GUI          =  2
      NOT_SUPPORTED_BY_GUI  =  3
       OTHERS                =  4 .
   IF SY -SUBRC  =  0 .
    P_DOWN  = LC_FULLPATH .
   ELSEIF SY -SUBRC <>  0 .
     MESSAGE   '保存文件出错！'  TYPE  'E' .
   ENDIF .
ENDFORM .                     "save_excel