标签：struct not 自定义 select print def 文件 filename lin
在SAP系统中，通过SE11显示一个table的内容，可以发现ALV grid的显示界面上有个spread sheet的标准按钮，点击这个按钮可以将显示的内容下载成excel文件，其中也包括扩展名.xlsx的文件。
这个功能很方便，因为下载的结果和ALV中看到的是一样的。
debug研究了一下标准代码，发现是将需要下载的内表先转换成XML stream，然后再通过gui_download的BIN模式将xml stream下载成.xlsx文件。
写了一个简单的程序供大家参考
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
REPORT ztest_alv_download.
DATA:git_vbap TYPE STANDARD TABLE OF vbap.
DATA:git_fcat TYPE lvc_t_fcat,
gwa_layout TYPE lvc_s_layo.
DATA: l_path TYPE string,
l_filename TYPE string.
START-OF-SELECTION.
SELECT *
INTO TABLE git_vbap
FROM vbap
UP TO 100 ROWS.
CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE‘
EXPORTING
i_structure_name = ‘VBAP‘
CHANGING
ct_fieldcat = git_fcat "生成下载excel文件的头--reptext字段
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
gwa_layout-zebra = ‘X‘.
gwa_layout-sel_mode = ‘A‘.
gwa_layout-cwidth_opt = ‘X‘.
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC‘
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = ‘FRM_STATUS_SET‘
i_callback_user_command = ‘FRM_USER_COMMAND‘
is_layout_lvc = gwa_layout
it_fieldcat_lvc = git_fcat
TABLES
t_outtab = git_vbap[]
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
FORM frm_status_set USING rt_extab TYPE slis_t_extab.
SET PF-STATUS ‘S0001‘.
ENDFORM. "frm_status_set
FORM frm_user_command USING r_ucomm TYPE sy-ucomm
rs_selfield TYPE slis_selfield.
* Local Variable Declare
DATA: l_filename TYPE string.
IF r_ucomm = ‘DOWN‘.
* get file name
PERFORM frm_get_directory CHANGING l_filename.
* download
PERFORM export_to_excel USING l_filename.
ENDIF.
ENDFORM.
FORM frm_get_directory CHANGING c_filename TYPE string.
DATA : l_title TYPE string,
l_filename TYPE string, "file name
l_path TYPE string VALUE ‘C:\TEMP‘, "path
l_fullpath TYPE string, "full path
l_result TYPE i. "result return
l_title = ‘Save as...‘.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
window_title = l_title
default_extension = ‘XLSX‘
default_file_name = ‘Download.XLSX‘
* with_encoding =
* file_filter =
initial_directory = l_path
prompt_on_overwrite = ‘X‘
CHANGING
filename = l_filename
path = l_path
fullpath = l_fullpath
user_action = l_result
* file_encoding =
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
c_filename = l_filename. "l_path.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form EXPORT_TO_EXCEL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_L_FILENAME text
*----------------------------------------------------------------------*
FORM export_to_excel USING i_filename.
DATA: l_length TYPE i,
l_xml_stream TYPE xml_rawdata,
l_flavour TYPE string,
l_version TYPE string.
DATA: lr_alv_new_data TYPE REF TO data,
lr_result_data TYPE REF TO cl_salv_ex_result_data_table.
DATA: ls_xml_choice TYPE if_salv_bs_xml=>s_type_xml_choice,
xml TYPE xstring.
GET REFERENCE OF git_vbap INTO lr_alv_new_data.
lr_result_data = cl_salv_ex_util=>factory_result_data_table(
* t_selected_rows = lt_lvc_row
* t_selected_columns = lt_sel_cols
* t_selected_cells = lt_sel_cells
r_data = lr_alv_new_data
* s_layout = lr_grid->m_cl_variant->ms_layout
t_fieldcatalog = git_fcat
* t_sort = lr_grid->m_cl_variant->mt_sort
* t_filter = lr_grid->m_cl_variant->mt_filter
* t_hyperlinks = lr_grid->mt_hyperlinks
* s_current_cell = ls_cur_cell
* hyperlink_entry_column = ls_hyper_entry
* dropdown_entry_column = ls_dropdown_entry
* r_top_of_list = lr_top_of_list
* r_end_of_list = lr_end_of_list
* t_dropdown_values = lt_drdn
).
CASE cl_salv_bs_a_xml_base=>get_version( ).
WHEN if_salv_bs_xml=>version_25.
l_version = if_salv_bs_xml=>version_25.
WHEN if_salv_bs_xml=>version_26.
l_version = if_salv_bs_xml=>version_26. " = 2.6
ENDCASE.
l_flavour = if_salv_bs_c_tt=>c_tt_xml_flavour_export. "Flavor for Complete ALV XML
CALL METHOD cl_salv_bs_tt_util=>if_salv_bs_tt_util~transform
EXPORTING
xml_type = if_salv_bs_xml=>c_type_xlsx "XLSX
xml_version = l_version
r_result_data = lr_result_data
xml_flavour = l_flavour
gui_type = if_salv_bs_xml=>c_gui_type_gui "Y6DK066330
IMPORTING
xml = xml.
IF NOT i_filename IS INITIAL.
CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY‘
EXPORTING
buffer = xml
IMPORTING
output_length = l_length
TABLES
binary_tab = l_xml_stream.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
bin_filesize = l_length
filetype = ‘BIN‘
filename = i_filename
CHANGING
data_tab = l_xml_stream
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ENDFORM.
|
在status上加了两个按钮，一个是标准的spreadsheet按钮(&XXL)，一个是自定义的按钮(DOWN)，供下载结果对比使用。
代码简单说明：
1） cl_salv_bs_tt_util=>if_salv_bs_tt_util~transform是用来指定下载的excel格式的，也就是模拟了标准按钮的那个format选择步骤，这个类方法中用到了接口if_salv_bs_xml中的一些属性，10就标识是下载成.xlsx格式的文件。
2) SCMS_XSTRING_TO_BINARY可以将Xtring转化成二进制格式并保存到内表中
以上。
标签：struct not 自定义 select print def 文件 filename lin
原文地址：https://www.cnblogs.com/lvdong18847870057/p/12544104.html
