To download a list output to excel sheet

Hi All,
I am running the transaction MD47 for Product Group Planning.
I get a list output with as many as 90 columns.
When I try to download the output into an excel (System > List > Save > Local File ) only the columns which appear on the screen are being downloaded. Does any one have pointers on how can I download the whole list into an excel?
Regards,
Karthik

Hey Gabriel,
I am doing good. How are you today?
How do I do that?
This is a list output not an ALV. I dint find any option to choose an ALV layout.
Regards,
Karthik

Similar Messages

Formatting problem when downloading classical report output to excel sheet.

Dear Experts,
My classical report o/p looks like:
SI    Name   ID
1      xyz     11
2      abc     22
3      eet      33
4      jnc      44
When I download the same to a excel sheet from List->Save->file->Spreadsheet and save it.
The formatting looks like this:
SI   Name   ID
1     xyz               11
2     abc               22
3     eet                33
4     inc                44
That is the heading and column entries are in different columns.
There is no GUI_Download used.
Kindly help what may be the issue.

Hi,
In the report output the formatting looks fine. It is exactly below the heading. But only when I save it to excel, this alignment issue is coming. Even the columns after this column are are properly aligned and there is no issue at all. Only this column in the middle has issue.

Regarding Downloading of Report[List] output into Excel Sheet

Hi All,
Hi i have written one Classical report. I got the output Correctly.
Now i want to download that data into Excel Sheet in excatly the way it displayed in List[Report] output.
I had followed the path System->List->Save->LocalFile->Spread Sheet and tried to download the same.
Though it is downloaded it has not come in exact format.
Now what i want is to add a button above that report & write a program in that to download that data into Excel Sheet.
Can anybody tell me how can solve this issue. If i follow above procedure will the data[List Output] be downloaded into exact format into excel.
If anybody knows other way please sujjest.
Thanks in advance.
Thanks & Regards,
Prasad.

Hi Prasad,
I have done a program which downloads the output in the excel sheet in the correct format.
Just check the program. The code given in bold is what you have to use.
REPORT zexp MESSAGE-ID f4 LINE-SIZE 195.
 Tables Used ***********************************
TABLES : bseg, bkpf, bsak, lfa1, payr .
Declaring Internal Tables **************************
DATA :
Internal table to hold header data *************
BEGIN OF header OCCURS 0,
 ext_date(10) TYPE c,
 delimit(1) TYPE c,
 ext_time(8) TYPE c,
END OF header,
Internal table to hold detail info **************
BEGIN OF i_data OCCURS 0,
 belnr LIKE bsak-belnr,
 gjahr LIKE bsak-gjahr,
 bukrs LIKE bsak-bukrs,
 bldat LIKE bsak-bldat,
 xblnr LIKE bsak-xblnr,
 blart LIKE bsak-blart,
 augdt LIKE bsak-augdt,
 augbl LIKE bsak-augbl,
 wrbtr LIKE bsak-wrbtr,
 shkzg LIKE bsak-shkzg,
 lifnr LIKE bsak-lifnr,
 name1 LIKE lfa1-name1,
 chect LIKE payr-chect,
 status(1) TYPE c,
END OF i_data,
Internal table to to collect *****************
BEGIN OF i_data1 OCCURS 0,
 belnr LIKE bsak-belnr,
 gjahr LIKE bsak-gjahr,
 bukrs LIKE bsak-bukrs,
 bldat LIKE bsak-bldat,
 xblnr LIKE bsak-xblnr,
 blart LIKE bsak-blart,
 augdt LIKE bsak-augdt,
 augbl LIKE bsak-augbl,
 wrbtr LIKE bsak-wrbtr,
 shkzg LIKE bsak-shkzg,
 lifnr LIKE bsak-lifnr,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
 chect LIKE payr-chect,
 status(1) TYPE c,
END OF i_data1,
String variables for formatting file data *************
 fidoc_year TYPE string,
 comp_code TYPE string,
 check_numbr TYPE string,
 vendor TYPE string,
 inv_date TYPE string,
 inv_nbr TYPE string,
 paid_dat TYPE string,
 inv_amt TYPE string,
 status TYPE string,
 ref_doc TYPE string,
************Internal table to store the file contents **************
BEGIN OF i_final_file OCCURS 0,
 record(300) TYPE c,
END OF i_final_file,
Internal table to store the list of allowed document types ****
BEGIN OF i_doctype OCCURS 0,
 blart LIKE bsak-blart,
END OF i_doctype,
Internal table to hold vendor information ************
BEGIN OF i_lfa1 OCCURS 0,
 lifnr LIKE lfa1-lifnr,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
