复制ALV页面数据到剪切板

1. *&---------------------------------------------------------------------*
   
2. *& Form FRM_ALV_DISPLAY
   
3. *&---------------------------------------------------------------------*
   
4. *& text
   
5. *&---------------------------------------------------------------------*
   
6. *& -->  p1        text
   
7. *& <--  p2        text
   
8. *&---------------------------------------------------------------------*
   
9. FORM frm_alv_display .
   
10. 
    
11.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    
12.     EXPORTING
    
13.       i_bypassing_buffer       = 'X'
    
14.       i_callback_program       = sy-repid
    
15.       it_fieldcat_lvc          = gt_fieldcat[]
    
16.       i_callback_pf_status_set = 'FRM_STATUS'
    
17.       i_callback_user_command  = 'USER_COMMAND'
    
18.       is_layout_lvc            = gs_layout
    
19. *     i_save                   = 'A'
    
20.     TABLES
    
21.       t_outtab                 = gt_output
    
22.     EXCEPTIONS
    
23.       program_error            = 1
    
24.       OTHERS                   = 2.
    
25. 
    
26. ENDFORM.
    
27. *&---------------------------------------------------------------------*
    
28. *&      Form  FRM_STATUS
    
29. *&---------------------------------------------------------------------*
    
30. *       text
    
31. *----------------------------------------------------------------------*
    
32. *      -->R_FLG_POPUP  text
    
33. *----------------------------------------------------------------------*
    
34. FORM frm_status USING r_flg_popup TYPE slis_t_extab. "GUI定义
    
35.   SET PF-STATUS 'ZSTATUS'.
    
36. ENDFORM.                    "FRM_STATUS
    
37. *&---------------------------------------------------------------------*
    
38. *&      FORM  USER_COMMAND
    
39. *&---------------------------------------------------------------------*
    
40. FORM user_command USING pi_ucomm TYPE sy-ucomm
    
41.                         ps_selfield TYPE slis_selfield.
    
42. 
    
43.   CASE pi_ucomm.
    
44.     WHEN 'TO_CLIPBRD'.
    
45.       PERFORM frm_alv_to_clipboard.
    
46.   ENDCASE.
    
47. 
    
48. ENDFORM.                    " USER_COMMAND

复制代码

1. *&---------------------------------------------------------------------*
   
2. *& Form FRM_ALV_TO_CLIPBOARD
   
3. *&---------------------------------------------------------------------*
   
4. *& text
   
5. *&---------------------------------------------------------------------*
   
6. *& -->  p1        text
   
7. *& <--  p2        text
   
8. *&---------------------------------------------------------------------*
   
9. FORM frm_alv_to_clipboard .
   
10.   DATA: lo_grid         TYPE REF TO cl_gui_alv_grid,
    
11.         lt_fieldcat     TYPE lvc_t_fcat,
    
12.         ls_fieldcat     TYPE lvc_s_fcat,
    
13.         lt_filter       TYPE lvc_t_filt,
    
14.         ls_filter       TYPE lvc_s_filt,
    
15.         lr_range        TYPE RANGE OF string WITH HEADER LINE,
    
16.         l_flag_continue TYPE c.
    
17.   DATA: l_type    TYPE c,
    
18.         l_index   TYPE i,
    
19.         l_cellstr TYPE string,
    
20.         l_length  TYPE i,
    
21.         l_offset  TYPE i,
    
22.         lv_rc     TYPE sy-subrc.
    
23.   DATA: BEGIN OF ls_excel,
    
24.           row(4096) TYPE c,
    
25.         END OF ls_excel,
    
26.         lt_excel LIKE TABLE OF ls_excel.
    
27.   FIELD-SYMBOLS: <ls_line>, <l_value>.
    
28. 
    
29.   CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    
30.     IMPORTING
    
31.       e_grid = lo_grid.
    
32. 
    
33.   CALL METHOD lo_grid->get_frontend_fieldcatalog
    
34.     IMPORTING
    
35.       et_fieldcatalog = lt_fieldcat.
    
36.   DELETE lt_fieldcat WHERE no_out = 'X'.
    
37.   SORT lt_fieldcat BY col_pos.
    
38. 
    
39.   CALL METHOD lo_grid->get_filter_criteria
    
40.     IMPORTING
    
41.       et_filter = lt_filter.
    
42. 
    
43. *ALV字段抬头
    
44.   CLEAR:ls_excel.
    
45.   LOOP AT lt_fieldcat INTO ls_fieldcat.
    
46.     IF sy-tabix = 1.
    
47.       ls_excel-row = ls_fieldcat-seltext.
    
48.     ELSE.
    
