Header in EXCEL Sheet

Hi all,
I'm trying to download the file into excel sheet getting data into excel but header is missing in SAP4.7 version , when i check my code in ECC6.0 then the header is coming. Below is my code.
TYPES: BEGIN OF it_int,
        sales(3) TYPE n,
        name(30) TYPE c,
       END OF it_int.
DATA: t_int TYPE STANDARD TABLE OF it_int,
      fs_int TYPE it_int.
DATA:
BEGIN OF t_header OCCURS 0,
    header(50) TYPE c,
END OF t_header.
fs_int-sales = 001.
fs_int-name = 'Urea'.
APPEND fs_int TO t_int.
CLEAR fs_int.
fs_int-sales = 002.
fs_int-name = 'Ammonia'.
APPEND fs_int TO t_int.
CLEAR fs_int.
t_header-header = 'Sales'.
APPEND t_header.
t_header-header = 'ItemName'.
APPEND t_header.
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
filename =
'C:\SAELS.xls'
     filetype= 'ASC'
     append = 'X'
     write_field_separator = 'X'
    TABLES
      data_tab   = t_int
      fieldnames = t_header.
What needs to be done to get header in SAP4.7 version ?
Thanks in Advance.
Regards
VENk@

Hi Venkat reddy,
<li>Try this way .I tried to change your program. it works
REPORT ztest.
TYPES: BEGIN OF it_int,
 sales(3) TYPE n,
 name(30) TYPE c,
 END OF it_int.
DATA: t_int TYPE STANDARD TABLE OF it_int,
 fs_int TYPE it_int.
DATA:BEGIN OF t_header OCCURS 0,
 field1(50) TYPE c,
 field2(50) TYPE c,
 END OF t_header.
fs_int-sales = 001.
fs_int-name = 'Urea'.
APPEND fs_int TO t_int.
CLEAR fs_int.
fs_int-sales = 002.
fs_int-name = 'Ammonia'.
APPEND fs_int TO t_int.
CLEAR fs_int.
t_header-field1 = 'Sales'.
t_header-field2 = 'ItemName'.
APPEND t_header.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
 filename = 'C:\SAELS.xls'
 filetype = 'ASC'
* append = 'X'
 write_field_separator = 'X'
TABLES
 data_tab = t_header.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
 filename = 'C:\SAELS.xls'
 filetype = 'ASC'
 append = 'X'
 write_field_separator = 'X'
TABLES
 data_tab = t_int.
Thanks
Venkat.O

Similar Messages

Problem while exporting ALV column header to excel sheet.

Hi,
I am able to export an ALV grid details to an excel sheet. But the ALV column headers when exported to excel sheet are getting truncated.
For eg: if my column header in ALV grid is displayed as 'Material' then the column header in excel sheet is 'Mater' only. Remaining portion is getting truncated.
How can I view the entire column header text?
Kindly assist.
Thanks.

I have the same problem with you, when user export to excel. I fixed it by using
w_layo-colwidth_optimize = 'X'. <<<<<<<<<<<<This
perform generate_fcat_reftab
 using 'PRUEFLOS' 'T_INPUT' '' '' 'Inspection Lot' 0.
form generate_fcat_reftab using p_fieldname
 p_tabname
 p_ref_tabname
 p_ref_fieldname
 p_output_text
 p_output_lenght.
clear w_fcat.
w_fcat-fieldname = p_fieldname.
w_fcat-tabname = p_tabname.
w_fcat-ref_fieldname = p_ref_fieldname.
w_fcat-ref_tabname = p_ref_tabname.
w_fcat-seltext_s = p_output_text.
w_fcat-seltext_m = p_output_text.
w_fcat-seltext_l = p_output_text.
w_fcat-outputlen = p_output_lenght.
w_fcat-ddictxt = 'L'. <<<<<<<<<<<<<<<<<<This
append w_fcat to t_fcat.
endform.

Heading for excel sheet

Hi everyone,
 I am downloading an internal table into an excel sheet using function module using GUI_DOWNLOAD . Now i need to have a heading line in the excel sheet. How should i do this? I kindly request you to help me in this issue. Thanks in advance.

hiii
yes you right..that is the only problem you are having..without using FIELDNAMES you can get header like following program..just check follwoing program it will solve your problem...as that parameter is not used in FM gui_download
TABLES:
mara.
* T Y P E S *
TYPES:
BEGIN OF type_a090,
 kschl TYPE a090-kschl, " Condition type
 vbeln TYPE a090-vbeln, " Sales document number
 posnr TYPE a090-posnr, " Item number
 matnr TYPE a090-matnr, " Material number
 datbi TYPE a090-datbi, " Valid from
 datab TYPE a090-datab, " Valid to
END OF type_a090.
TYPES:
BEGIN OF type_mara,
 matkl TYPE mara-matkl, " Material group
 matnr TYPE mara-matnr, " Material number
END OF type_mara.
TYPES:
BEGIN OF type_makt,
 maktx TYPE makt-maktx, " Material description
 matnr TYPE makt-matnr, " Material number
END OF type_makt.
TYPES:
BEGIN OF type_output,
 kschl TYPE a090-kschl, " Condition type
 vbeln TYPE a090-vbeln, " Sales document number
 posnr TYPE a090-posnr, " Item number
 matnr TYPE a090-matnr, " Material number
 datbi(10) TYPE c, " Valid from
 datab(10) TYPE c, " Valid to
 matkl TYPE mara-matkl, " Material group
 maktx TYPE makt-maktx, " Material description
END OF type_output.
TYPES:
BEGIN OF type_final,
 string TYPE string,
END OF type_final.
* D A T A *
DATA:wa_a090 TYPE type_a090,
 i_a090 TYPE STANDARD TABLE OF type_a090,
 wa_mara TYPE type_mara,
 i_mara TYPE STANDARD TABLE OF type_mara,
 wa_makt TYPE type_makt,
 i_makt TYPE STANDARD TABLE OF type_makt,
 wa_output TYPE type_output,
 i_output TYPE TABLE OF type_output,
 wa_final TYPE type_final,
 i_final TYPE STANDARD TABLE OF type_final. "#EC NEEDED
* S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK sel1 WITH FRAME TITLE text-se1.
SELECT-OPTIONS:
s_matnr FOR mara-matnr, " Material Number
s_mtart FOR mara-mtart. " Material Type
PARAMETERS p_kschl TYPE konp-kschl DEFAULT text-000.
" Condition Type
SELECTION-SCREEN END OF BLOCK sel1.
SELECTION-SCREEN BEGIN OF BLOCK sel2 WITH FRAME TITLE text-se2.
SELECTION-SCREEN BEGIN OF BLOCK sel3 WITH FRAME TITLE text-se3.
PARAMETERS:
p_app_a RADIOBUTTON GROUP file,
p_filea type rlgrap-filename,
 " Local file for upload/download
p_app_p RADIOBUTTON GROUP file,
p_filep type rlgrap-filename.
" Local file for upload/download
SELECTION-SCREEN END OF BLOCK sel3.
SELECTION-SCREEN BEGIN OF BLOCK sel4 WITH FRAME TITLE text-se4.
PARAMETERS:
p_price type rlgrap-filename OBLIGATORY
 DEFAULT text-001.
SELECTION-SCREEN END OF BLOCK sel4.
SELECTION-SCREEN END OF BLOCK sel2.
* Selection screen processing
AT SELECTION-SCREEN ON p_filea.
IF NOT p_app_a IS INITIAL.
 IF p_filea IS INITIAL.
 MESSAGE e398
 WITH text-002 '' '' ''.
 ENDIF. " IF p_filea IS INITIAL
ENDIF. " IF NOT p_app_a IS INITIAL
AT SELECTION-SCREEN ON p_filep.
IF NOT p_app_p IS INITIAL.
 IF p_filep IS INITIAL.
 MESSAGE e398
 WITH text-003 '' '' ''.
 ENDIF. " IF p_filep IS INITIAL
ENDIF. " IF NOT p_app_p
START-OF-SELECTION.
PERFORM get_data.
PERFORM output_data.
PERFORM header.
*& Form get_data *
* Fetching data from the tables.
* There are no interface parameters to be passed. *
FORM get_data .
SELECT kschl " Condition type
 vbeln " Sales document number
 posnr " Item number
 matnr " Material number
 datbi " Valid from
 datab " Valid to
 FROM a090
 INTO TABLE i_a090
 WHERE matnr IN s_matnr AND
 kschl EQ p_kschl
 AND datab LE syst-datum
 AND datbi GE syst-datum.
IF sy-subrc EQ 0.
 SELECT matkl " Material group
 matnr " Material number
 FROM mara
 INTO TABLE i_mara
 FOR ALL ENTRIES IN i_a090
 WHERE matnr = i_a090-matnr.