END OF i_lfa1,
Internal table to hold check information *************
BEGIN OF i_payr OCCURS 0,
 chect LIKE payr-chect,
 vblnr LIKE payr-vblnr,
 gjahr LIKE payr-gjahr,
 zbukr LIKE payr-zbukr,
END OF i_payr.
Data declarations **************************
DATA : ws_stblg TYPE bkpf-stblg,
 todate TYPE bsak-augdt,
 fromdate TYPE bsak-augdt,
 w_day LIKE dtresr-weekday,
 day LIKE scal-indicator,
 d TYPE n,
 e_date LIKE sy-datum,
 e_time LIKE sy-uzeit,
 dd(2) TYPE c,
 mm(2) TYPE c,
 yy(4) TYPE c,
 hh(2) TYPE c,
 min(2) TYPE c,
 sec(2) TYPE c.
DATA : wa_filepath(50) TYPE c,
 wa_filename(50) TYPE c,
 wa_c_filename(100) TYPE c,
 arch_path(50) TYPE c.
* Data for downloading to list
DATA : list LIKE TABLE OF abaplist WITH HEADER LINE.
DATA : BEGIN OF list_asc OCCURS 0,
msg(300) TYPE c,
END OF list_asc.
DATA: BEGIN OF i_invoiceheader OCCURS 0,
name(30) TYPE c,
END OF i_invoiceheader.
RANGES dates FOR bkpf-budat.
Selection Screen ************************
SELECTION-SCREEN SKIP 2.
SELECT-OPTIONS:
 s_bukrs FOR bkpf-bukrs ,
 s_blart FOR bkpf-blart ,
 s_augdt FOR bsak-augdt. " memory id todat TO fromdat.
PARAMETERS :submit AS CHECKBOX DEFAULT ' ' .
* Download list to file.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'LIST'.
 PERFORM download.
 WHEN 'BACK'.
 EXIT.
ENDCASE.
----
 FORM download *