49.       ls_excel-row = ls_excel-row && cl_abap_char_utilities=>horizontal_tab && ls_fieldcat-seltext.
    
50.     ENDIF.
    
51.   ENDLOOP.
    
52.   APPEND ls_excel TO lt_excel.
    
53. 
    
54.   LOOP AT gt_output ASSIGNING <ls_line>.
    
55.     CLEAR:l_flag_continue,ls_excel.
    
56. 
    
57.     LOOP AT lt_filter INTO ls_filter.
    
58.       CLEAR lr_range[].
    
59.       lr_range-sign = ls_filter-sign.
    
60.       lr_range-option = ls_filter-option.
    
61.       lr_range-low = ls_filter-low.
    
62.       lr_range-high = ls_filter-high.
    
63.       APPEND lr_range.
    
64.       ASSIGN COMPONENT ls_filter-fieldname OF STRUCTURE <ls_line> TO <l_value>.
    
65.       CHECK sy-subrc = 0.
    
66.       IF <l_value> NOT IN lr_range.
    
67.         l_flag_continue = 'X'.
    
68.       ENDIF.
    
69.     ENDLOOP.
    
70. 
    
71.     IF l_flag_continue = 'X'.
    
72.       CONTINUE.
    
73.     ENDIF.
    
74. 
    
75.     LOOP AT lt_fieldcat INTO ls_fieldcat.
    
76.       l_index = sy-tabix.
    
77.       ASSIGN COMPONENT ls_fieldcat-fieldname OF STRUCTURE <ls_line> TO <l_value>.
    
78.       CHECK sy-subrc = 0.
    
79.       IF ls_fieldcat-fieldname = 'MATNR'.
    
80.         CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
    
81.           EXPORTING
    
82.             input  = <l_value>
    
83.           IMPORTING
    
84.             output = <l_value>.
    
85.       ENDIF.
    
86. 
    
87.       DESCRIBE FIELD <l_value> TYPE l_type.
    
88.       l_cellstr = <l_value>.
    
89.       IF l_type = 'C' OR l_type = 'g'.
    
90.         "如果内容中包含“"”，可能会导致输出错误，进行处理
    
91.         IF l_cellstr CA cl_abap_char_utilities=>newline.
    
92.           l_length = strlen( l_cellstr ).
    
93.           IF l_length = 1.
    
94.             l_cellstr = '"' && l_cellstr && '"'.
    
95.           ELSE.
    
96.             l_offset = l_length - 1.
    
97.             IF l_cellstr(1) <> '"' OR l_cellstr+l_offset(1) <> '"'.
    
98.               REPLACE ALL OCCURRENCES OF '"' IN l_cellstr WITH '""'.
    
99.               l_cellstr = '"' && l_cellstr && '"'.
    
100.             ENDIF.
     
101.           ENDIF.
     
102.         ELSE. "不包含换行符时，每个引号全部替换为两个引号 ，并在前后各加引号
     
103.           IF l_cellstr CA '"'.
     
104.             REPLACE ALL OCCURRENCES OF '"' IN l_cellstr WITH '""'.
     
105.             l_cellstr = '"' && l_cellstr && '"'.
     
106.           ENDIF.
     
107.         ENDIF.
     
108.       ELSEIF l_type = 'I' OR l_type = 'P'.
     
109.         IF <l_value> < 0.
     
110.           l_cellstr = abs( <l_value> ).
     
111.           l_cellstr = '-' && l_cellstr.
     
112.         ENDIF.
     
113.       ENDIF.
     
114. 
     
115.       IF l_index = 1.
     
116.         ls_excel-row = l_cellstr.
     
117.       ELSE.
     
118.         ls_excel-row = ls_excel-row && cl_abap_char_utilities=>horizontal_tab && l_cellstr.
     
119.       ENDIF.
     
120.     ENDLOOP.
     
121.     APPEND ls_excel TO lt_excel.
     
122.   ENDLOOP.
     
123. 
     
124.   CALL METHOD cl_gui_frontend_services=>clipboard_export
     
125.     IMPORTING
     
126.       data                 = lt_excel
     
127.     CHANGING
     
128.       rc                   = lv_rc
     
129.     EXCEPTIONS
     
130.       cntl_error           = 1
     
131.       error_no_gui         = 2
     
132.       not_supported_by_gui = 3
     
133.       no_authority         = 4
     
134.       OTHERS               = 5.
     
135.   IF sy-subrc = 0.
     
136.     MESSAGE '数据复制到剪切板成功！' TYPE 'S'.
     
137.   ELSE.
     
138.     MESSAGE '数据复制到剪切板失败！' TYPE 'S' DISPLAY LIKE 'E'.
     
139.   ENDIF.
     
140. 
     
141. ENDFORM.

复制代码