ENDIF.
IF sy-subrc EQ 0.
 SELECT maktx " Material description
 matnr " Material number
 FROM makt
 INTO TABLE i_makt
 FOR ALL ENTRIES IN i_mara
 WHERE matnr = i_mara-matnr
 AND spras = 'EN'.
ENDIF.
ENDFORM. " get_data
*& Form output_data *
* Populating the final output table.
* There are no interface parameters to be passed. *
FORM output_data .
DATA:
 w_date2(10) TYPE c, " For date formate
 w_date1(10) TYPE c. " For date formate
LOOP AT i_a090 INTO wa_a090.
 CONCATENATE wa_a090-datbi+6(2) wa_a090-datbi+4(2) wa_a090-datbi+0(4)
 INTO w_date1 SEPARATED BY '/'.
 CONCATENATE wa_a090-datab+6(2) wa_a090-datab+4(2) wa_a090-datab+0(4)
 INTO w_date2 SEPARATED BY '/'.
 wa_output-kschl = wa_a090-kschl.
 wa_output-vbeln = wa_a090-vbeln.
 wa_output-posnr = wa_a090-posnr.
 wa_output-matnr = wa_a090-matnr.
 wa_output-datbi = w_date1.
 wa_output-datab = w_date2.
 READ TABLE i_mara INTO wa_mara WITH KEY matnr = wa_a090-matnr.
 IF sy-subrc EQ 0.
 wa_output-matkl = wa_mara-matkl.
 ENDIF.
 READ TABLE i_makt INTO wa_makt WITH KEY matnr = wa_a090-matnr.
 IF sy-subrc EQ 0.
 wa_output-maktx = wa_makt-maktx.
 ENDIF.
 APPEND wa_output TO i_output.
 CLEAR wa_output.
ENDLOOP. " LOOP AT i_a090
DELETE ADJACENT DUPLICATES FROM i_output COMPARING ALL FIELDS.
LOOP AT i_output INTO wa_output.
 CONCATENATE wa_output-kschl
 wa_output-vbeln
 wa_output-posnr
 wa_output-matnr
 wa_output-datbi
 wa_output-datab
 wa_output-matkl
 wa_output-maktx
 INTO wa_final-string
 SEPARATED BY ','.
 APPEND wa_final TO i_final.
ENDLOOP. " LOOP AT i_output...
ENDFORM. " output_data
*& Form header *
* Formating the header. *
* There are no interface parameters to be passed. *
FORM header .
CONCATENATE text-004
 text-005
 text-006
 text-007
 text-008
 text-009
 text-010
 text-011
 INTO wa_final-string
 SEPARATED BY ','.
INSERT wa_final
INTO i_final INDEX 1.
PERFORM f901_output.
ENDFORM. " header
*& Form f901_output *
* Downloading the final output table to the presentation server or *
* application server. *
* -->P_I_OUTPUT text *
* -->P_P_PRICE text *
FORM f901_output .
IF p_app_p = 'X'.
 PERFORM f903_file_to_presentation
 USING p_price.
ELSE.
 PERFORM f904_file_to_application
 USING p_price.
ENDIF. " IF p_app_p
ENDFORM. " f901_output
*& Form f903_file_to_presentation *
* Dowload the file to the presentation server. *
* -->P_P_PRICE text *
FORM f903_file_to_presentation USING p_p_price.
DATA:
 lwa_file TYPE string. "#EC NEEDED "rlgrap-filename.
CONCATENATE p_filep p_p_price INTO lwa_file.
* Download the file
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
* BIN_FILESIZE = BIN_FILESIZE
 filename = lwa_file
 filetype = 'ASC'
* APPEND = ' '
* WRITE_FIELD_SEPARATOR = ' '
* HEADER = '00'
* TRUNC_TRAILING_BLANKS = ' '
* WRITE_LF = 'X'
* COL_SELECT = ' '
* COL_SELECT_MASK = ' '
* DAT_MODE = ' '
* CONFIRM_OVERWRITE = ' '
* NO_AUTH_CHECK = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* WRITE_BOM = ' '
* TRUNC_TRAILING_BLANKS_EOL = 'X'
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* IMPORTING
* FILELENGTH = FILELENGTH
 TABLES
 data_tab = i_final
* FIELDNAMES = FIELDNAMES
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 no_authority = 5
 unknown_error = 6
 header_not_allowed = 7
 separator_not_allowed = 8
 filesize_not_allowed = 9
 header_too_long = 10
 dp_error_create = 11
 dp_error_send = 12
 dp_error_write = 13
 unknown_dp_error = 14
 access_denied = 15
 dp_out_of_memory = 16
 disk_full = 17
 dp_timeout = 18
 file_not_found = 19
 dataprovider_exception = 20
 control_flush_error = 21
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. " f903_file_to_presentation
regards
twinkal

How to download logo and heading in excel sheet.

Hi ,
can any one tell me how i will download the logo in the excel sheet by using program.
Regards,
Priti shrivastava

Hope you are comfortable with inserting header in to excel sheet.
Regarding Logo see the below code snippet:-
TABLES:
sflight.
* header data................................
DATA :
header1 LIKE gxxlt_p-text VALUE 'Suresh',
header2 LIKE gxxlt_p-text VALUE 'Excel sheet'.
* Internal table for holding the SFLIGHT data
DATA BEGIN OF t_sflight OCCURS 0.
 INCLUDE STRUCTURE sflight.
DATA END OF t_sflight.
* Internal table for holding the horizontal key.
DATA BEGIN OF t_hkey OCCURS 0.
 INCLUDE STRUCTURE gxxlt_h.
DATA END OF t_hkey .
* Internal table for holding the vertical key.
DATA BEGIN OF t_vkey OCCURS 0.
 INCLUDE STRUCTURE gxxlt_v.
DATA END OF t_vkey .
* Internal table for holding the online text....
DATA BEGIN OF t_online OCCURS 0.
 INCLUDE STRUCTURE gxxlt_o.
DATA END OF t_online.
* Internal table to hold print text.............
DATA BEGIN OF t_print OCCURS 0.
 INCLUDE STRUCTURE gxxlt_p.
DATA END OF t_print.
* Internal table to hold SEMA data..............
DATA BEGIN OF t_sema OCCURS 0.
 INCLUDE STRUCTURE gxxlt_s.
DATA END OF t_sema.
* Retreiving data from sflight.
SELECT * FROM sflight
 INTO TABLE t_sflight.
* Text which will be displayed online is declared here....
t_online-line_no = '1'.
t_online-info_name = 'Created by'.
t_online-info_value = 'SURESH KUMAR PARVATHANENI'.
APPEND t_online.
* Text which will be printed out..........................
t_print-hf = 'H'.
t_print-lcr = 'L'.
t_print-line_no = '1'.
t_print-text = 'This is the header'.
APPEND t_print.
t_print-hf = 'F'.
t_print-lcr = 'C'.
t_print-line_no = '1'.
t_print-text = 'This is the footer'.
APPEND t_print.
* Defining the vertical key columns.......
t_vkey-col_no = '1'.
t_vkey-col_name = 'MANDT'.
APPEND t_vkey.
t_vkey-col_no = '2'.
t_vkey-col_name = 'CARRID'.
APPEND t_vkey.
t_vkey-col_no = '3'.
t_vkey-col_name = 'CONNID'.
APPEND t_vkey.
t_vkey-col_no = '4'.
t_vkey-col_name = 'FLDATE'.
APPEND t_vkey.
* Header text for the data columns................
t_hkey-row_no = '1'.
t_hkey-col_no = 1.
t_hkey-col_name = 'PRICE'.
APPEND t_hkey.
t_hkey-col_no = 2.
t_hkey-col_name = 'CURRENCY'.
APPEND t_hkey.
t_hkey-col_no = 3.
t_hkey-col_name = 'PLANETYPE'.
APPEND t_hkey.
t_hkey-col_no = 4.
t_hkey-col_name = 'SEATSMAX'.
APPEND t_hkey.
t_hkey-col_no = 5.
t_hkey-col_name = 'SEATSOCC'.
APPEND t_hkey.
t_hkey-col_no = 6.
t_hkey-col_name = 'PAYMENTSUM'.
APPEND t_hkey.
* populating the SEMA data..........................
t_sema-col_no = 1.
t_sema-col_typ = 'STR'.
t_sema-col_ops = 'DFT'.
APPEND t_sema.
t_sema-col_no = 2.
APPEND t_sema.
t_sema-col_no = 3.
APPEND t_sema.
t_sema-col_no = 4.
APPEND t_sema.
t_sema-col_no = 5.
APPEND t_sema.
t_sema-col_no = 6.
APPEND t_sema.
t_sema-col_no = 7.
APPEND t_sema.
t_sema-col_no = 8.
APPEND t_sema.
t_sema-col_no = 9.
APPEND t_sema.
t_sema-col_no = 10.
t_sema-col_typ = 'NUM'.
t_sema-col_ops = 'ADD'.
APPEND t_sema.
CALL FUNCTION 'XXL_FULL_API'
EXPORTING
* DATA_ENDING_AT = 54
* DATA_STARTING_AT = 5
 filename = 'TESTFILE'
 header_1 = header1
 header_2 = header2
 no_dialog = 'X'
 no_start = ' '
 n_att_cols = 6
 n_hrz_keys = 1
 n_vrt_keys = 4
 sema_type = 'X'