FORM download.
if s_augdt is initial.
dates-sign = 'I'.
dates-option = 'BT'.
dates-low = '20050901'.
dates-high = '20050920'.
APPEND dates.
else.
dates = s_augdt.
append dates.
endif.
/* Submit the same program .
SUBMIT zexp WITH s_augdt IN dates
 EXPORTING LIST TO MEMORY
 AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
 TABLES
 listobject = list
 EXCEPTIONS
 not_found = 1.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
LIST_INDEX = -1 "LIST_INDEX SY-LSIND.
TABLES
listasci = list_asc
listobject = list.
PERFORM download_file.
ENDFORM.
 FORM download_file *
FORM download_file.
DATA fname TYPE rlgrap-filename VALUE 'c:\audit_report.xls'.
DATA ftype TYPE rlgrap-filetype VALUE 'DAT'.
DATA numeric_data(10) TYPE c VALUE '0123456789'.
*Table structure should match with list output.
DATA : BEGIN OF i_data1 OCCURS 0,
 belnr(12) TYPE c,
 gjahr(6) TYPE c,
 bukrs(8) TYPE c,
 chect(13) TYPE c,
 lifnr(12) TYPE c,
 name1(37) TYPE c,
 bldat(14) TYPE c,
 xblnr(18) TYPE c,
 augdt(14) TYPE c,
 wrbtr(17) TYPE c,
 status(4) TYPE c,
 augbl(18) TYPE c,
 sortl(17) TYPE c,
 END OF i_data1.
Header record of the excel sheet.
PERFORM fill_header.
LOOP AT list_asc.
Reads lines starting from the first record in the report. All informatory statements in the report are not read.
 IF list_asc+1(10) CO numeric_data.
 i_data1 = list_asc .
 APPEND i_data1.
 ENDIF.
ENDLOOP.
Call the download function.
CALL FUNCTION 'DOWNLOAD'
 EXPORTING
 filename = fname
 filetype = ftype
 TABLES
 data_tab = i_data1
 FIELDNAMES = i_invoiceheader.
ENDFORM.
 FORM fill_header *
FORM fill_header.
i_invoiceheader-name = 'Doc Number'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Fsc Year'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Cmp Code'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Check No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Vendor No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Entered by'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Doc Date'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Ref Doc No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Clearing Date'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Amount'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Status'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Clearing Doc No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Sort field'.
APPEND i_invoiceheader.
ENDFORM. " fill_header
 Initialization *************************
INITIALIZATION.
To initialize the date parameter on the selection screen.
The date by default ranges from previous Monday to Sunday.
todate = sy-datum.
CALL FUNCTION 'DATE_COMPUTE_DAY'
 EXPORTING
 date = todate
 IMPORTING
 day = day.
d = day.
if d < 4.
 todate = sy-datum - d - 4 .
else.
 todate = sy-datum - d + 3 .
endif.
fromdate = todate - 6.
MOVE: 'BT' TO s_augdt-option,
 fromdate TO s_augdt-low,
 todate TO s_augdt-high.
APPEND s_augdt.
Start of Selection **************************
START-OF-SELECTION.
Checking the validity of the inputted dates ****************
IF s_augdt-low > sy-datum OR s_augdt-high > sy-datum.
 MESSAGE i999 WITH 'You cannot input future date'.
 EXIT.
ENDIF.
IF NOT s_bukrs IS INITIAL.
MESSAGE i999 WITH 'Program will run with input parameters in screen!!'.
ENDIF.
Initialize the header data ***********************
e_time = sy-uzeit.
MOVE e_time+0(2) TO hh.
MOVE e_time+2(2) TO min.
MOVE e_time+4(2) TO sec.
CONCATENATE hh min sec INTO header-ext_time SEPARATED BY ':'.
e_date = sy-datum.
MOVE e_date+0(4) TO yy.
MOVE e_date+4(2) TO mm.
MOVE e_date+6(2) TO dd.
CONCATENATE mm dd yy INTO header-ext_date SEPARATED BY '/'.
header-delimit = '~'.
APPEND header.
List allowed document types **********************
PERFORM fill_doc_types.
**To select the documents within the range of week or as inputted **
IF s_augdt IS INITIAL.
 MOVE: 'I' TO s_augdt-sign,
 'BT' TO s_augdt-option,
 fromdate TO s_augdt-low,
 todate TO s_augdt-high.
 APPEND s_augdt.
ENDIF.
Selecting the records from the database ****************
IF s_bukrs IS INITIAL AND s_blart IS INITIAL.
Select all documents of company code 1000, *********
4200 and 8000, and allowed document types *********
 SELECT belnr gjahr augdt augbl bukrs
 blart bldat xblnr lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 FOR ALL ENTRIES IN i_doctype
 WHERE blart EQ i_doctype-blart
 AND augdt IN s_augdt
 AND ( bukrs = '1000' OR bukrs ='4200' OR
 ( bukrs = '8000' AND blart NE 'ZP' ) ).
 loop at i_data.
Exclude reversed documents
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 endif.
 endloop.
ELSEIF s_blart IS INITIAL.
Select all documents of allowed document types ******
 and inputted company code ************
 SELECT belnr gjahr augdt augbl bukrs
 blart bldat xblnr lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 FOR ALL ENTRIES IN i_doctype
 WHERE blart EQ i_doctype-blart
 AND augdt IN s_augdt
 AND bukrs IN s_bukrs .
 LOOP AT i_data.
Exclude documents of type ZP
for company code 8000.
 IF i_data-bukrs = '8000' AND i_data-blart = 'ZP'.
 DELETE i_data.
 continue.
 ENDIF.
Exclude reversed documents
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 continue.
 endif.
 ENDLOOP.
 READ TABLE i_data INDEX 1.
 IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
 ENDIF.
ELSE.
Select the documents matching the company codes *****
and document types inputted in the selection screen ****
 SELECT belnr gjahr augdt augbl bukrs bldat xblnr
 blart lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 WHERE bukrs IN s_bukrs AND blart IN s_blart
 AND augdt IN s_augdt.
 SORT i_data BY blart.
 LOOP AT i_data.
Filtering the records selected
based on the document type
 READ TABLE i_doctype WITH KEY blart = i_data-blart.
 IF sy-subrc NE 0.
 DELETE i_data.
 continue.
 ENDIF.
Exclude documents of type ZP
for company code 8000.
 IF i_data-bukrs = '8000' AND i_data-blart = 'ZP'.
 DELETE i_data.
 continue.
 ENDIF.
Exclude reversed documents.
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 continue.
 endif.
 ENDLOOP.
 READ TABLE i_data INDEX 1.
 IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
 ENDIF.
ENDIF.
IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
ENDIF.
credit/debit identification ***********************
LOOP AT i_data.
 IF i_data-shkzg EQ 'H'.
 i_data-wrbtr = i_data-wrbtr * 1.
 ELSEIF i_data-shkzg EQ 'S'.
 i_data-wrbtr = i_data-wrbtr * -1.
 ENDIF.
 MODIFY i_data.
ENDLOOP.
for summarizing ******************************
LOOP AT i_data.
 MOVE-CORRESPONDING i_data TO i_data1.
 COLLECT i_data1.
ENDLOOP.
Vendor informations and Check Informations *****************
SELECT lifnr name1 sortl
 FROM lfa1
 APPENDING CORRESPONDING FIELDS OF TABLE i_lfa1
 FOR ALL ENTRIES IN i_data1
 WHERE lifnr = i_data1-lifnr.
SELECT chect vblnr gjahr zbukr FROM payr APPENDING CORRESPONDING
 FIELDS OF TABLE i_payr FOR ALL ENTRIES
 IN i_data1 WHERE vblnr = i_data1-augbl
 AND gjahr = i_data1-augdt(4)
 AND zbukr = i_data1-bukrs.
SORT i_data1 BY augbl gjahr bukrs lifnr.
SORT i_payr BY vblnr gjahr zbukr.
SORT i_lfa1 BY lifnr.
LOOP AT i_data1.
 READ TABLE i_payr WITH KEY vblnr = i_data1-augbl
 gjahr = i_data1-gjahr
 zbukr = i_data1-bukrs.
 IF sy-subrc EQ 0.
 i_data1-chect = i_payr-chect.
 ENDIF.
 READ TABLE i_lfa1 WITH KEY lifnr = i_data1-lifnr.
 IF sy-subrc EQ 0.
 i_data1-name1 = i_lfa1-name1.
 i_data1-sortl = i_lfa1-sortl.
 ENDIF.
 i_data1-status = 'X'.
 MODIFY i_data1.
ENDLOOP.
**The records are sorted by clearing date, check number and doc type**
SORT i_data1 BY augdt chect blart.
**********The header record is outputted on the screen****************
PERFORM write_header.
********Data is moved to internal table in the file format *************
PERFORM move_data.
Line items are outputted on the screen *********************
PERFORM write_output.
*& Form write_header &*
*& This outputs the header information to screen &*
FORM write_header.
SKIP.
 SET PF-STATUS 'LIST'.
Outputting the header information *********************
WRITE : / 'Extraction Date : ' , header-ext_date.
WRITE : / 'Extraction Time : ' , header-ext_time.
FORMAT COLOR 1." INTENSIFIED.
SKIP.
ULINE AT 0(190) NO-GAP.
Outputting line level information **********************
WRITE:/ sy-vline NO-GAP,
 (10) 'DOC NUMBER',
 sy-vline NO-GAP,
 (4) 'F-YR',
 sy-vline NO-GAP,
 (6) 'C-CODE',
 sy-vline NO-GAP,
 (10) 'CHECK NUM',
 sy-vline NO-GAP,
 (10) 'VENDOR NUM',
 sy-vline NO-GAP,
 (35) 'VENDOR NAME',
 sy-vline NO-GAP,
 (12) 'INVOICE DATE',
 sy-vline NO-GAP,
 (16) 'INVOICE NUMBER',
 sy-vline NO-GAP,
 (12) 'PAID DATE',
 sy-vline NO-GAP,
 (15) 'INVOICE AMOUNT',
 sy-vline NO-GAP,
 (2) 'SC',
 sy-vline NO-GAP,
 (16) 'REFERENCE FI DOC',
 sy-vline NO-GAP,
 (15) 'SORT FIELD',
 sy-vline NO-GAP.
ULINE AT 0(190) NO-GAP.
ENDFORM. " write_header
*& FORM MOVE_DATA &*
*& Formats data in internal table as is required in the file &*
FORM move_data.
LOOP AT i_data1.
Document number and fiscal year should be separted by '|' *****
 CONCATENATE i_data1-belnr i_data1-gjahr INTO fidoc_year
 SEPARATED BY '|'.
 MOVE i_data1-bukrs TO comp_code.
 MOVE i_data1-chect TO check_numbr.
Vendor number and vendor name should be separted by '|' *****
 CONCATENATE i_data1-lifnr i_data1-name1 INTO vendor
 SEPARATED BY '|'.
 SHIFT vendor LEFT DELETING LEADING '0'.
 SHIFT vendor RIGHT DELETING TRAILING space.
Date fields converted to MM/DD/YYYY format ****************
 MOVE i_data1-bldat+0(4) TO yy.
 MOVE i_data1-bldat+4(2) TO mm.
 MOVE i_data1-bldat+6(2) TO dd.
 CONCATENATE mm dd yy INTO inv_date SEPARATED BY '/'.
 MOVE i_data1-xblnr TO inv_nbr.
 SHIFT inv_nbr RIGHT DELETING TRAILING space.
 MOVE i_data1-augdt+0(4) TO yy.
 MOVE i_data1-augdt+4(2) TO mm.
 MOVE i_data1-augdt+6(2) TO dd.
 CONCATENATE mm dd yy INTO paid_dat SEPARATED BY '/'.
 MOVE i_data1-wrbtr TO inv_amt.
 CONDENSE inv_amt.
 SHIFT inv_amt RIGHT DELETING TRAILING space.
 MOVE i_data1-status TO status.
 MOVE i_data1-augbl TO ref_doc.
 CONCATENATE fidoc_year
 comp_code
 check_numbr
 vendor
 inv_date
 inv_nbr
 paid_dat
 inv_amt
 status
 ref_doc
 INTO i_final_file-record SEPARATED BY '~'.
 APPEND i_final_file.
ENDLOOP.
ENDFORM. " MOVE_DATA
*& Form write_output &*
*& Outputs all data to screen &*
FORM write_output.
LOOP AT i_data1.
 FORMAT COLOR 2 INTENSIFIED.
Outputting line level information *******************
 WRITE : / sy-vline NO-GAP,
 (10) i_data1-belnr,
 sy-vline NO-GAP,
 (4) i_data1-gjahr,
 sy-vline NO-GAP,
 (6) i_data1-bukrs,
 sy-vline NO-GAP,
 (10) i_data1-chect,
 sy-vline NO-GAP,
 (10) i_data1-lifnr,
 sy-vline NO-GAP,
 (35) i_data1-name1,
 sy-vline NO-GAP,
 (12) i_data1-bldat MM/DD/YYYY,
 sy-vline NO-GAP,
 (16) i_data1-xblnr,
 sy-vline NO-GAP,
 (12) i_data1-augdt MM/DD/YYYY,
 sy-vline NO-GAP,
 (15) i_data1-wrbtr,
 sy-vline NO-GAP,
 (2) i_data1-status,
 sy-vline NO-GAP,
 (16) i_data1-augbl,
 sy-vline NO-GAP,
 (15) i_data1-sortl,
 sy-vline NO-GAP.
ENDLOOP.
ULINE AT 0(190) NO-GAP.
ENDFORM. " write_output
In the program, I am downloading only the list.. The description of report outputted in the beginning of the report is not downloaded to excel.
What has to be taken into consideration is that, the structure of the table i_data1 which contains the data to be downloaded to the table.
I hope that this will help you.
Regards,
Susmitha

Export Simple list output to Excel sheet.

Hi gurus,
I have a list output as follows.
A main header
Sub header 1
table entries.
sub header 2.
table entries ,......etc.
now i want to export the same format to an excel sheet which need to sent as a mail attachment.
Is there any FM for this ? i dont want the format to be disturbed.
can headers and other entries defferentiated with colors ?
kindly help on this.
Edited by: deepan adhi on Oct 4, 2009 9:52 AM

write the list to memory,
and the read this memory into an internal table. this will be exactly the same way as its printed on your screen. download it.
or
create an internal table of type string, add pass data from your final internal table in the exact way you are putting it in the output.
and download this string internal table.

Download the grid output to excel sheet

Hi Friends,
i have generated an ALV GRID report, in that its showing 800+ records, but when i download that to excel sheet 25 odd records are missing in the between,
i have downloaded through local file -
> to spreadsheet.
Can you please tell me the error.
Regards
Kumar M

hi kumar,
have generated an ALV GRID report, in that its showing 800+ records, but when i download that to excel sheet 25 odd records are missing in the between,
i have downloaded through local file -
> to spreadsheet.
Can you please tell me the error.
how u solved this problem same problem i am also getting plz tell me the solution.
Thanks & Regards,
Ravi.

List format output to excel sheet

Hi,
I have a report output in list format. I need to download that into excel sheet. Is it possible to download a list format output to excel sheet or shall I need to convert that into grid format?
Thanks Barnita.

HI,
Use Menu path
List->Save/Send->File path

Down Loading ALV Output to Excel Sheet

Hi All,
I am working on Vendor Line Items Report which have both Header details as well as line item details.
So i developed Heirarical ALV to display the output and it is working fine.But my problem is Downloading output to Excel sheet functionality is not working.
In output screen LIST->EXPORT->SPREADSHEET functionality is not working.
Please give me suggestions regarding the same or is there any another way to do the same by using ALV List Display.
Points will be rewarded
Thanks and Regards,
Siva.

hi ,
this is a working example check this...
REPORT zvenkattest0.
TABLES:pa0002,pa0008.
TYPE-POOLS:slis.
CONSTANTS:c VALUE 'X'.
DATA:BEGIN OF it_pa0008 OCCURS 0,
 pernr LIKE pa0008-pernr,
 begda LIKE pa0008-begda,
 endda LIKE pa0008-endda,
 preas LIKE pa0008-preas,
 ansal LIKE pa0008-ansal,
 lga01 LIKE pa0008-lga01,
 expand TYPE xfeld,
 END OF it_pa0008.
DATA:BEGIN OF it_pa0002 OCCURS 0,
 pernr LIKE pa0002-pernr,
 vorna LIKE pa0002-vorna,
 nachn LIKE pa0002-nachn,
 gbdat LIKE pa0002-gbdat,
 gblnd LIKE pa0002-gblnd,
 sprsl LIKE pa0002-sprsl,
 perid LIKE pa0002-perid,
 END OF it_pa0002.
DATA: wa_field_cat TYPE slis_fieldcat_alv,
 it_field_cat TYPE slis_t_fieldcat_alv,
 wa_keyinfo TYPE slis_keyinfo_alv,
 it_layout TYPE slis_layout_alv.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_pernr FOR pa0002-pernr NO INTERVALS.
SELECTION-SCREEN: SKIP.
PARAMETERS:p_expand AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM select_data.
PERFORM build_field_cat.
PERFORM disply_data.
*& Form SELECT_DATA
 text
--> p1 text
<-- p2 text
FORM select_data .
SELECT pernr
 begda
 endda
 preas
 ansal
 lga01
 FROM pa0008
 INTO CORRESPONDING FIELDS OF TABLE it_pa0008
 UP TO 10 ROWS.
IF NOT it_pa0008[] IS INITIAL.
SELECT pernr
 vorna
 nachn
 gbdat
 gblnd
 sprsl
 perid
 FROM pa0002
 INTO CORRESPONDING FIELDS OF TABLE it_pa0002
 FOR ALL ENTRIES IN it_pa0008
 WHERE pernr = it_pa0008-pernr.
ENDIF.
SORT it_pa0008 BY pernr.
ENDFORM. " SELECT_DATA
*& Form BUILD_FIELD_CAT
 text
--> p1 text
<-- p2 text
FORM build_field_cat .
 wa_field_cat-tabname = 'PA0008'.
 wa_field_cat-fieldname = 'PERNR'.
 wa_field_cat-seltext_l = 'personnelno'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0008'.
 wa_field_cat-fieldname = 'BEGDA'.
 wa_field_cat-seltext_l = 'begindate'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0008'.
 wa_field_cat-fieldname = 'ENDDA'.
 wa_field_cat-seltext_l = 'enddate'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0008'.
 wa_field_cat-fieldname = 'PREAS'.
 wa_field_cat-seltext_l = 'reason'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0008'.
 wa_field_cat-fieldname = 'ANSAL'.
 wa_field_cat-seltext_l = 'annualsalary'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0008'.
 wa_field_cat-fieldname = 'LGA01'.
 wa_field_cat-seltext_l = 'wagetype'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0002'.
 wa_field_cat-fieldname = 'VORNA'.
 wa_field_cat-seltext_l = 'firstname'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0002'.
 wa_field_cat-fieldname = 'NACHN'.
 wa_field_cat-seltext_l = 'lastname'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0002'.
 wa_field_cat-fieldname = 'GBDAT'.
 wa_field_cat-seltext_l = 'birhtdate'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0002'.
 wa_field_cat-fieldname = 'GBLND'.
 wa_field_cat-seltext_l = 'birthcountry'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0002'.
 wa_field_cat-fieldname = 'SPRSL'.
 wa_field_cat-seltext_l = 'languageused'.
 APPEND wa_field_cat TO it_field_cat.
 wa_field_cat-tabname = 'PA0002'.
 wa_field_cat-fieldname = 'PERID'.
 wa_field_cat-seltext_l = 'personnelid'.
 APPEND wa_field_cat TO it_field_cat.
ENDFORM. " BUILD_FIELD_CAT
*& Form DISPLY_DATA
 text
--> p1 text
<-- p2 text
FORM disply_data .
it_layout-group_change_edit = c.
it_layout-colwidth_optimize = c.
it_layout-zebra = c.
it_layout-detail_popup = c.
it_layout-get_selinfos = c.
IF p_expand = c.
it_layout-expand_fieldname = 'EXPAND'.
ENDIF.
wa_keyinfo-header01 = 'PERNR'.
wa_keyinfo-item01 = 'PERNR'.
wa_keyinfo-item02 = 'SUBTY'.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
 EXPORTING
 i_callback_program = sy-cprog
 is_layout = it_layout
 it_fieldcat = it_field_cat
 i_tabname_header = 'PA0008'
 i_tabname_item = 'PA0002'
 is_keyinfo = wa_keyinfo
 TABLES
 t_outtab_header = it_pa0008
 t_outtab_item = it_pa0002.
ENDFORM. " DISPLY_DATA
regards,
venkat.

Output to Excel sheet

How to copy the contents of output into excel sheet?

Hi,
Check the below example, to download the ALV report output to an excel sheet.
REPORT Z_CONCEPTALV .
TABLES: KNA1,VBAK.
DATA: ITAB TYPE TABLE OF VBAK,
CONTAINER TYPE SCRFNAME VALUE 'ALVCONTROL',
CUST TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
GRID TYPE REF TO CL_GUI_ALV_GRID,
L_CONTAINER TYPE SCRFNAME VALUE 'LOGO',
I_PARENT TYPE REF TO CL_GUI_CONTAINER,
L_CUST TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
TREE TYPE REF TO CL_GUI_ALV_TREE_SIMPLE,
LT_LIST_COMMENTARY TYPE SLIS_T_LISTHEADER,
L_LOGO TYPE SDYDO_VALUE.
DATA: OK_CODE(4).
CALL SCREEN 1100.
*& Module STATUS_1100 OUTPUT
text
MODULE STATUS_1100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CASE OK_CODE.
WHEN 'DISP'.
SELECT * FROM VBAK INTO TABLE ITAB WHERE KUNNR = KNA1-KUNNR.
IF CUST IS INITIAL.
CREATE OBJECT CUST EXPORTING CONTAINER_NAME = CONTAINER.
CREATE OBJECT GRID EXPORTING I_PARENT = CUST.
CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING I_STRUCTURE_NAME
= 'VBAK' CHANGING IT_OUTTAB = ITAB.
ENDIF.
IF L_CUST IS INITIAL.
CREATE OBJECT L_CUST EXPORTING CONTAINER_NAME = L_CONTAINER.
CREATE OBJECT TREE EXPORTING I_PARENT = L_CUST.
PERFORM BUILD_COMMENT USING LT_LIST_COMMENTARY.
CALL METHOD TREE->CREATE_REPORT_HEADER EXPORTING IT_LIST_COMMENTARY =
LT_LIST_COMMENTARY I_LOGO = L_LOGO.
ENDIF.
WHEN 'DOWN'.
PERFORM F_DOWNLOAD_TO_EXCEL.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " STATUS_1100 OUTPUT
FORM BUILD_COMMENT USING LT_LIST_COMMENTARY.
L_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM.
FORM F_DOWNLOAD_TO_EXCEL.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
BIN_FILESIZE = ' '
CODEPAGE = ' '
FILENAME = ' '
FILETYPE = 'DAT'
ITEM = ' '
MODE = ' '
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
SILENT = 'S'
COL_SELECT = ' '
COL_SELECTMASK = ' '
NO_AUTH_CHECK = ' '
IMPORTING
ACT_FILENAME =
ACT_FILETYPE =
FILESIZE =
CANCEL =
TABLES
DATA_TAB = ITAB
FIELDNAMES =
EXCEPTIONS
INVALID_FILESIZE = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
CUSTOMER_ERROR = 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.
Refer these links:
Export ALV List into Excel Sheet
How to convert alv list into excel file?
Reward points if found helpful...
Cheers,
Chandra Sekhar.

Report output in excel sheet

hi friends,
how can i display output of a report in excell sheet.
regards,
malleswari.

Hi
You would be able to download the report to an Excel Sheet.
If you are using standard ABAP List then all you have to do is List->Save->File->Choose Spreadsheet as option
If for ALV
Please check this link
https://forums.sdn.sap.com/click.jspa?searchID=255077&messageID=2410067

Problem when dowloading the ALV report output to Excel Sheet.

Hi ,
I am dowloading the ALV report output to Excel Sheet.
There is field Condition Unit(KOMP-KMEIN) in the output of the ALV, this has values PC and CSE , but when I download to Excel Sheet, CSE is appearing as CSE ,but PC is appearing as ******.
Can you please help me in knowing the reson for this.
Regards,
Madhu.

hi
refer to following link
http://www.****************/Tutorials/ALV/ColorSALV/Demo.htm
http://www.sap-img.com/abap/download-to-excel-with-format-border-color-cell-etc.htm
Cheers
Snehi
Edited by: snehi chouhan on Jul 11, 2008 12:42 PM

