regarding back ground processing for excel.

[Former Member]

Hi,

i want to create the Excel sheet and i want to save in Back ground Processing....

give me some suggestionss.......................

[Former Member]

Hi

Use OLE concept.

L.Velu

[Former Member]

This can create any file (spreadsheet/plain text/ dat files). but to add workbooks to the sheet you need to use OLE Object concepts.

PARAMETERS: p_terms(256) TYPE c OBLIGATORY,

p_del(1) TYPE c OBLIGATORY DEFAULT cl_abap_char_utilities=>horizontal_tab.

DATA: lv_str TYPE string,

lv_char(256) TYPE c,

lr_descrref TYPE REF TO cl_abap_typedescr.

FIELD-SYMBOLS: <comp> TYPE ANY.

IF itab IS NOT INITIAL.

OPEN DATASET p_terms FOR OUTPUT IN LEGACY TEXT MODE .

IF sy-subrc EQ 0.

CLEAR : lv_str.

• Header of the file

CONCATENATE

'Action'

'Name'

'EE User ID'

'Termination Date'

'Last Day Worked'

'End Of Notice'

'Employee Type'

'Department'

'Department_type'

'Office Location'

'Manager Name'

'Has Cellphone'

'Has Home Office'

'VP and Above'

cl_abap_char_utilities=>cr_lf

INTO lv_str SEPARATED BY p_del.

LOOP AT itab INTO ls_terms.

WHILE sy-subrc EQ 0.

ASSIGN COMPONENT sy-index OF STRUCTURE ls_terms TO <comp>.

IF sy-subrc NE 0.

EXIT.

ENDIF.

lr_descrref = cl_abap_typedescr=>describe_by_data( <comp> ).

IF lr_descrref->type_kind = 'P'.

WRITE <comp> TO lv_char DECIMALS 2.

ELSE.

WRITE <comp> TO lv_char.

ENDIF.

SHIFT lv_char LEFT DELETING LEADING space.

IF sy-index NE 1.

CONCATENATE lv_str lv_char INTO lv_str SEPARATED BY p_del.

ELSE.

CONCATENATE lv_str lv_char INTO lv_str.

ENDIF.

CLEAR: lv_char.

ENDWHILE.

TRY.

• This statement passes the content of data object to the file specified

TRANSFER lv_str TO p_terms.

CATCH cx_sy_file_authority .

FORMAT COLOR 6 ON.

WRITE:/ 'No authorization to access the Term file'.

ENDTRY.

CLEAR lv_str.

ENDLOOP.

CLOSE DATASET p_terms.

ENDIF.

ENDIF.