Dudas del WS_Excel

[Drako]

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 , ademas tambien quisiera que en el archivo se pusieran los titulos dentro del excel, agradeceria mucho sugerencias, saludos.

[Claudia Valdespino]

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!!

[Drako]

Gracias linda, es de mucha ayuda tu codigo...

[Areli Sierra]

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

[Drako]

Tendrias que agregarle manualmente las cabeceras en el 1er. registro de la tabla interna a utilizar para bajarse.