ABAP 開啟檔案

方法: FILE_OPEN_DIALOG

*資料的定義

DATA: TAB         TYPE FILETABLE,         "存放檔案名稱的內表

      WA          TYPE LINE OF FILETABLE, "用來讀取檔案名稱的結構

FILE_FILTER TYPE STRING, "file filter

      RC          TYPE I.                 "函數傳回值

*定義file filter,注意定義的格式,顯示的時候最後一個為預設的顯示

*與你定義的DEFAULT_EXTENSION無關

FILE_FILTER = 'All Files (*.*)|*.*|Excel Files (*.xls)|*.xls|Word files(*.doc)|*.doc'.

*這就是開啟檔案的函數,或者說方法也行

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

  EXPORTING

*   對話方塊的標題 

    WINDOW_TITLE            = 'WINDOW_TITLE'

*   預設的檔案尾碼名   

    DEFAULT_EXTENSION       = '*.DOC'

*   預設開啟的檔案名稱   

    DEFAULT_FILENAME        = 'C:\TEST'

*   檔案開啟的filter   

    FILE_FILTER             = FILE_FILTER

*   初始化的目錄   

    INITIAL_DIRECTORY       = 'C:\'

*   是否可以同時開啟多個檔案

    MULTISELECTION          = 'X'

  CHANGING

*   你所開啟的檔案名稱字列表 

    FILE_TABLE              = TAB

*   傳回值,如果成功開啟了,為1   

    RC                      = 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 TAB INDEX 1 INTO WA.

  WRITE: WA.

ENDIF.

FILE_SAVE_DIALOG和FILE_OPEN_DIALOG差不多,
T-CODE:SE24 查看這個類CL_GUI_FRONTEND_SERVICES