* SO_TITLE = ' '
TABLES
 data = t_sflight
 hkey = t_hkey
 online_text = t_online
 print_text = t_print
 sema = t_sema
 vkey = t_vkey
EXCEPTIONS
 cancelled_by_user = 1
 data_too_big = 2
 dim_mismatch_data = 3
 dim_mismatch_sema = 4
 dim_mismatch_vkey = 5
 error_in_hkey = 6
 error_in_sema = 7
 file_open_error = 8
 file_write_error = 9
 inv_data_range = 10
 inv_winsys = 11
 inv_xxl = 12
 OTHERS = 13
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

Report header on Excel Sheet

Hi to all there,
I am generatating my report output in excel format,
I am getting the records but my report header is not coming on Excel.
I have developed this report using reports6i.
can anybody help me.
Thanks in advance
Manvar

its not the "layout model" which defines the XML structure but it is the "Data Model", if you include your parameters / variables in one query in data model, you can find the information in the output XML ..
Hope this helps..

Heading line in excel sheet.

Hi Experts,
 I am working in R/3 4.7 system. I am populating an excel sheet with values from an internal table. Now I want to include a row for heading in the beginning of the excel
sheet. In ECC 6.0 there is a parameter in GUI_DOWNLOAD for heading. But it is not available
in 4.7 system. How should i proceed?
Thanks in advance.

Hi,
Refer Below code
*& Form down_desktop_file
 text
--> p1 text
<-- p2 text
FORM down_desktop_file .
*--Local Variables
DATA : l_file TYPE string.
SELECT * FROM zsd_ra
 INTO TABLE it_sd_ra.
*-- for Heading in excel sheet
st_head-name = text-031.
APPEND st_head TO it_head.
st_head-name = text-032.
APPEND st_head TO it_head.
st_head-name = text-033.
APPEND st_head TO it_head.
st_head-name = text-034.
APPEND st_head TO it_head.
st_head-name = text-035.
APPEND st_head TO it_head.
st_head-name = text-036.
APPEND st_head TO it_head.
st_head-name = text-037.
APPEND st_head TO it_head.
st_head-name = text-038.
APPEND st_head TO it_head.
LOOP AT it_sd_ra INTO st_ra1.
 st_data-gjahr = st_ra1-gjahr.
 MOVE st_ra1-monat TO st_data-monat.
 st_data-zzprojectid = st_ra1-zzprojectid.
 st_data-zwbs = st_ra1-zwbs.
 st_data-zeac_amount = st_ra1-zeac_amount.
 st_data-zlabor = st_ra1-zlabor.
 st_data-zmaterial = st_ra1-zmaterial.
 st_data-zohead = st_ra1-zohead.
 APPEND st_data TO it_data.
 CLEAR: st_ra1,
 st_data.
ENDLOOP.
Down load TAB delimited file
l_file = p_filep.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 filename = l_file
 filetype = 'ASC'
 write_field_separator = c_chk
 TABLES
 data_tab = it_data
 fieldnames = it_head
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 no_authority = 5
 unknown_error = 6
 header_not_allowed = 7
 separator_not_allowed = 8
 filesize_not_allowed = 9
 header_too_long = 10
 dp_error_create = 11
 dp_error_send = 12
 dp_error_write = 13
 unknown_dp_error = 14
 access_denied = 15
 dp_out_of_memory = 16
 disk_full = 17
 dp_timeout = 18
 file_not_found = 19
 dataprovider_exception = 20
 control_flush_error = 21
 OTHERS = 22.
IF sy-subrc <> 0.
 MESSAGE i368(00) WITH 'Error writing file'(m03) l_file.
ELSE.
 WRITE:/ 'file downloaded', l_file.
ENDIF.
ENDFORM. " down_desktop_file
Regards,
Prashant

Problem in the downloading the excel sheet.

hi i am using the following code,i am getting the data into internal table,but it is not comming in to excel sheel can any body tell why the data is not comming,
it_head is the table for headers.
report ztest1.
TABLES: EKKO.
*PARAMETERS : P_EBELN TYPE EBELN.
SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN OBLIGATORY.
TYPES: BEGIN OF T_PO,
 EBELN TYPE EBELN,
 END OF T_PO.
DATA: IT_PO TYPE STANDARD TABLE OF T_PO,
 WA_PO TYPE T_PO.
DATA : IT_ITEMS TYPE TABLE OF BAPIEKPO WITH HEADER LINE.
DATA: PO_ITEMS_SHEDULE TYPE TABLE OF BAPIEKET WITH HEADER LINE.
DATA: PO_ITEM_TEXT TYPE TABLE OF BAPIEKPOTX WITH HEADER LINE.
DATA: PO_ITEM_ACCOUNT_ASSIGNMENT TYPE TABLE OF BAPIEKKN
WITH HEADER LINE.
DATA: PO_HEADER_TEXTS TYPE TABLE OF BAPIEKKOTX WITH HEADER LINE.
DATA: PO_HEADER TYPE BAPIEKKOL.
DATA: RETURN1 TYPE TABLE OF BAPIRETURN WITH HEADER LINE.
SELECT EBELN INTO TABLE IT_PO FROM EKKO WHERE EBELN IN S_EBELN.
PERFORM DOWNLOAD_DATA: TABLES IT_ITEMS USING SPACE 'BAPIEKPO'.
LOOP AT IT_PO INTO WA_PO.
CLEAR: PO_HEADER_TEXTS[], IT_ITEMS[], PO_ITEM_ACCOUNT_ASSIGNMENT[],
 PO_ITEMS_SHEDULE[], PO_ITEM_TEXT[], RETURN1[].
CALL FUNCTION 'BAPI_PO_GETDETAIL'
 EXPORTING
 PURCHASEORDER = WA_PO-EBELN
 ITEMS = 'X'
 ACCOUNT_ASSIGNMENT = 'X'
 SCHEDULES = ' '
 HISTORY = 'X'
 ITEM_TEXTS = 'X'
 HEADER_TEXTS = 'X'
 TABLES
 PO_HEADER_TEXTS = PO_HEADER_TEXTS
 PO_ITEMS = IT_ITEMS
 PO_ITEM_ACCOUNT_ASSIGNMENT = PO_ITEM_ACCOUNT_ASSIGNMENT
 PO_ITEM_SCHEDULES = PO_ITEMS_SHEDULE
 PO_ITEM_TEXTS = PO_ITEM_TEXT
 RETURN = RETURN1.
PERFORM DOWNLOAD_DATA: TABLES PO_HEADER_TEXTS USING 'X' 'BAPIEKKOTX',
 TABLES IT_ITEMS USING 'X' 'BAPIEKPO',
 TABLES PO_ITEM_ACCOUNT_ASSIGNMENT USING 'X'
'BAPIEKKN',
 TABLES PO_ITEMS_SHEDULE USING 'X' 'BAPIEKET',
 TABLES PO_ITEM_TEXT USING 'X' 'BAPIEKPOTX'.
ENDLOOP.
*& Form DOWNLOAD_DATA
FORM DOWNLOAD_DATA TABLES IT_TAB
 USING P_APP
 STRUC_NAME.
DATA: IT_DD03P TYPE TABLE OF DD03P WITH HEADER LINE,
 IT_DD03P1 TYPE TABLE OF DD03P WITH HEADER LINE.
TYPES: BEGIN OF T_HEAD,
 TEXT TYPE AS4TEXT,
 END OF T_HEAD.
DATA: IT_HEAD TYPE TABLE OF T_HEAD.
IF NOT IT_TAB[] IS INITIAL.
 CALL FUNCTION 'DD_GET_DD03P_ALL'
 EXPORTING
 TABNAME = STRUC_NAME
 TABLES
 A_DD03P_TAB = IT_DD03P
 N_DD03P_TAB = IT_DD03P1
 EXCEPTIONS
 ILLEGAL_VALUE = 1
 OTHERS = 2.
 IF SY-SUBRC EQ 0.
 LOOP AT IT_DD03P.
 APPEND IT_DD03P-DDTEXT TO IT_HEAD.
 ENDLOOP.
 ENDIF.