Downloading of ALV output to excel by asking the password

Hi all,
I need to down load the ALV output into the excel sheet. But the thing is that before going to download the output into excel sheet, the system has to prompt for password.once it happens then the user will enter the password and it should validate. if the validation is successful then the output should download to the excel sheet. This is the requirement, can anybody help me out regarding this.Please provide the function module names and sample code.
Thanks & Regards.
Laxman.P
B'lore.

Hi,
Check this thread,
Make excel sheet password protected through ABAP codeu0085
Regards,
Omkar.

How to download data from itab to Excel sheet..

Hi sap Experts,
I develop one report to download data from itab to excel sheet.I done it perfectly.
My doubt is in the excel sheet i need to put headings. and also at last i need to display total no.of Records.
Please help me how to do this.
     Thanks in Advance....
Thanks and Regards
Siri.......................

u can either use GUI_DOWNLOAD or the method below...just give a try
DATA:WK_string TYPE STRING.
DATA:Wk_EXT(4) TYPE C value '.xls'.
DATA:WK_path TYPE STRING.
DATA:wk_file_name type string.
data:wk_records type sy-tfill.
wk_file_name = 'Downloaded'.
describe table itab lines wk_records.
LOOP AT ITAB.
at first.
**Provide path
concatenate 'C:\' wk_file_name Wk_EXT into wk_path.
open dataset WK_path for output in text mode encoding default.
if sy-subrc 0.
write:'ERROR while opening dataset !!!!!!'.
EXIT.
endif.
CONDENSE wk_path.
**Heading Part
concatenate 'Part No' 'Description'
     into wk_string separated by cl_abap_char_utilities=>horizontal_tab.
