SAP 到出XLS

hongleimi

report z_test7.
data:gv_fname like rlgrap-filename," filename
gv_filename type string.

data:begin of gt_sflight_down_header occurs 0,
carrid(20),
fldate(20),
cityfrom(20),
cityto(20),
fltime(20),
price(20),
currency(20),
end of gt_sflight_down_header.
*define the download internal table

data:begin of gt_sflight_down occurs 0, "存放表体数据

carrid like sflight-carrid,
fldate like sflight-fldate,
cityfrom like spfli-cityfrom,
cityto like spfli-cityto,
fltime like spfli-fltime,
price like sflight-price,
currency like sflight-currency,
end of gt_sflight_down.

perform download.
"下面是要call的function:
*&---------------------------------------------------------------------*
*&      Form  download
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form download .
clear gt_sflight_down_header[]. "必须要清空，否则会出现数据重复下载的情况

clear gt_sflight_down[].
*set the data header

gt_sflight_down_header-carrid = 'companyid'.
gt_sflight_down_header-fldate = 'flightdate'.
gt_sflight_down_header-cityfrom = 'origin'.
gt_sflight_down_header-cityto = 'destination'.
gt_sflight_down_header-fltime = 'flighttime'.
gt_sflight_down_header-price = 'cost'.
gt_sflight_down_header-currency = 'currency'.
append gt_sflight_down_header.
*set the main download data
*      loop at gt_sflight.
*
*        gt_sflight_down-carrid = gt_sflight-carrid.
*
*        gt_sflight_down-fldate = gt_sflight-fldate.
*
*        gt_sflight_down-cityfrom = gt_sflight-cityfrom.
*
*        gt_sflight_down-cityto = gt_sflight-cityto.
*
*        gt_sflight_down-fltime = gt_sflight-fltime.
*
*        gt_sflight_down-price = gt_sflight-price.
*
*        gt_sflight_down-currency = gt_sflight-currency.
*
*        append gt_sflight_down.
*
*      endloop.


gt_sflight_down-carrid = 1.
gt_sflight_down-fldate = 2.
gt_sflight_down-cityfrom = 3.
gt_sflight_down-cityto = 3.
gt_sflight_down-fltime = 3.
gt_sflight_down-price = 3.
gt_sflight_down-currency = 3.
append gt_sflight_down.


call function 'WS_FILENAME_GET'
exporting
mask             = ',*.xls,*.xlsx.'
mode             = 'S'
title            = 'choose the location'
importing
filename         = gv_fname
exceptions
inv_winsys       = 1
no_batch         = 2
selection_cancel = 3
selection_error  = 4
others           = 5.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.



concatenate gv_fname '.xls' into gv_filename. "给返回的文件路径加上后缀名

call function 'GUI_DOWNLOAD' "第一次调用,先下载表头数据
    exporting
filename                = gv_filename
filetype                = 'ASC'
write_field_separator   = 'X'
tables
data_tab                = gt_sflight_down_header[]
exceptions
file_write_error        = 1
no_batch                = 2
gui_refuse_filetransfer = 3
invalid_type            = 4
no_authority            = 5
unknown_error           = 6
header_not_allowed      = 7
separator_not_allowed   = 8
filesize_not_allowed    = 9
header_too_long         = 10
dp_error_create         = 11
dp_error_send           = 12
dp_error_write          = 13
unknown_dp_error        = 14
access_denied           = 15
dp_out_of_memory        = 16
disk_full               = 17
dp_timeout              = 18
file_not_found          = 19
dataprovider_exception  = 20
control_flush_error     = 21
others                  = 22.
*download the main data

call function 'GUI_DOWNLOAD' "第二次调用,下载表体数据
    exporting
filename                = gv_filename
filetype                =  'ASC'
write_field_separator   = 'X'
append                  =  'X' "指定下载模式为附加
    tables
data_tab                = gt_sflight_down[]
exceptions
file_write_error        = 1
no_batch                = 2
gui_refuse_filetransfer = 3
invalid_type            = 4
no_authority            = 5
unknown_error           = 6
header_not_allowed      = 7
separator_not_allowed   = 8
filesize_not_allowed    = 9
header_too_long         = 10
dp_error_create         = 11
dp_error_send           = 12
dp_error_write          = 13
unknown_dp_error        = 14
access_denied           = 15
dp_out_of_memory        = 16
disk_full               = 17
dp_timeout              = 18
file_not_found          = 19
dataprovider_exception  = 20
control_flush_error     = 21
others                  = 22.
if sy-subrc = 0.
message i012(zeduc132_m).
endif.

endform.                    "" download