得到本地系统中需要打开的excel文件,程序摘录如下:[@more@]
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY. (screen 上给一个parameters)
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
DATA: WA_FILETABLE TYPE FILE_TABLE,
IT_FILETABLE TYPE FILETABLE,
V_RC TYPE SY-SUBRC. " (定义好call method需要的参数)
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG EXPORTING
WINDOW_TITLE = 'Select The Uploading Excel File' "(弹出window 窗口上的显示提示)
DEFAULT_EXTENSION = 'XLS' "(默认打开文件的扩展名)
CHANGING
FILE_TABLE = IT_FILETABLE " (用于装打开的文件绝对路径及文件名)
RC = V_RC . " (系统返回值,如为0,操作成功,不为0,不成功)
IF SY-SUBRC <> 0.
MESSAGE 'Error in Getting the Excel File Name!' TYPE 'E'.
EXIT.
ELSE.
READ TABLE IT_FILETABLE INTO WA_FILETABLE INDEX 1.
DATA: WA_FILETABLE TYPE FILE_TABLE,
IT_FILETABLE TYPE FILETABLE,
V_RC TYPE SY-SUBRC. " (定义好call method需要的参数)
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG EXPORTING
WINDOW_TITLE = 'Select The Uploading Excel File' "(弹出window 窗口上的显示提示)
DEFAULT_EXTENSION = 'XLS' "(默认打开文件的扩展名)
CHANGING
FILE_TABLE = IT_FILETABLE " (用于装打开的文件绝对路径及文件名)
RC = V_RC . " (系统返回值,如为0,操作成功,不为0,不成功)
IF SY-SUBRC <> 0.
MESSAGE 'Error in Getting the Excel File Name!' TYPE 'E'.
EXIT.
ELSE.
READ TABLE IT_FILETABLE INTO WA_FILETABLE INDEX 1.
* (使用read table 读取it_filetable内表中的第一条记录到wa_filetable 工作区,注意read table 的用法)
P_FILE = WA_FILETABLE-FILENAME.
P_FILE = WA_FILETABLE-FILENAME.
ENDIF.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10339634/viewspace-922761/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
一段读取数据表的例子
下一篇：
BDC技术
请登录后发表评论
登录
全部评论
