标准ALV大量数据无法导出的替换方法

1.   TYPES:BEGIN OF ty_header,
   
2.          tname TYPE lvc_s_fcat-scrtext_l,
   
3.        END OF ty_header.
   
4. 
   
5.   DATA:lv_filename TYPE string.
   
6.   DATA:lv_path     TYPE string.
   
7.   DATA:lv_fullpath TYPE string.
   
8.   DATA:ls_header TYPE ty_header.
   
9.   DATA:lt_header TYPE TABLE OF ty_header.
   
10. *构建的动态内表名
    
11.   FIELD-SYMBOLS:<gt_fs_ALV> TYPE table, "动态内表
    
12.                 <gs_fs_alv> TYPE any,   "动态内表工作区
    
13.                 <fs_value>  TYPE any.
    
14.   DATA:dy_table TYPE REF TO data, "用于存放动态内表结构
    
15.        dy_wa    TYPE REF TO data. "动态内表工作区类型
    
16. 
    
17.   CASE R_UCOMM.
    
18.     WHEN 'DOWNLOAD'.
    
19.       CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_Dialog
    
20. *        EXPORTING
    
21. *          WINDOW_TITLE              =
    
22. *          DEFAULT_EXTENSION         =
    
23. *          DEFAULT_FILE_NAME         =
    
24. *          WITH_ENCODING             =
    
25. *          FILE_FILTER               =
    
26. *          INITIAL_DIRECTORY         =
    
27. *          PROMPT_ON_OVERWRITE       = 'X'
    
28.         CHANGING
    
29.           FILENAME                  = lv_filename
    
30.           PATH                      = lv_path
    
31.           FULLPATH                  = lv_fullpath
    
32. *          USER_ACTION               =
    
33. *          FILE_ENCODING             =
    
34.         EXCEPTIONS
    
35.           CNTL_ERROR                = 1
    
36.           ERROR_NO_GUI              = 2
    
37.           NOT_SUPPORTED_BY_GUI      = 3
    
38.           INVALID_DEFAULT_FILE_NAME = 4
    
39.           others                    = 5.
    
40. 
    
41.   lv_fullpath = lv_fullpath && '.xlsx'.
    
42. 
    
43.   CLEAR:lt_header[].
    
44.   LOOP AT git_field ASSIGNING FIELD-SYMBOL(<fs_field>).
    
45.     ls_header-tname = <fs_field>-scrtext_l.
    
46.     APPEND ls_header TO lt_header.
    
47.   ENDLOOP.
    
48. 
    
49. *-->根据FIELDCAT 构建ALV动态内表
    
50.   CALL METHOD cl_alv_table_create=>create_dynamic_table
    
51.     EXPORTING
    
52.       it_fieldcatalog = git_field
    
53.     IMPORTING
    
54.       ep_table        = dy_table.
    
55. 
    
56.   ASSIGN dy_table->* TO <gt_fs_alv>."根据传出动态内表结构创建动态内表
    
57.   CREATE DATA dy_wa LIKE LINE OF <gt_fs_alv>."指向动态内表结构以创建工作区
    
58.   ASSIGN dy_wa->* TO <gs_fs_alv>."构建工作区
    
59. 
    
60.   LOOP AT git_alv ASSIGNING FIELD-SYMBOL(<fs_alv>).
    
61.     CLEAR:<gs_fs_alv>.
    
62.     MOVE-CORRESPONDING <fs_alv> TO <gs_fs_alv>.
    
63.     APPEND <gs_fs_alv> TO <gt_fs_alv>.
    
64.   ENDLOOP.
    
65. 
    
66.   CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
    
67.     EXPORTING
    
68. *      BIN_FILESIZE              =
    
69.       FILENAME                  = lv_fullpath
    
70.       FILETYPE                  = 'DAT' "这里一般用DAT，如果用ASC则1000-不会显示为-1000，而dat会显示为-1000，如果用DBF则不会有缩进，即字符前面的空格会被除去,而且字符的前导0也会输出
    
71. *      APPEND                    = SPACE
    
72. *      WRITE_FIELD_SEPARATOR     = SPACE
    
73. *      HEADER                    = '00'
    
74. *      TRUNC_TRAILING_BLANKS     = SPACE
    
75. *      WRITE_LF                  = 'X'
    
76. *      COL_SELECT                = SPACE
    
77. *      COL_SELECT_MASK           = SPACE
    
78. *      DAT_MODE                  = SPACE
    
79. *      CONFIRM_OVERWRITE         = SPACE
    
80. *      NO_AUTH_CHECK             = SPACE
    
81.       CODEPAGE                  = '8400'
    
82. *      IGNORE_CERR               = ABAP_TRUE
    
83. *      REPLACEMENT               = '#'
    
84. *      WRITE_BOM                 = SPACE
    
85. *      TRUNC_TRAILING_BLANKS_EOL = 'X'
    
86. *      WK1_N_FORMAT              = SPACE
    
87. *      WK1_N_SIZE                = SPACE
    
88. *      WK1_T_FORMAT              = SPACE
    
89. *      WK1_T_SIZE                = SPACE
    
90. *      SHOW_TRANSFER_STATUS      = 'X'
    
91.       FIELDNAMES                = lt_header
    
92. *      WRITE_LF_AFTER_LAST_LINE  = 'X'
    
93. *      VIRUS_SCAN_PROFILE        = '/SCET/GUI_DOWNLOAD'
    
94. *    IMPORTING
    
95. *      FILELENGTH                =
    
96.     CHANGING
    
97.       DATA_TAB                  = <gt_fs_alv>[]
    
98.     EXCEPTIONS
    
99.       FILE_WRITE_ERROR          = 1
    
100.       NO_BATCH                  = 2
     
101.       GUI_REFUSE_FILETRANSFER   = 3
     
102.       INVALID_TYPE              = 4
     
103.       NO_AUTHORITY              = 5
     
104.       UNKNOWN_ERROR             = 6
     
105.       HEADER_NOT_ALLOWED        = 7
     
106.       SEPARATOR_NOT_ALLOWED     = 8
     
107.       FILESIZE_NOT_ALLOWED      = 9
     
108.       HEADER_TOO_LONG           = 10
     
109.       DP_ERROR_CREATE           = 11
     
110.       DP_ERROR_SEND             = 12
     
111.       DP_ERROR_WRITE            = 13
     
112.       UNKNOWN_DP_ERROR          = 14
     
113.       ACCESS_DENIED             = 15
     
114.       DP_OUT_OF_MEMORY          = 16
     
115.       DISK_FULL                 = 17
     
116.       DP_TIMEOUT                = 18
     
117.       FILE_NOT_FOUND            = 19
     
118.       DATAPROVIDER_EXCEPTION    = 20
     
119.       CONTROL_FLUSH_ERROR       = 21
     
120.       NOT_SUPPORTED_BY_GUI      = 22
     
121.       ERROR_NO_GUI              = 23
     
122.       others                    = 24.
     
123. 
     
124.   ENDCASE.

复制代码