Skip to Content
0
Former Member
Jun 07, 2010 at 11:47 AM

Problem in downloading ALV output in excel

179 Views

Dear Abapers,

I am facing a problem while downloading alv output in spreadsheet. Report headers and data headings are coming in excle but contents are missing instead of that No Data is displaying on excel sheet. I have debug that and observed the deep structure name T_OUTTAB using by the FM ALV_DATA_EXPORT is empty, It should contain the contents of my output data.

Below I am giving my code.

***********************************************declaration****************

BEGIN OF d_file_out,

index TYPE i, "Index no

msg TYPE string, "Message

msgtyp(1) TYPE c, "Message type

END OF d_file_out,

DATA:t_file_out TYPE TABLE OF d_file_out.

DATA:wa_file_out TYPE d_file_out.

**************************************************************************

  • Display Error Logs

PERFORM display_logs USING text-006.

*************************************************************************

FORM display_logs USING p_text TYPE string.

CONSTANTS: c_count TYPE char5 VALUE 'INDEX',

c_mestyp TYPE char6 VALUE 'MSG',

c_message TYPE char7 VALUE 'MSGTYP'.

*Field catalog

PERFORM: z_field_catalog USING c_count text-010, "Record number

z_field_catalog USING c_mestyp text-011, "Message type

z_field_catalog USING c_message text-012. "Message

*Top of page event

PERFORM z_event USING t_events.

  • wa_layout-colwidth_optimize = c_x.

  • ALV grid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • i_buffer_active = 'X'

i_callback_program = sy-repid

  • is_layout = wa_layout

  • I_STRUCTURE_NAME = wa_file_out

it_fieldcat = t_field

it_events = t_events

TABLES

t_outtab = t_file_out

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

***********************************Fieldcatalog**********************************************

FORM z_field_catalog USING p_field TYPE any

p_name TYPE any.

wa_field-fieldname = p_field.

wa_field-seltext_l = p_name.

IF p_field = 'INDEX'.

wa_field-outputlen = '14'.

wa_field-col_pos = 1.

ELSEIF p_field = 'MSG'.

wa_field-outputlen = '120'.

wa_field-col_pos = 2.

ELSEIF p_field = 'MSGTYP'.

wa_field-outputlen = '08'.

wa_field-col_pos = 3.

ENDIF.

APPEND wa_field TO t_field.

CLEAR wa_field.

ENDFORM.

*********************************************************************

Here I have given my code, which contain the building of field catalog and Calling ALV Grid. I have already checked the excel micros settings. Other programs are working fine on my system and downloading in excel is also working.

Hope to get reply soon.

Regards,

Himanshu