ENDIF.
break-point.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:\poextract.xls'
 APPEND = P_APP
 WRITE_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = IT_TAB
 FIELDNAMES = IT_HEAD
 EXCEPTIONS
 FILE_WRITE_ERROR = 1
 NO_BATCH = 2
 GUI_REFUSE_FILETRANSFER = 3
 INVALID_TYPE = 4
 NO_AUTHORITY = 5
 UNKNOWN_ERROR = 6
 HEADER_NOT_ALLOWED = 7
 SEPARATOR_NOT_ALLOWED = 8
 FILESIZE_NOT_ALLOWED = 9
 HEADER_TOO_LONG = 10
 DP_ERROR_CREATE = 11
 DP_ERROR_SEND = 12
 DP_ERROR_WRITE = 13
 UNKNOWN_DP_ERROR = 14
 ACCESS_DENIED = 15
 DP_OUT_OF_MEMORY = 16
 DISK_FULL = 17
 DP_TIMEOUT = 18
 FILE_NOT_FOUND = 19
 DATAPROVIDER_EXCEPTION = 20
 CONTROL_FLUSH_ERROR = 21
 OTHERS = 22.
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. " DOWNLOAD_DATA

HI HILEMEN,
in 4.7 we have option to download the data ,like this
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
 filename =
FILETYPE = 'ASC'
APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH =
tables
 data_tab =
FIELDNAMES =
any how i need the filed names in the header ,in excel sheet i need column heading but it is not comming can any body tell.

Alv output splitting into two rows when converting into excel sheet.

Hi frends,
I have alv report with 60 fields . The report output is coming currently . But when i am exporting into excel sheet from the option local file--> speadsheet each row is splitting into two rows including header in excel sheet.
Please provide your valuable suggestions to avoid this.
Regards,
Ramu .
Edited by: Ramu.K on Sep 8, 2009 5:59 PM

Hi,
Please use the grid option and with the Spreadsheet button (CntrShiftF7). Do "Save as" and save it as excel. It should work.
Regards,
Pradyumna

Header and footer in excel sheet (ole object)

How can we generate footer and header in an excel sheet with ole object ?
Thanks

hi brian,
Excel Upload Alternative - KCD_EXCEL_OLE_TO_INT_CONVERT
*Title : Excel Uploading
TYPES: BEGIN OF t_datatab,
 col1(25) TYPE c,
 col2(30) TYPE c,
 col3(30) TYPE c,
 col4(30) TYPE c,
 col5(30) TYPE c,
 col6(30) TYPE c,
 col7(30) TYPE c,
 col8(30) TYPE c,
 col9(30) TYPE c,
 col10(30) TYPE c,
 col11(30) TYPE c,
 END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab INITIAL SIZE 0,
 wa_datatab TYPE t_datatab.
Data : p_table type t_datatab occurs 0 with header line.
DATA : gd_scol TYPE i VALUE '1',
 gd_srow TYPE i VALUE '1',
 gd_ecol TYPE i VALUE '256',
 gd_erow TYPE i VALUE '65536'.
DATA: it_tab TYPE filetable,
 gd_subrc TYPE i.
field-symbols : <fs>.
*Selection screen definition
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename
 DEFAULT 'c:\test.xls' OBLIGATORY. " File Name
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
 EXPORTING
 window_title = 'Select File'
 default_filename = '*.xls'
 multiselection = ' '
 CHANGING
 file_table = it_tab
 rc = gd_subrc.
LOOP AT it_tab INTO p_file.
 so_fpath-sign = 'I'.
 so_fpath-option = 'EQ'.
 append so_fpath.
ENDLOOP.
START-OF-SELECTION.
PERFORM upload_excel_file TABLES it_datatab
 USING p_file
 gd_scol
 gd_srow
 gd_ecol
 gd_erow.
END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
 WRITE:/ wa_datatab-col1,
 wa_datatab-col2,
 wa_datatab-col3,
 wa_datatab-col4,
 wa_datatab-col5,
 wa_datatab-col6,
 wa_datatab-col7,
 wa_datatab-col8,
 wa_datatab-col9,
 wa_datatab-col10,
 wa_datatab-col11.
ENDLOOP.
*& Form UPLOAD_EXCEL_FILE
 upload excel spreadsheet into internal table
 -->P_TABLE Table to return excel data into
 -->P_FILE file name and path
 -->P_SCOL start column
 -->P_SROW start row
 -->P_ECOL end column
 -->P_EROW end row
FORM upload_excel_file TABLES p_table
 USING p_file
 p_scol
 p_srow
 p_ecol
 p_erow.
DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
Has the following format:
 Row number | Colum Number | Value
 i.e. 1 1 Name1
 2 1 Joe
DATA : ld_index TYPE i.
Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
 EXPORTING
 filename = p_file
 i_begin_col = p_scol
 i_begin_row = p_srow
 i_end_col = p_ecol
 i_end_row = p_erow
 TABLES
 intern = LT_INTERN
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 FORMAT COLOR COL_BACKGROUND INTENSIFIED.
 WRITE:/ 'Error Uploading file'.
 EXIT.
ENDIF.
IF lt_intern[] IS INITIAL.
 FORMAT COLOR COL_BACKGROUND INTENSIFIED.
 WRITE:/ 'No Data Uploaded'.
 EXIT.
ELSE.
 SORT lt_intern BY row col.
 LOOP AT lt_intern.
 MOVE lt_intern-col TO ld_index.
 assign component ld_index of structure
 p_table to <fs>.
move : lt_intern-value to <fs>.
 MOVE lt_intern-value TO p_table.
 AT END OF row.
 APPEND p_table.
 CLEAR p_table.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. "UPLOAD_EXCEL_FILE
thanks
abdul

How can i bring the column heading downloaded in excel sheet?

hi all,
I am using FM SAP_CONVERT_TO_XLS_FORMAT to downloading populated internal table data into excel sheet by using filename type rlgrap-filename.
Now I need the column heading(field name) for downloaded data in excel sheet.
pls tell me how can i merge the col heading with data perfectly. Is there any FM fulfills this requirement.
pls give me a suitable approch.
Thanks
PRR

HI,
Go thru this code.
REPORT ZRMM0056 NO STANDARD PAGE HEADING
 MESSAGE-ID ZZ
 LINE-SIZE 300
 LINE-COUNT 65.
Program : ZRMM0056
Title : Non Inventory PO's
Description : Non Inventory Purchase Orders details with
 Vendor and Invoice Receipts and Goods Receipts.
Input :
 Select-options : 1. G/L Account No
 Parameters : 1.File Paths for the Excel sheet
 Others (Specify):
Output : Extract Files in the application server
 Report :
Hear Ticket # : 113392
Created by : Srinivas Rao.M
Created on : 12/15/2005
Version : 1
Request : D10K944304
Transaction Code : Z420
Change History *
Date Programmer Search String Description *
12/19/2005 Srinivas D10K944316 Removed Purchasing document
 Company code and Plant from
 Select-Options and Inculded
 G/L Account No and changed
 code accordingly.
T A B L E S *
TABLES: EKBE, " History of Purchasing Document
 EKPO, " Purchasing Document Item
 EKKO, " Purchasing Document Header
 LFA1, " Vendor master (general section)
 EKKN. " Account Assignment in Purchasing Doc
 INTERNAL TABLES
*--Internal table to store Purchasing document header data
DATA : BEGIN OF IT_POHEADER OCCURS 0,
 EBELN LIKE EKKO-EBELN, "Purchasing document
 AEDAT LIKE EKKO-AEDAT, "Created on
 ERNAM LIKE EKKO-ERNAM, "Created by
 LIFNR LIKE EKKO-LIFNR, "Vendor
 END OF IT_POHEADER.
*--Internal table to store Purchasing document Item data
DATA : BEGIN OF IT_POITEM OCCURS 0,
 EBELN LIKE EKPO-EBELN, "Purchasing document
 EBELP LIKE EKPO-EBELP, "Item Number
 MATNR LIKE EKPO-MATNR, "Material number
 BUKRS LIKE EKPO-BUKRS, "Company code
 WERKS LIKE EKPO-WERKS, "Plant
 MATKL LIKE EKPO-MATKL, "Material Group
 MENGE LIKE EKPO-MENGE, "Order Quantity
 NETPR LIKE EKPO-NETPR, "Net Price
 PEINH LIKE EKPO-PEINH, "Price unit
 NETWR LIKE EKPO-NETWR, "Net Value
 END OF IT_POITEM.
*--Internal table to hold final display data.
DATA : BEGIN OF IT_FINAL OCCURS 0,
 EBELN LIKE EKKO-EBELN, "Purchasing document
 EBELP LIKE EKPO-EBELP, "Item Number
 AEDAT LIKE EKKO-AEDAT, "Created on
 ERNAM LIKE EKKO-ERNAM, "Created by
 MATNR LIKE EKPO-MATNR, "Material number
 BUKRS LIKE EKPO-BUKRS, "Company code
 WERKS LIKE EKPO-WERKS, "Plant
 MATKL LIKE EKPO-MATKL, "Material Group
 MENGE LIKE EKPO-MENGE, "Order Quantity
 NETPR LIKE EKPO-NETPR, "Net Price
 PEINH LIKE EKPO-PEINH, "Price unit
 NETWR LIKE EKPO-NETWR, "Net Value
 LIFNR LIKE EKKO-LIFNR, "Vendor
 NAME1 LIKE LFA1-NAME1, "Vendor Name
 GSBER LIKE EKKN-GSBER, "Business area
