*&---------------------------------------------------------------------*
*& Report ZTEST3201
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztest3201.
DATA: gv_application TYPE ole2_object, "一些定义在TOP里的data
gv_sheet TYPE ole2_object,
gv_cell TYPE ole2_object,
gv_workbook TYPE ole2_object,
gv_columns TYPE ole2_object,
gv_rows TYPE ole2_object,
gv_file TYPE rlgrap-filename.
DATA: gt_sflight TYPE TABLE OF sflight,
gs_sflight TYPE sflight.
PARAMETERS: path TYPE filedir OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR path.
PERFORM frm_get_filepath CHANGING path.
START-OF-SELECTION.
SELECT * FROM sflight
INTO CORRESPONDING FIELDS OF TABLE gt_sflight
UP TO 50 ROWS.
PERFORM frm_download_excel_local.
*&---------------------------------------------------------------------*
*& Form frm_get_filepath
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_PATH text
*----------------------------------------------------------------------*
FORM frm_get_filepath CHANGING p_path.
DATA: lv_title TYPE string.
DATA: lv_inifld TYPE string.
DATA: lv_path TYPE string.
lv_title = 'EXCEL DOWNLOAD'. "dialog screen的标题,可选参数
lv_inifld = 'C:\'. "打开dialog screen的默认文件夹位置
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
window_title = lv_title
initial_folder = lv_inifld
CHANGING
selected_folder = lv_path
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc <> 0.
CLEAR: p_path.
ELSE.
p_path = lv_path.
ENDIF.
ENDFORM. "frm_get_filepath
*&---------------------------------------------------------------------*
*& Form frm_down
ABAP: Excel - Download by OLE - 4. 一个完整的Excel download程序
最新推荐文章于 2023-07-17 10:25:12 发布
![](https://img-home.csdnimg.cn/images/20240611030827.png)