Download the eCATT log in a excel sheet

Hi All,
Is it possible that I download the eCATT log in a excel sheet.
Thanks & Regards,
Rupali Ray

Hi Rupali,
Yes. We can do that. From your log display go to the menu LogDisplay--> Print Preview --> In next page
Menu System--> List --> Save as --> Local File
In this way you can do that.
Thanks,
Jyothi

Similar Messages

Download the ALV Report output into excel sheet or notepad

Hi,
how to downlaod the alv report out into excel sheet or notepad in a proper manner. program contain large number records....
Thanks in advance!!!!
Regards,
kranthi.

Hi
Download a report to excel with format (border, color cell, etc)
Try this program...it may help you to change the font ..etc.
Code:
REPORT ZSIRI 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_CELL USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL 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_CELL USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL 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_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.
SET PROPERTY OF H_F 'Bold' = BOLD .
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
Please note that this example maybe slow at filling the excel table
(perhaps four fields per second on a 900 MHz machine - almost 30 seconds
for a short example).
To get the data on properties and methods - there is a bit of smoke and mirrors
going on here; they are EXCEL properties and methods, not sap ones - so you need
to look at excel help to determine how a particular function is structured. then
build the block in sap, as shown in the example.
If you only want to transfer the data to Excel like when you transfer the data from
ALV to Excel simply use the Function Modules:
XXL_SIMPLE_API
If you want more modifications when you transfer it to Excel use:
XXL_FULL_API

How to download the all applicant address to excel sheet

Hi Geeks,
I want to download all the applicant address in excel sheet as one record .in table address are stored as different records ex :present address,permanent ,emergencey .i want this to be downloaded to excel as one record.
Thanks and Regards,
Sudhakar Yadav

HI Madan,
How are you doing ? thanku for the reply .my requirement is :
I want all the address to be downloaded to excel sheet in the fallowing format as:
Pernr      present address        permanent address    emergency address :
All this should be in one record but in the database it is storing different records for present address and permanent address ..
My select statement is :
SELECT PERNR SUBTY NAME2 STRAS LOCAT ORT01 PSTLZ ORT02 LAND1 TELNR
                 FROM PB0006
                  INTO TABLE ITAB1
                  FOR ALL ENTRIES IN ITAB
       WHERE PERNR = ITAB-PERNR.
Where all the data is there in the itab and I want to move all the data to one internal table as one record .

Download the output of smartform into excell sheet

Hi Experts,
We have one smartform for list out the Shipment packing list.
Now the requirement is we need to download into excel file output of the samrtform when we issue the output.
Please help on this issue to resolved.
Thanks and regards,
Amjad Hussain,

Hi,
As per my knowledge, it is not possible to download into Excel , but we can store as PDF or faxing or mail with PDF attachement is possible.
Bye

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

How to download background o/p in multiple excel sheet?

hi every body,
I am sandipan. I am very new in this field. My requirement is a report is showing total sales report. Fields are kunag, vbeln, name1, netwr and many more fields are there and it executing in background schdule . After executing In background it shows the output sm37 and i have to download this report in different excel sheet from application tool bar in sm37 . report will download according to kunag inr different excel sheet. for example- suppose there are 100 kunag. so there will be 100 excel sheet and the name of the excel sheet according to customer id means diff. customer id so different excel sheet . how is it possible ? please guide me with your valuable suggestion.
thank you.