endat.
**Data ITAB
CONCATENATE ITAB-MATNR itab-maktx into wk_string
     separated by cl_abap_char_utilities=>horizontal_tab.
transfer wk_string to WK_path.
at last.
clear wk_string.
Concatenate 'Records Passed:' wk_string into wk_string.
transfer wk_string to WK_path.
close dataset WK_path.
endat.
endloop.

Getting output in excel sheet from jsp file

Hi,
I am a new programmer. I am trying to get output in excel sheet by clicking a link on page. I have used that 2 statements
response.setContentType("application/x-download");
response.setContentType("application/Octet-Stream");
response.setHeader("Content- disposition","inline;filename=refdsxresults.xls");
But it is giving an empty excel sheet. I don't know how to put the data in that sheet which is retrieved by using the query below.
"select p.port_no,p.block_no,p.slot_no,p.channel_no,p.ref_no,"+
"p.rr,c.card_type,c.work_or_protect,p.port_status_code,p.tr_id,"+
"p.dest_rr,p.dest_shelf,p.dest_jack,p.mux,"+
"sid.work_order_number,sid.pon_a,sid.pon_z,"+
"sid.circuit_id,sid.account_name,sid.account_no,sid.order_no,sid.item_no,"+
"sid.a_city_code,sid.z_city_code,p.parent_port_no "+
"from eon_port p,eon_card c,sonet_item_detail sid "+
"where p.logical_flag='N' and p.card_no*=c.card_no and "+
"p.current_path_no*=sid.path_no and sid.action!='DISC' and sid.item_status!='CN' "+
"and p.equip_no="+equipNumber+
" order by p.ref_no";
and also can I use the HTML to get this result in the browser. Could you please give an example. I need it urgently.
Thanks in advance