*--IR details
 IR_BELNR LIKE EKBE-BELNR, "IR-Number of Material Document
 IR_BUZEI LIKE EKBE-BUZEI, "IR-Item in material Document
 IR_BUDAT LIKE EKBE-BUDAT, "IR-Posting date
 IR_MENGE LIKE EKBE-MENGE, "IR-Quantity
*--GR details
 GR_BELNR LIKE EKBE-BELNR, "GR-Number of Material Document
 GR_BUZEI LIKE EKBE-BUZEI, "GR-Item in material Document
 GR_BUDAT LIKE EKBE-BUDAT, "GR-Posting date
 GR_MENGE LIKE EKBE-MENGE, "GR-Quantity
 END OF IT_FINAL.
*--Internal table to store History per Purchasing Document data
DATA : BEGIN OF IT_HISTORY OCCURS 0,
 EBELN LIKE EKBE-EBELN, "Purchasing document
 EBELP LIKE EKBE-EBELP, "Item
 VGABE LIKE EKBE-VGABE, "Trans/Event type
 BELNR LIKE EKBE-BELNR, "Number of Material Document
 BUZEI LIKE EKBE-BUZEI, "Item in material Document
 BUDAT LIKE EKBE-BUDAT, "Posting date
 MENGE LIKE EKBE-MENGE, "Quantity
 BEWTP LIKE EKBE-BEWTP, "Posting history category
 END OF IT_HISTORY.
*--Internal table to store vendor name.
DATA : BEGIN OF IT_VENDOR OCCURS 0,
 LIFNR LIKE LFA1-LIFNR, "Vendor Number
 NAME1 LIKE LFA1-NAME1, "Vendor Name
 END OF IT_VENDOR.
*--Internal table to store Business area for Purchasing document
DATA : BEGIN OF IT_BUSINESS OCCURS 0,
 EBELN LIKE EKKN-EBELN, "Purchasing document
 EBELP LIKE EKKN-EBELP, "Purchasing Item
 SAKTO LIKE EKKN-SAKTO, "G/L Account No
 GSBER LIKE EKKN-GSBER, "Business area
 END OF IT_BUSINESS.
DATA : BEGIN OF FIELDNAMES OCCURS 0,
 TEXT(40),
 END OF FIELDNAMES.
 VARIABLES DECLARATION *
DATA: V_FILE LIKE IBIPPARMS-PATH, "File path
 V_FLD LIKE DYNPREAD-FIELDNAME, "Dynpread fieldname
 V_FLAG(1) VALUE SPACE. "FLAG VARIABLE
 SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK S1 WITH FRAME TITLE TEXT-001.
*--Begin of change D10K944316
SELECT-OPTIONS : S_SAKTO FOR EKKN-SAKTO. "G/L Accoun no.
*--End of change D10K944316
SELECTION-SCREEN END OF BLOCK S1.
SELECTION-SCREEN BEGIN OF BLOCK S2 WITH FRAME TITLE TEXT-002.
PARAMETERS : P_EXCEL AS CHECKBOX DEFAULT ' ' . " download to excel
PARAMETERS : C_FILE(128) DEFAULT : 'C:\ZRMM0056.xls'.
SELECTION-SCREEN END OF BLOCK S2.
A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR C_FILE.
*-Form to get file path for download of data
PERFORM GET_FILE_PATH.
AT SELECTION-SCREEN.
PERFORM SCREEN_VALIDATIONS.
START-OF-SELECTION
START-OF-SELECTION.
*--Extract Purchasing document header data.
 PERFORM GET_PO_HEADER_DATA.
*--Extract Purchasing document Item data.
 IF NOT IT_BUSINESS[] IS INITIAL.
 PERFORM GET_PO_ITEM_DATA.
*--Get complete required data in final internal table
 PERFORM GET_FINAL_DATA.
 ENDIF.
END-OF-SELECTION
END-OF-SELECTION.
IF V_FLAG IS INITIAL.
*--Display Purchasing document details
 IF NOT IT_FINAL[] IS INITIAL.
 PERFORM DISPLAY_PODATA.
 IF P_EXCEL = 'X'.
*--To down load data to excel sheet
 PERFORM DOWN_LOAD_TO_EXCEL.
 ENDIF.
 ENDIF.
ELSE.
 MESSAGE I001(ZZ) WITH 'No data found'(003).
ENDIF.
TOP-OF-PAGE
TOP-OF-PAGE.
*--To display page header
PERFORM PAGE_HEADER.
*& Form GET_PO_HEADER_DATA
 To Get Purchasing header data
FORM GET_PO_HEADER_DATA .
*--To extract Business Area details
 CLEAR IT_BUSINESS.
 REFRESH IT_BUSINESS.
 SELECT EBELN "Purchasing document
 EBELP "Purchasing document item
 SAKTO "G/L Account no
 GSBER "Business area
 FROM EKKN
 INTO TABLE IT_BUSINESS
 WHERE SAKTO IN S_SAKTO.
IF SY-SUBRC <> 0.
 V_FLAG = 'X'.
 MESSAGE I001(ZZ) WITH
 'No data selected for the given selection criteria'(004).
 STOP.
ELSE.
*--To extract Purchasing document details with respect
to G/L Account no
 CLEAR IT_POHEADER.
 REFRESH IT_POHEADER.
 SELECT EBELN "Purchasing document
 AEDAT "Created on
 ERNAM "Created by
 LIFNR "Vendor
 FROM EKKO
 INTO TABLE IT_POHEADER
 FOR ALL ENTRIES IN IT_BUSINESS
 WHERE EBELN = IT_BUSINESS-EBELN.
 IF NOT IT_POHEADER[] IS INITIAL.
 CLEAR IT_VENDOR.
 REFRESH IT_VENDOR.
*--Extracting Vendor details
 SELECT LIFNR "Vendor #
 NAME1 "Name
 FROM LFA1
 INTO TABLE IT_VENDOR
 FOR ALL ENTRIES IN IT_POHEADER
 WHERE LIFNR = IT_POHEADER-LIFNR.
 ENDIF.
ENDIF.
ENDFORM. " GET_PO_HEADER_DATA
*& Form GET_PO_ITEM_DATA
 To extract Purchasing document item data
FORM GET_PO_ITEM_DATA .
CLEAR IT_POITEM.
REFRESH IT_POITEM.
 SELECT EBELN "Purchasing document
 EBELP "Item Number
 MATNR "Material number
 BUKRS "Company code
 WERKS "Plant
 MATKL "Material Group
 MENGE "Order Quantity
 NETPR "Net Price
 PEINH "Price unit
 NETWR "Net Value
 FROM EKPO
 INTO TABLE IT_POITEM
 FOR ALL ENTRIES IN IT_BUSINESS
 WHERE EBELN = IT_BUSINESS-EBELN
 AND EBELP = IT_BUSINESS-EBELP.
IF NOT IT_POITEM[] IS INITIAL.
 CLEAR IT_HISTORY.
 REFRESH IT_HISTORY.
 SELECT EBELN "Purchasing document
 EBELP "Item
 VGABE "Trans/Event type
 BELNR "Number of Material Document
 BUZEI "Item in material Document
 BUDAT "Posting date
 MENGE "Quantity
 BEWTP "Posting history category
 FROM EKBE
 INTO TABLE IT_HISTORY
 FOR ALL ENTRIES IN IT_POITEM
 WHERE EBELN = IT_POITEM-EBELN
 AND EBELP = IT_POITEM-EBELP
 AND ( VGABE = '1' OR VGABE = '2' ) "1 = GR , 2 = IR
 AND ( BEWTP = 'Q' OR BEWTP = 'E' ). "Q = GR , R = IR
 IF SY-SUBRC = 0.
 SORT IT_HISTORY BY EBELN EBELP.
 ENDIF.
ENDIF.
ENDFORM. " GET_PO_ITEM_DATA
*& Form GET_FILE_PATH
 Select file path
FORM GET_FILE_PATH .
CLEAR V_FILE.
MOVE 'p_flname' TO V_FLD.
MOVE C_FILE TO V_FILE.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = SYST-CPROG
 DYNPRO_NUMBER = SYST-DYNNR
 FIELD_NAME = V_FLD
 IMPORTING
 FILE_NAME = V_FILE
 EXCEPTIONS
 OTHERS = 1.
MOVE V_FILE TO C_FILE.
ENDFORM. " GET_FILE_PATH
*& Form PAGE_HEADER
 To Print page header and other details
