也许您可以尝试这种方式。 代替OLE

 "使用以下命令在树形工具栏中创建自定义图标
   尝试。
       v_text2 =文本-b02。  "下载到excel

       grt_functions-> add_function（
         名称="下载"
         图标='@ 42 @'
         工具提示= v_text2
         位置= if_salv_c_function_position => right_of_salv_functions
 ）。
     抓住cx_salv_wrong_call cx_salv_existing。
   努力。

 "为自定义功能创建事件

   数据：lr_events对cl_salv_events_tree输入ref。
   lr_events = grt_tree-> get_event（）。
   创建对象grt_events。

   为lr_events设置处理程序grt_events-> on_user_command。
   将处理程序grt_events-> on_double_click设置为lr_events。
   将处理程序grt_events-> on_link_click设置为lr_events。
   为lr_events设置处理程序grt_events-> on_before_user_command。
   为lr_events设置处理程序grt_events-> on_after_user_command。
   为lr_events设置处理程序grt_events-> on_keypress。
   尝试。
       lr_events-> add_key_for_keypress（if_salv_c_keys => f4）。
       lr_events-> add_key_for_keypress（if_salv_c_keys => enter）。
     捕捉cx_salv_msg。
   努力。

 调用以下功能模块
 排列后，在grt_events-> on_user_command方法中
 "输出表的任何格式

 通话功能'ALV_XXL_CALL'
 出口
 i_tabname ='I_OUT'
 IS_LAYOUT = l_xxl_Layout
 it_fieldcat = l_xxl_fieldcat
 桌子
 it_outtab = it_out
 例外情况
 fatal_error = 1
 no_display_possible = 2
 其他= 3。

 

a®