Dudas del WS_Excel
Hola a todos, lo que pasa es que estoy usando la funcion de WS_EXCEL para descargar un reporte en una direccion local, pero al momento de descargarse el mismo programa de Excel se abre en eutomatico y yo no quiero que este se abra :confused: , ademas tambien quisiera que en el archivo se pusieran los titulos dentro del excel, agradeceria mucho sugerencias, saludos.:rolleyes:
|
Hola Drako, para poner las cabeceras de las columnas al momento de descargar el archivo Excel puedes usar esta función: MS_EXCEL_OLE_STANDARD_DAT. Ahh!! es importante que los campos de tu tabla interna sean todos CHAR. Te paso una parte del código para que te guies ;)
*&---------------------------------------------------------------------* *& Module f4_ruta INPUT *&---------------------------------------------------------------------* MODULE f4_ruta INPUT. CALL FUNCTION 'KD_GET_FILENAME_ON_F4' EXPORTING static = 'X' CHANGING file_name = w_ruta EXCEPTIONS mask_too_long = 1 OTHERS = 2. ENDMODULE. " f4_ruta INPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0200 INPUT *&---------------------------------------------------------------------* MODULE user_command_0200 INPUT. CASE sy-ucomm. WHEN 'XLS'. IF NOT w_ruta IS INITIAL. PERFORM cargar_cabecera. PERFORM exportar_excel. SET SCREEN 0. LEAVE SCREEN. ELSE. MESSAGE i888 WITH 'Debe ingresar una ruta válida.'. ENDIF. WHEN 'EXIT'. SET SCREEN 0. LEAVE SCREEN. ENDCASE. ENDMODULE. " USER_COMMAND_0200 INPUT *&---------------------------------------------------------------------* *& Form cargar_cabecera *&---------------------------------------------------------------------* FORM cargar_cabecera . * Completa las cabeceras para el archivo Excel lt_fnames-text = 'Nivel'. APPEND lt_fnames. lt_fnames-text = 'Objeto'. APPEND lt_fnames. lt_fnames-text = 'Denominación del Proyecto'. APPEND lt_fnames. lt_fnames-text = 'Denominación del PEP'. APPEND lt_fnames. *&---------------------------------------------------------------------* *& Form exportar_excel *&---------------------------------------------------------------------* FORM exportar_excel . CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT' EXPORTING file_name = w_ruta create_pivot = 0 TABLES data_tab = gt_final fieldnames = lt_fnames EXCEPTIONS file_not_exist = 1 filename_expected = 2 communication_error = 3 ole_object_method_error = 4 ole_object_property_error = 5 invalid_pivot_fields = 6 download_problem = 7 OTHERS = 8. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " exportar_excel Suerte!! |
Gracias linda, es de mucha ayuda tu codigo... :D
|
Hola Buen dia,
Estoy utilizando esta funcion para bajar la tabla interna a excel, genera automaticamente el excel, pero no me muestra las cabeceras, no se si me puedes ayudar, te lo agradeceria mucho. Saludos |
Tendrias que agregarle manualmente las cabeceras en el 1er. registro de la tabla interna a utilizar para bajarse. |
Husos Horarios son GMT. La hora en este momento es 08:23:45. |
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web