In an earlier post, somebody was saying that you can use regular HTML tables to output an XLS file. I've never tried it, so I don't know it to be true, but give it a look:
http://forum.java.sun.com/thread.jsp?forum=45&thread=407280&tstart=0&trange=15
If that doesn't work, you can always return a CSV file (comma seperated values).

Error while download the data to an Excel sheet for ECC report from EP

Hi experts,
I had created a report program which will download the data to an Excel sheet using SAP OLE object
For this report i had created a tcode too. The report which i developed is perfectly working fine in SAPGUI. But if i download the data to an Excel sheet for the same report throught SAP EP.I am getting the error that "Error in excel downlaod"
I analyed by putting dubigg point and it throws exception while calling Function module.
The excpetion is " OLE object id not found".
Can any body gives a light on this why i'm not able download the excel in ep?
Thanks,
JB

Hello,
(by the way I came here to ask my question and is my first time visit but...)
The problem is obvious: How do you expect OLE handler can "touch" the local PC Excel through a web browser? I believe that is not possible. That means (at least for me) that I have to create the whole documents before I return them to the user. That is why I use XML Office documents generation or you can try to hack some Export to excel features of ERP reports.
Regards Otto

Std Oracle Report output to Excel Sheet

I'm supposed to make changes to Standard Oracle Report such that the changes of Oracle Standard Report should be Excel output. One of the ways of doing this is to develop the whole report again in Discoverer as it has the feature of outputing into Excel Sheet. I would appreciate if someone can suggest me other ways of achieving it.
Thanks
Bobby

Hi,
even i am trying to do the same with my reports. Though it is possible to convert the reports to excel using the DESFORMAT attribute on the reports service, I am not able to preserver all the format in the excel sheet.
I do not want to use rep2excel but want to implement the same idea on my reports service. Is it possible
thanks

To download a list output to excel sheet

Similar Messages

Maybe you are looking for