FORM PAGE_HEADER .
*--Page Header
ULINE AT /1(300).
FORMAT COLOR 1.
WRITE:/ 'Run Date:'(005), SY-DATUM, 45 'Stanley Works'(006),
 100 'Page No:'(007), SY-PAGNO LEFT-JUSTIFIED, 298 ''.
WRITE:/ 'Run Time:'(008), SY-UZEIT, 43 SY-TITLE, 100 SY-UNAME, 298 ''.
WRITE:/ 'Source :'(009), SY-SYSID, 100 SY-CPROG, 298 ''.
FORMAT COLOR OFF.
ULINE AT /1(300).
FORMAT COLOR 4.
WRITE : / SY-VLINE , (10) 'Purchasing Doc'(010),
 SY-VLINE, (5) 'Item'(011),
 SY-VLINE, (10) 'Created On'(012),
 SY-VLINE, (7) 'Crea By'(013),
 SY-VLINE, (10) 'Material'(014),
 SY-VLINE, (6) 'Com cd'(015),
 SY-VLINE, (5) 'Plant'(016),
 SY-VLINE, (10) 'Mat Group'(017),
 SY-VLINE, (13) 'Order Qty'(018),
 SY-VLINE, (11) 'Net Price'(019),
 SY-VLINE, (10) 'Price Unit'(020),
 SY-VLINE, (13) 'Net Value'(021),
 SY-VLINE, (8) 'Bus Area'(022),
 SY-VLINE, (10) 'Vendor'(023),
 SY-VLINE, (28) 'Vendor Name'(024),
*--IR details
 SY-VLINE, (10) 'IR-Mat Doc'(025),
 SY-VLINE, (5) 'IR-It'(026),
 SY-VLINE, (9) 'IR-Post dt'(027),
 SY-VLINE, (13) 'IR-Quantity'(028),
*--GR details
 SY-VLINE, (10) 'GR-Mat Doc'(029),
 SY-VLINE, (5) 'GR-It'(030),
 SY-VLINE, (9) 'GR-Post dt'(031),
 SY-VLINE, (13) 'GR-Quantity'(032), SY-VLINE.
FORMAT COLOR OFF.
ULINE AT /1(300).
ENDFORM. " PAGE_HEADER
*& Form SCREEN_VALIDATIONS
 Selection screen validations
FORM SCREEN_VALIDATIONS .
*--Validation for G/L Account No
IF NOT S_SAKTO IS INITIAL.
 SELECT SAKNR UP TO 1 ROWS
 INTO EKKN-SAKTO
 FROM SKA1 WHERE
 SAKNR IN S_SAKTO.
 ENDSELECT.
 IF SY-SUBRC <> 0.
 MESSAGE E001(ZZ) with 'Please enter a valid G/L Account no'(048).
 ENDIF.
ENDIF.
*--Validation for Excel file path
IF P_EXCEL = 'X'.
 IF C_FILE = ' '.
 MESSAGE E001(ZZ) with 'Please enter a valid Excle Path'(035).
 ENDIF.
ENDIF.
ENDFORM. " SCREEN_VALIDATIONS
*& Form DISPLAY_PODATA
 To Display Purchasing Document details
FORM DISPLAY_PODATA .
FORMAT COLOR 2.
SORT IT_FINAL BY EBELN EBELP AEDAT BUKRS WERKS.
LOOP AT IT_FINAL.
 WRITE : / SY-VLINE ,(10) IT_FINAL-EBELN, "Purchasing Doc
 SY-VLINE, (5) IT_FINAL-EBELP, "Item
 SY-VLINE, (10) IT_FINAL-AEDAT, "Created On
 SY-VLINE, (7) IT_FINAL-ERNAM, "Created By
 SY-VLINE, (10) IT_FINAL-MATNR, "Material
 SY-VLINE, (6) IT_FINAL-BUKRS, "Company code
 SY-VLINE, (5) IT_FINAL-WERKS, "Plant
 SY-VLINE, (10) IT_FINAL-MATKL, "Material Group
 SY-VLINE, (13) IT_FINAL-MENGE, "#EC UOM_IN_MES
 "Order Qty
 SY-VLINE, (11) IT_FINAL-NETPR, "#EC UOM_IN_MES
 "Net Price
 SY-VLINE, (10) IT_FINAL-PEINH, "#EC UOM_IN_MES
 "Price Unit
 SY-VLINE, (13) IT_FINAL-NETWR, "#EC UOM_IN_MES
 "Net Value
 SY-VLINE, (8) IT_FINAL-GSBER, "Bus Area
 SY-VLINE, (10) IT_FINAL-LIFNR, "Vendor
 SY-VLINE, (28) IT_FINAL-NAME1, "Vendor name
*--IR details
 SY-VLINE, (10) IT_FINAL-IR_BELNR, "IR-Mat Doc
 SY-VLINE, (5) IT_FINAL-IR_BUZEI, "IR-It
 SY-VLINE, (9) IT_FINAL-IR_BUDAT, "IR-Post dt
 SY-VLINE, (13) IT_FINAL-IR_MENGE, "#EC UOM_IN_MES
 "IR-Quantity
*--GR details
 SY-VLINE, (10) IT_FINAL-GR_BELNR, "GR-Mat Doc
 SY-VLINE, (5) IT_FINAL-GR_BUZEI, "GR-It
 SY-VLINE, (9) IT_FINAL-GR_BUDAT, "GR-Post dt
 SY-VLINE, (13) IT_FINAL-GR_MENGE, SY-VLINE.
 "#EC UOM_IN_MES
 "GR-Quantity
ENDLOOP.
FORMAT COLOR OFF.
ENDFORM. " DISPLAY_PODATA
*& Form DOWN_LOAD_TO_EXCEL
 text
FORM DOWN_LOAD_TO_EXCEL .
REFRESH FIELDNAMES.
FIELDNAMES-TEXT = TEXT-010.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-011.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-012.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Created By'(036).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-014.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Company Code'(037).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-016.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Material Group'(038).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Order Quantity'(039).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-019.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-020.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-021.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Business Area'(040).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-023.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-024.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Material Doc'(041).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Item'(042).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Posting Date'(043).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-028.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Material Doc'(044).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Item'(045).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Posting Date'(046).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-032.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
*--FM to download data to Excel sheet
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = C_FILE
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = IT_FINAL
 FIELDNAMES = FIELDNAMES
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 GUI_REFUSE_FILETRANSFER = 8
 OTHERS = 9.
IF SY-SUBRC <> 0.
 MESSAGE E001(ZZ) WITH 'Data could not downloaded'(047).
ENDIF.ENDFORM. " DOWN_LOAD_TO_EXCEL
*& Form GET_FINAL_DATA
 To Populate required data in final internal table
FORM GET_FINAL_DATA .
CLEAR IT_FINAL.
REFRESH IT_FINAL.
LOOP AT IT_POITEM.
 CLEAR IT_POHEADER.
 READ TABLE IT_POHEADER WITH KEY EBELN = IT_POITEM-EBELN.
 IF SY-SUBRC = 0.
 MOVE : IT_POHEADER-EBELN TO IT_FINAL-EBELN, "Purchasing Doc
 IT_POITEM-EBELP TO IT_FINAL-EBELP, "Item
 IT_POHEADER-AEDAT TO IT_FINAL-AEDAT, "Created On
 IT_POHEADER-ERNAM TO IT_FINAL-ERNAM, "Created By
 IT_POITEM-MATNR TO IT_FINAL-MATNR, "Material
 IT_POITEM-BUKRS TO IT_FINAL-BUKRS, "Company code
 IT_POITEM-WERKS TO IT_FINAL-WERKS, "Plant
 IT_POITEM-MATKL TO IT_FINAL-MATKL, "Material Group
 IT_POITEM-MENGE TO IT_FINAL-MENGE, "Order Qty
 IT_POITEM-NETPR TO IT_FINAL-NETPR, "Net Price
 IT_POITEM-PEINH TO IT_FINAL-PEINH, "Price Unit
 IT_POITEM-NETWR TO IT_FINAL-NETWR, "Net Value
 IT_POHEADER-LIFNR TO IT_FINAL-LIFNR. "Vendor
*--To Insert IR details
 CLEAR IT_HISTORY.
 READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
 EBELP = IT_POITEM-EBELP
 VGABE = '2'
 BEWTP = 'Q'.
 IF SY-SUBRC = 0.
 MOVE :
 IT_HISTORY-BELNR TO IT_FINAL-IR_BELNR, "IR-Number of Mat Doc
 IT_HISTORY-BUZEI TO IT_FINAL-IR_BUZEI, "IR-Item in mat Doc
 IT_HISTORY-BUDAT TO IT_FINAL-IR_BUDAT, "IR-Posting date
 IT_HISTORY-BUDAT TO IT_FINAL-IR_MENGE. "IR-Quantity
 ENDIF.