Hi,
Before posting try to search in SCN next time.
Go through below link, it may help you.
[excel_sheets|http://www.sapdev.co.uk/ms/ms_excel.htm]

How to put information in the different tabs of same excel sheet

Hi all,
How to download information in the different tabs of same excel sheet.
EG data.xls is the excel sheet name
and sheet1 , sheet2 , sheet3 are different tabs of it.
Is there any standad function module for this .
If somebody is having idea abt it , Please guide.
Regards,
Shikha Jain

Hi Shikha,
You can do this by using the DOI interface for spreadsheets. Take a look at:
http://help.sap.com/saphelp_47x200/helpdata/en/e9/0be83b408e11d1893b0000e8323c4f/frameset.htm
Regards,
John.

Download bom from pull list in excel sheet.

please tell hw to download bom from pull list in excell sheet.

Hi,
try CS11/CS12/CS13 for downloading the BOM to the excel sheet.
Please check and revert.
Thanks,
Hrishi

How to download data from abap-ouput to excel sheet with logo

how to download data from abap-ouput to excel sheet with standard logo
Edited by: Harish Kasyap on Nov 18, 2008 8:19 AM
Edited by: Harish Kasyap on Nov 18, 2008 8:20 AM

For saving the report you can goto System -> List -> Save -> Local File -> Location where you want to save in your presentation server.
You can also give a option in your selection screen to save the file to Presentation server using FM GUI_DOWNLOAD.
Hope it helps.
Thanks,
Jayant.

How to export the data from table to excel sheet

hi experts i have some problem am trying to export the data fro table to Excel sheet in the view controller i have created one button wit public void onActionCLEAR(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
    //@@begin onActionCLEAR(ServerEvent)
   //wdContext.nodeBapi_Salesorder_Getlist_Input().
   //wdContext.nodeBapi_Salesorder_Getlist_Input().invalidate();
    //@@end
//@@begin javadoc:onActionExporToExcel(ServerEvent)
/** Declared validating event handler. */
//@@end
public void onActionExporToExcel(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
    //@@begin onActionExporToExcel(ServerEvent)
     try{
     FileOutputStream fos=new FileOutputStream("Test.xls");
      PrintStream ps=new PrintStream(fos);
      ps.println("<html><body><table border=1>");
      int size=wdContext.nodeBapi_Salesorder_Getlist_Input().size();
       Iterator attributes=wdContext.getNodeInfo().iterateAttributes();
       ps.println("<tr>");
       while(attributes.hasNext()){
        ps.println("<th>");
        DataAttributeInfo attrName=(DataAttributeInfo)attributes.next();
        ps.println(attrName.getName());
        ps.println("</th>");
       ps.println("</tr>");
      for(int i=0; i<wdContext.nodeBapi_Salesorder_Getlist_Input().size();i++)
        attributes=wdContext.getNodeInfo().iterateAttributes();
        ps.println("<tr>");
        IWDNodeElement ele=wdContext.getElementAt(i);
        while(attributes.hasNext()){
          ps.println("<td>");
          DataAttributeInfo attrName=(DataAttributeInfo)attributes.next();
          ps.println(""+ele.getAttributeAsText(attrName.getName()));
          ps.println("</td>");
        ps.println("</tr>");
       ps.println("</table></body></html>");
       ps.flush();
       ps.close();
       fos.close();
      catch(Exception e){
       wdComponentAPI.getMessageManager().reportException(e.getMessage(), false);
      finally{
     //return("Test.xls") ;
    //@@end
}h action and i have return the code
its running sucessfully but am not able to perform the action plz help me

Hi,
You shouldn't use DataAttributeInfo as it is an internal object, if I'm correct.
Use IWDAttributeInfo instead of DataAttributeInfo and it should work
(See also API doc of IWDNodeInfo.iterateAttributes() at http://help.sap.com/javadocs/nwce/ce711sp02/wdr/com.sap.wdr/com/sap/tc/webdynpro/progmodel/api/IWDNodeInfo.html#iterateAttributes())
Cheers,
Robin

How do I get the last COLUMN in an Excel Sheet using Report Generation toolkit in LV7.1?

I am trying to get the last column in an Excel sheet using the Report Generation toolkit. The function "Excel Get Last Row" does not give last column info. Is there a function that will do this?
Thanks

Hello –
I think the following example program might be helpful to get you started programming your application.
Get Excel Data from Specified Field.
Hope this helps!
SVences
Applications Engineer
National Instruments

Download data from internal table to excel sheet from the background

Hello Experts,
I have written a code where the data is stored in the internal table . Now when i run this code in the background i want this internal table data to get downloaded in the excel sheet. The function module GUI_DOWNLAOD is not supported in the background. So is there any other function module that can be used or is there any other way to do this
Thanks in advance

Hi Aditya,
I would provide you 2 advice:
1. save the file on the application server as text file and the fileds in it separated by TAB,you can download the file whenever you want and open it with excel.
2.generate excel files and send it to the email address whatever you specify in the selection-screen.
Thanks,
Sam

Download colored ALV output in to EXCEL sheet

Hi ,
I want to download colored ALV output to Excel sheet with color.
one of the field in ALV is with 4 colors depending on condition.
i am unable to download the color using download option(that field is comming with out color).
Please help me by providing the solution.
Thanks in advance.
Regards
sarath

Hi Srini,
thanks for the reply.
i am using standard download function only.
if i use download->local file->HTML Format only the font is appearing in colors.in case of spread sheet no color comming.
but my requirement is to download into excel and background also with color(green...) font in black like that.
(exactly appearing in the ALV)
Thanks
sarath

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 <b>System->List->Save->LocalFile->Spread Sheet</b> 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.
<b>* 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.</b>
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 ' ' .
<b>* Download list to file.
AT USER-COMMAND.
CASE sy-ucomm.
    WHEN 'LIST'.
      PERFORM download.
    WHEN 'BACK'.
      EXIT.
ENDCASE.</b>
<b>----
      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</b>
   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

Urgent:download data in differnt tabs of excel sheet

Hi,
I want to save data from internal table to different worksheet of an excel sheet file without using ole. I am having thousands of record in my internal table. Currently I am doing this by using OLE but its response time is very high. Plz suggest any other method with which we can do it fast.
rely will be suitably rewarded
Edited by: amit manglik on Jan 28, 2008 10:23 AM
Edited by: amit manglik on Jan 29, 2008 10:18 AM

hi,
Refer sample code:
Multiple excel sheets generation in a workbook
CREATE OBJECT EXCEL 'EXCEL.SHEET'.
GET PROPERTY OF EXCEL 'Application' = APPLICATION.
SET PROPERTY OF APPLICATION 'Visible' = 1.
CALL METHOD OF APPLICATION 'Workbooks' = BOOKS.
CALL METHOD OF BOOKS 'Add' = BOOK.
CALL METHOD OF BOOK 'WORKSHEETS' = SHEET.
CALL METHOD OF SHEET 'ADD'.
Fill all the sheets with relavant data
PERFORM SHEET1 TABLES ITAB1.
PERFORM SHEET2 TABLES ITAB2.
PERFORM SHEET3 TABLES ITAB3.
PERFORM SHEET4 TABLES ITAB4.
Quit the excel after use
CALL METHOD OF EXCEL 'QUIT'.
FREE OBJECT: COLUMN,SHEET,BOOK,BOOKS,APPLICATION,EXCEL. "NO FLUSH.
CLEAR V_SHEET.
FORM FILL_CELL USING ROW COL VAL.
CALL METHOD OF SHEET 'cells' = CELL NO FLUSH
EXPORTING #1 = ROW #2 = COL.
SET PROPERTY OF CELL 'value' = VAL.
FREE OBJECT CELL NO FLUSH.
ENDFORM. " FILL_CELL
FORM SHEET1 TABLES ITAB1 STRUCTURE ITAB1.
V_SHEET = Sheet Name.
V_NO = V_NO + 1.
CALL METHOD OF BOOK 'worksheets' = SHEET NO FLUSH EXPORTING #1 = V_NO.
SET PROPERTY OF SHEET 'Name' = V_SHEET NO FLUSH.
PERFORM FILL_SHEET1 TABLES ITAB1 USING V_NO V_SHEET.
CALL METHOD OF SHEET 'Columns' = COLUMN.
FREE OBJECT SHEET.
CALL METHOD OF COLUMN 'Autofit'.
FREE OBJECT COLUMN.
ENDFORM.
Repeat above procedure for all sheets you want to add
FORM FILL_SHEET1
TABLES ITAB1 STRUCTURE ITAB1
USING V_NO V_SHEET.
ROW = 1.
PERFORM FILL_CELL USING ROW 1 'Column1 Name'.
PERFORM FILL_CELL USING ROW 2 'Column2 Name'.
PERFORM FILL_CELL USING ROW 3 'Column3 Name'.
ROW = ROW + 1.
LOOP AT ITAB1.
PERFORM FILL_CELL USING ROW 1 ITAB1-Column1.
PERFORM FILL_CELL USING ROW 2 ITAB1-Column2.
PERFORM FILL_CELL USING ROW 3 ITAB1-Column3.
ROW = ROW + 1.
ENDLOOP.
ENDFORM.
Repeat above procedure for all sheets you want to add
Also follow this link, for a simillar kind of download program.
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/c05db2ca-569e-2910-0784-fc06cc3be31d
Hope this helps, Do reward.

Download the eCATT log in a excel sheet

Similar Messages

Maybe you are looking for