*--To insert GR details
 CLEAR IT_HISTORY.
 READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
 EBELP = IT_POITEM-EBELP
 VGABE = '1'
 BEWTP = 'E'.
 IF SY-SUBRC = 0.
 MOVE :
 IT_HISTORY-BELNR TO IT_FINAL-GR_BELNR, "IR-Number of Mat Doc
 IT_HISTORY-BUZEI TO IT_FINAL-GR_BUZEI, "IR-Item in mat Doc
 IT_HISTORY-BUDAT TO IT_FINAL-GR_BUDAT, "IR-Posting date
 IT_HISTORY-BUDAT TO IT_FINAL-GR_MENGE. "IR-Quantity
 ENDIF.
*--To insert Vendor details
 CLEAR IT_VENDOR.
 READ TABLE IT_VENDOR WITH KEY LIFNR = IT_POHEADER-LIFNR.
 IF SY-SUBRC = 0.
 MOVE : IT_VENDOR-NAME1 TO IT_FINAL-NAME1.
 ENDIF.
*--To insert Business area
 CLEAR IT_BUSINESS.
 READ TABLE IT_BUSINESS WITH KEY EBELN = IT_POITEM-EBELN
 EBELP = IT_POITEM-EBELP.
 IF SY-SUBRC = 0.
 MOVE : IT_BUSINESS-GSBER TO IT_FINAL-GSBER.
 ENDIF.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_FINAL_DATA
thanks
Sunil

ALV List header shifting to next coloumn when transfer to excel sheet

Hi,
When i am transferring the data to excel sheet like
After Executing click LOCAL FILE then click on spreadsheet RADIO BUTTON. My header is shifting one right colomn.
I tried with COL_len but my issued is not resolved
REPORT ZTEST_AMIT no standard page heading line-size 350. .
TYPE-POOLS: SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 L_LAYOUT type slis_layout_alv,
 x_events type slis_alv_event,
 it_events type SLIS_T_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
 VBELN LIKE VBAK-VBELN,
 POSNR LIKE VBAP-POSNR,
 MALE(40) type c,
 female(20) type c,
 END OF ITAB.
SELECT VBELN
 POSNR
 FROM VBAP
 UP TO 20 ROWS
 INTO TABLE ITAB.
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-SELTEXT_L = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-SELTEXT_L = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'MALE'.
X_FIELDCAT-SELTEXT_L = 'MALE'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 3.
x_fieldcat-outputlen = 10.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'FEMALE'.
X_FIELDCAT-SELTEXT_L = 'FEMALE'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 4.
x_fieldcat-just = 'C'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
x_events-NAME = SLIS_EV_TOP_OF_PAGE.
x_events-FORM = 'TOP_OF_PAGE'.
APPEND x_events TO iT_EVENTS.
CLEAR x_events .
L_LAYOUT-NO_COLHEAD = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
 I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
 IS_LAYOUT = l_layout
 IT_FIELDCAT = it_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = it_events
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
 t_outtab = itab
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.
FORM TOP_OF_PAGE.
*-To display the headers for main list
 FORMAT COLOR COL_HEADING.
 WRITE: / SY-ULINE(45).
 WRITE: / SY-VLINE,
 (8) ' ' ,
 SY-VLINE,
 (8) ' ' ,
 SY-VLINE,
 (19) '***'(015) centered,
 sy-vline.
 WRITE: / SY-VLINE,
(8) 'VBELN' ,
 SY-VLINE,
(8) 'POSNR'(014) ,
 SY-VLINE,
 (8) 'MALE'(020) ,
 sy-vline,
 (8) 'FMALE'(015) ,
 sy-vline.
 FORMAT COLOR OFF.
ENDFORM.
Message was edited by: amit teja
Message was edited by: amit teja
Message was edited by: amit teja
Message was edited by: amit teja

for sorting
for the para meter: IT_SORT in FM
take that type as: SLIS_SORTINFO_ALV
and for the fileds give d valus as per ur requirement...
fileds r: SPOS
 FIELDNAME
 TABNAME
 UP
 DOWN
 GROUP
 SUBTOT
 COMP
 EXPA
 OBLIGATORY
ramesh.

Truncation of Heading characters when an ALV is exported to an excel sheet

Hi All,
I am facing a problem while printing an ALV output on to an excel sheet. In the header the last characters are being truncated in the excel.
Now, I have the entire data in tb_output itab. So using REUSE_ALV*, i printed the output. Here comes the problem.
I heard about LIST_FROM_MEMORY and LIST_TO_ASCI which can solve this problem. But not much sure how to use those. Whether I need to pass my itab tb_output into any of these?
Please help me out from this problem.
Thanks a lot.
Regards,
Seenu

Hi!
You have 2 options:
1. Shorten your headings so that their length is LE to the fieldlength of the data they are displaying. E.g. for PO number maximum possible is 10.
2. Try using the parameter OUTPUTLEN in the field catalog. You can increase this to be equal to the length of your column heading.
Hope this helps.
Cheers!

Download internal table data into excel sheet with column heading and data

Hi,
I am having one internal table with column headings and other table with data.
i want to download the data with these tables into an excel sheet.
It should ask the user for file name to save it on their own name. They should give the file name in runtime and it should be downloaded into an excel sheet.
Can anyone tell what is the right function module for downloading these two internal table data with column heading and data.
what we have to do for storing the file name in runtime.
Can anyone help me on this.
Thanks,
Rose.

Hi Camila,
    Try this
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    FILENAME                        = PATH2
   FILETYPE                        = 'XLS'
TABLES
    DATA_TAB                        = IT_DATA
   FIELDNAMES                      = IT_HEADINGS
EXCEPTIONS
   FILE_WRITE_ERROR                = 1
   NO_BATCH                        = 2
   GUI_REFUSE_FILETRANSFER         = 3
   INVALID_TYPE                    = 4
   NO_AUTHORITY                    = 5
   UNKNOWN_ERROR                   = 6
   HEADER_NOT_ALLOWED              = 7
   SEPARATOR_NOT_ALLOWED           = 8
   FILESIZE_NOT_ALLOWED            = 9
   HEADER_TOO_LONG                 = 10
   DP_ERROR_CREATE                 = 11
   DP_ERROR_SEND                   = 12
   DP_ERROR_WRITE                  = 13
   UNKNOWN_DP_ERROR                = 14
   ACCESS_DENIED                   = 15
   DP_OUT_OF_MEMORY                = 16
   DISK_FULL                       = 17
   DP_TIMEOUT                      = 18
   FILE_NOT_FOUND                  = 19
   DATAPROVIDER_EXCEPTION          = 20
   CONTROL_FLUSH_ERROR             = 21
   OTHERS                          = 22

Color to the header of the excel sheet which is downloaded from report

Hi ,
According to my requirement i need to Color to the header of the excel sheet which was getting downloaded from the report output.For the downloading to the excel i am using "EXCEL_OLE_STANDARD_DAT" function module.In the report output color is getting displayed.
so suggest me how can i achieve this.
Thanks in Advance,
Kiranmai

Hello,
As far as I know, using EXCEL_OLE_STANDARD_DAT directly is not very flexible and it doesn't have any coloring options.
However, if you use OLE manually in your code, you can get color.. check this sample program
*& Report ZKRIS_OLE3_PALETTE
*& Displays the full OLE color range in excel
REPORT ZKRIS_OLE3_PALETTE.
TYPE-POOLS ole2 .
DATA: count TYPE i,
       count_real TYPE i,
       application TYPE ole2_object,
       workbook TYPE ole2_object,
       excel     TYPE ole2_object,
       sheet TYPE ole2_object,
       cells TYPE ole2_object.
CONSTANTS: row_max TYPE i VALUE 256.
DATA index TYPE i.
DATA:
      h_cell        TYPE ole2_object,        " cell
      h_f           TYPE ole2_object,        " font
      h_int         TYPE ole2_object,
      h_width       TYPE ole2_object,
      h_columns     TYPE ole2_object,
      h_rows        TYPE ole2_object,
      h_font        TYPE ole2_object,
      h_entirecol   TYPE ole2_object.
DATA: h_range       TYPE ole2_object.
DATA: h_merge       TYPE ole2_object.
CREATE OBJECT excel 'EXCEL.APPLICATION'.
IF sy-subrc NE 0.
WRITE: / 'No EXCEL creation possible'.
STOP.
ENDIF.
SET PROPERTY OF excel 'DisplayAlerts' = 0.
CALL METHOD OF excel 'WORKBOOKS' = workbook .
SET PROPERTY OF excel 'VISIBLE' = 1.
* creating workbook
SET PROPERTY OF excel 'SheetsInNewWorkbook' = 1.
CALL METHOD OF workbook 'ADD'.
CALL METHOD OF excel 'WORKSHEETS' = sheet
EXPORTING
    #1 = 1.
SET PROPERTY OF sheet 'NAME' = 'Color Palette'.
CALL METHOD OF sheet 'ACTIVATE'.
DATA: col TYPE i VALUE 1,
row TYPE i VALUE 2,
col1 TYPE i VALUE 2,
col_real TYPE i VALUE 1.
row = 1.
col = 3.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'No.'.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Background'.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Foreground with white background'.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Foreground with black background'.
CALL METHOD OF excel 'Rows' = h_rows
EXPORTING
    #1 = '2:2'.
SET PROPERTY OF h_rows 'WrapText' = 1.
col = 9.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'No.'.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Background'.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Foreground with white background'.
SET PROPERTY OF h_cell 'Bold' = 1.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = row
    #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Foreground with black background'.
CALL METHOD OF excel 'Rows' = h_rows
EXPORTING
    #1 = '1:1'.
SET PROPERTY OF h_rows 'WrapText' = 1.
GET PROPERTY OF h_rows 'Font' = h_font.
SET PROPERTY OF h_font 'Bold' = 1.
count = 1.
count_real = count.
row = 2.
col = 3.
DO 56 TIMES.
PERFORM write_num_and_color.
ENDDO.
* autofit
CALL METHOD OF excel 'Columns' = h_columns
EXPORTING
    #1 = 'C:L'.
GET PROPERTY OF h_columns 'EntireColumn' = h_entirecol.
SET PROPERTY OF h_entirecol 'Autofit' = 1.
* write palette on lhs
*range
CALL METHOD OF excel 'Range' = h_range
EXPORTING
    #1 = 'A2'
    #2 = 'A20'.
CALL METHOD OF h_range 'Merge' = h_merge .
CALL METHOD OF excel 'Cells' = h_cell
EXPORTING
    #1 = 2
    #2 = 1.
SET PROPERTY OF h_cell 'Value' = 'Palette'.
SET PROPERTY OF h_cell 'Orientation' = 90.         "angled.
SET PROPERTY OF h_cell 'HorizontalAlignment' = 3. "center align
GET PROPERTY OF h_cell 'Font'    = h_f.
SET PROPERTY OF h_f 'Bold' = 1.                    "bold
SET PROPERTY OF h_f 'Name' = 'Comic Sans MS'.
SET PROPERTY OF h_f 'Size' = '14'.
SET PROPERTY OF h_cell 'VerticalAlignment' = 2. "center align
* autofit
CALL METHOD OF excel 'Columns' = h_columns
EXPORTING
    #1 = 'A:A'.
GET PROPERTY OF h_columns 'EntireColumn' = h_entirecol.
SET PROPERTY OF h_columns 'ColumnWidth' = 4.
*&      Form write_num_and_color
*       text
FORM write_num_and_color.
index = row_max * ( row - 1 ) + col.
CALL METHOD OF sheet 'Cells' = cells
    EXPORTING
      #1 = index.
SET PROPERTY OF cells 'Value' = count_real.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
    EXPORTING
      #1 = row
      #2 = col.
GET PROPERTY OF h_cell 'Interior'   = h_int.
SET PROPERTY OF h_int 'ColorIndex' = count_real.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
    EXPORTING
      #1 = row
      #2 = col.
SET PROPERTY OF h_cell 'Value' = 'Sample Text'.
GET PROPERTY OF h_cell 'Font'    = h_f.
SET PROPERTY OF h_f 'ColorIndex' = count_real.
col = col + 1.
CALL METHOD OF excel 'Cells' = h_cell
    EXPORTING
      #1 = row
      #2 = col.
GET PROPERTY OF h_cell 'Interior'   = h_int.
SET PROPERTY OF h_int 'ColorIndex' = 1.
SET PROPERTY OF h_cell 'Value' = 'Sample Text'.
GET PROPERTY OF h_cell 'Font'    = h_f.
SET PROPERTY OF h_f 'ColorIndex' = count_real.
row = row + 1.
col = col - 3.
count = count + 1.
IF count = 29.
    count = 1.
    row = 2.
    col = col + 6.
ENDIF.
count_real = count_real + 1.
ENDFORM.                    "write_num_and_color

I want to download a report into Excel sheet with color Heading..Is it Poss

Hi All
I want to download error records into Excel sheet with color Heading..Is it Possible to download into excel with Color Heading?
here i am using the 3 sheets in one
t_error-bkpf -> Sheet1
t_error-bseg-> sheet 2
t-error-bsec -> sheet3.
Rgds
Raghav

The following thread has the code which will put data into multiple sheets
Download to multiple sheets in Excel
FOR COLOR LOGIC JUST REFER THIS PROGRAM
*& Report ZNEGI17 *
REPORT ZNEGI17 NO STANDARD PAGE HEADING.
* this report demonstrates how to send some ABAP data to an
* EXCEL sheet using OLE automation.
INCLUDE OLE2INCL.
* handles for OLE objects
DATA: H_EXCEL TYPE OLE2_OBJECT, " Excel object
H_MAPL TYPE OLE2_OBJECT, " list of workbooks
H_MAP TYPE OLE2_OBJECT, " workbook
H_ZL TYPE OLE2_OBJECT, " cell
H_F TYPE OLE2_OBJECT. " font
TABLES: SPFLI.
DATA H TYPE I.
* table of flights
DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.
*& Event START-OF-SELECTION
START-OF-SELECTION.
* read flights
SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.
* display header
ULINE (61).
WRITE: / SY-VLINE NO-GAP,
(3) 'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
(4) 'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
(20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
(20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
(8) 'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.
ULINE /(61).
* display flights
LOOP AT IT_SPFLI.
WRITE: / SY-VLINE NO-GAP,
IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,
IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.
ENDLOOP.
ULINE /(61).
* tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
* PERCENTAGE = 0
TEXT = TEXT-007
EXCEPTIONS
OTHERS = 1.
* start Excel
CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
* PERFORM ERR_HDL.
SET PROPERTY OF H_EXCEL 'Visible' = 1.
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:kis_excel.xls'
* PERFORM ERR_HDL.
* tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
* PERCENTAGE = 0
TEXT = TEXT-008
EXCEPTIONS
OTHERS = 1.
* get list of workbooks, initially empty
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
PERFORM ERR_HDL.
* add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP.
PERFORM ERR_HDL.
* tell user what is going on
* CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
* EXPORTING
** PERCENTAGE = 0
* TEXT = TEXT-009
* EXCEPTIONS
* OTHERS = 1.
* output column headings to active Excel sheet
PERFORM FILL_CELL1 USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL1 USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL1 USING 1 3 1 'Von'(003).
PERFORM FILL_CELL1 USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL1 USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
* copy flights to active EXCEL sheet
H = SY-TABIX + 1.
PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
* changes by Kishore - start
* CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTING #1 = 2.
PERFORM ERR_HDL.
* add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP EXPORTING #1 = 2.
PERFORM ERR_HDL.
* tell user what is going on
SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
* CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
* EXPORTING
** PERCENTAGE = 0
* TEXT = TEXT-009
* EXCEPTIONS
* OTHERS = 1.
* output column headings to active Excel sheet
PERFORM FILL_CELL1 USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL1 USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL1 USING 1 3 1 'Von'(003).
PERFORM FILL_CELL1 USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL1 USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
* copy flights to active EXCEL sheet
H = SY-TABIX + 1.
PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
* changes by Kishore - end
* disconnect from Excel
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'C:SKV.XLS'.
FREE OBJECT H_EXCEL.
PERFORM ERR_HDL.
* FORM FILL_CELL *
* sets cell at coordinates i,j to value val boldtype bold *
FORM FILL_CELL1 USING I J BOLD VAL.
data : color(5) type x value 'H80000008'.
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
PERFORM ERR_HDL.
SET PROPERTY OF H_ZL 'Value' = VAL .
PERFORM ERR_HDL.
GET PROPERTY OF H_ZL 'Font' = H_F.
PERFORM ERR_HDL.
SET PROPERTY OF H_F 'Bold' = BOLD .
PERFORM ERR_HDL.
SET PROPERTY OF H_F 'ColorIndex' = 3 .
PERFORM ERR_HDL.
ENDFORM.
*& Form ERR_HDL
* outputs OLE error if any *
* --> p1 text
* <-- p2 text
FORM ERR_HDL.
IF SY-SUBRC <> 0.
WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
STOP.
ENDIF.
ENDFORM. " ERR_HDL
*& Form FILL_CELL1
* text
* -->P_H text
* -->P_1 text
* -->P_0 text
* -->P_IT_SPFLI_CARRID text
form FILL_CELL using I J BOLD VAL.
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
PERFORM ERR_HDL.
SET PROPERTY OF H_ZL 'Value' = VAL .
PERFORM ERR_HDL.
GET PROPERTY OF H_ZL 'Font' = H_F.
PERFORM ERR_HDL.
endform. " FILL_CELL1
kishan negi

Header in EXCEL Sheet

Similar Messages

Maybe you are looking for