How to embed a file(of any type) into excel sheet

I am creating a excel file through java and its available to browser to download and save as its created at server side.I wnat to embed a file of any type into this excel file like we do thru menu Insert->object , so that when i click on this object i must be able to see/open the file.
am using jxl package for creating excel file thru wtitablesheet interface.
Thanks In Advance....

Dear Terry,
Thanks for your kindly remind, Maybe I made a mistake for not clearly claim the request. Like you mentioned, This is an issue for WDA4, I should ask ABAP exports for help.
Anyway, Thanks for you both reply.
Best Regards
Richard

Similar Messages

How to I convert data from oracle database into excel sheet

how to I convert data from oracle database into excel sheet.
I need to import columns and there datas from oracle database to microsoft excel sheet.
Please let me know the different ways for doing this.
Thanks.

asktom.oracle.com has an excellent article on writing a PL/SQL procedure that dumps data to an Excel spreadsheet-- search for 'Excel' and it'll come up.
You can also use your favorite connection protocol (ODBC, OLE DB, etc) to connect from Excel to Oracle and pull the data out that way.
Justin

Whenever I open a file of any type, that file will open, as well as multiple other files I do not wish to open. How do I prevent this from happening.

Whenever I try to open a file of any type, that file will open, as well as several other files I do not wish to open. How do I prevent this from happening?

Dealing With The Resume Feature of Lion
Managing Mac OS X Lion's application resume feature.
If you shutdown your computer you should get a dialog asking if you want applications to resume on the next startup. Simply uncheck the box to prevent that from occurring. Open General preferences and uncheck the option to Restore windows when quitting and re-opening apps. You can also install a third-party utility to control resume features on individual applications: RestoreMeNot or Application State Cleaner.
It is possible to completely stop the Resume feature although I'm unconvinced that it is that annoying. Nevertheless see the following:
If you have not yet done so you must first make your /Home/Library/ folder visible. Open the Terminal application in the Utilities folder. At the prompt paste the following command line:
chflags nohidden ~/Library
Press RETURN. Quit the Terminal application.
In the Finder navigate to the /Home/Library/Saved Application State/ folder. Delete the contents of the folder. Back up to the /Home/Library/ folder. Select the Saved Application State folder. Press COMMAND-I to open the Get Info window. In the Sharing and Permissions panel at the bottom click on the lock icon and authenticate. Set each of the listed entries to Read Only. Close the Get Info window.
Quit all open programs except the Finder (this is very important.) Next, navigate to the /Home/Library/Preferences/ByHost/ folder. Look for a .plist file with "com.apple.loginwindow." in the file name followed by some numbers in hexadecimal. Select the file. Press COMMAND-I to open the Get Info window and in the Sharing and Permissions panel click on the lock icon and authenticate. Set each of the listed entries to Read Only. Close the Get Info window. If you also find a file with the same filename but with a last extension of ".lockfile," then you should delete it.
The above should eliminate the Resume feature system-wide. Note that any future system updates or upgrades will likely undo these changes. You will then need to repeat this procedure assuming there are no major changes in OS X related to it.

When opening a file of any type in Photoshop (CS4), the windows will not appear in Ps.

When opening a file of any type in Photoshop (CS4), the windows will not appear. Photoshop will open and I can see the layers on the right but the document window will not come up no matter what I try. I try closing down everything, double-clicking a layer, opening multiple windows, etc.. Any thoughts?

Can you post a screenshot of your entire Photoshop screen with a file loaded in and the layers panel showing?
It helps if we see the same problem you are seeing
Gene

How to embed/perform a Java Swing form into webased Swing form

How to embed/perform a Java Swing form into webased Swing form or any alternative.
Suppose i have 2 or more swing forms which are desktop applications but i want those forms to be now webbased..so how can i do this.Will i need to change the swing coding or will have to keep the swing design same.what can be the best Solution.

You can launch your existing desktop app via the web using [Java Web Start|http://java.sun.com/javase/technologies/desktop/javawebstart/index.jsp]

How big a Quicktime file can I download into iWeb

When I create a video in iMovie how big a file can I make it (web-streaming, cd) so it can be published in iWeb and viewed?

Regardless of how you embed the file in your iWeb page have you tried reducing the file size. One mtehod is to open it in QT Player 7 and use the File ➙ Export for Web and use the Desktop setting:
Click to view full size
That can reduce the file size considerable and keep good image quality.
OT

How to read .html file and store values into oracle table from html file

Hi all ,
How to read .html file and store values into oracle table from html file using pl/sql
Please Help.....

Hi,
Kindly find following sample html code ,i want to store every value in different column in database .
<html><body><p/>
<div style="position:absolute;top:47px;left:37px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:47px;left:680px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:94px;left:151px;font-family:'Times New Roman';font-size:1pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:1080px;left:115px;font-family:'Times New Roman';font-size:8pt;white-space:nowrap;">4497743
</div>
<div style="position:absolute;top:1079px;left:442px;font-family:'Times New Roman';font-size:9pt;white-space:nowrap;"> Miclyn Express Offshore Pre-Quotation Disclosure
</div>
<div style="position:absolute;top:1079px;left:680px;font-family:'Times New Roman';font-size:9pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:1079px;left:723px;font-family:'Times New Roman';font-size:9pt;white-space:nowrap;">page 5
</div>
<div style="position:absolute;top:1083px;left:151px;font-family:'Times New Roman';font-size:1pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:107px;left:151px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;"><b>Attachment 2 ¿ indicative statement of 20 largest shareholders </b>
</div>
<div style="position:absolute;top:139px;left:262px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;"><b>Name </b>
</div>
<div style="position:absolute;top:131px;left:415px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;"><b>Number of Shares </b>
</div>
<div style="position:absolute;top:147px;left:458px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;"><b>Held </b>
</div>
<div style="position:absolute;top:131px;left:560px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;"><b>Percentage of </b>
</div>
<div style="position:absolute;top:147px;left:567px;font-family:'Times New Roman';font-size:10pt;white-space:nowrap;"><b>shares held </b>
</div>
<div style="position:absolute;top:179px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Macquarie Capital Group Limited 92,378,000
</div>
<div style="position:absolute;top:179px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:179px;left:618px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">34.00%r
</div>
<div style="position:absolute;top:179px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:212px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">HSBC Custody Nominees (Australia)
</div>
<div style="position:absolute;top:227px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Limited
</div>
<div style="position:absolute;top:220px;left:464px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">36,458,220
</div>
<div style="position:absolute;top:220px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:220px;left:618px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">13.42%
</div>
<div style="position:absolute;top:220px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:260px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Ray Rider Limited 27,170,000
</div>
<div style="position:absolute;top:260px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:260px;left:618px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">10.00%
</div>
<div style="position:absolute;top:260px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:300px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:300px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">7.96%
</div>
<div style="position:absolute;top:300px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:333px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">National Australia Bank Custodian
</div>
<div style="position:absolute;top:348px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Services
</div>
<div style="position:absolute;top:341px;left:464px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">12,866,550
</div>
<div style="position:absolute;top:341px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:341px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">4.74%
</div>
<div style="position:absolute;top:341px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:381px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Citigroup Nominees Pty Ltd 6,942,541
</div>
<div style="position:absolute;top:381px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:381px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">2.56%r
</div>
<div style="position:absolute;top:381px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:421px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:421px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">2.14%r
</div>
<div style="position:absolute;top:421px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:462px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">UBS Securities Australia Ltd 4,806,760
</div>
<div style="position:absolute;top:462px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:462px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">1.77%
</div>
<div style="position:absolute;top:462px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:494px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Merrill Lynch Equities (Australia)
</div>
<div style="position:absolute;top:510px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Limited
</div>
<div style="position:absolute;top:502px;left:472px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">4,325,000
</div>
<div style="position:absolute;top:502px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:502px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">1.59%
</div>
<div style="position:absolute;top:502px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:550px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Equities Ltd
</div>
<div style="position:absolute;top:542px;left:472px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">4,150,000
</div>
<div style="position:absolute;top:542px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:542px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">1.53%
</div>
<div style="position:absolute;top:542px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:575px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Bond Street Custodians Limited - A/C
</div>
<div style="position:absolute;top:590px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Institutional
</div>
<div style="position:absolute;top:583px;left:472px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">2,750,000
</div>
<div style="position:absolute;top:583px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:583px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">1.01%
</div>
<div style="position:absolute;top:583px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:623px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Cogent Investment Operations Pty Ltd 2,599,321
</div>
<div style="position:absolute;top:623px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:623px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.96%
</div>
<div style="position:absolute;top:623px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:663px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Skeet Nominees Pty Ltd 2,276,736
</div>
<div style="position:absolute;top:663px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:663px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.84%
</div>
<div style="position:absolute;top:663px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:704px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Diederik de Boer 1,917,561
</div>
<div style="position:absolute;top:704px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:704px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.71%
</div>
<div style="position:absolute;top:704px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:744px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Ecapital Nominees Pty Limited 1,594,736
</div>
<div style="position:absolute;top:744px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:744px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.59%
</div>
<div style="position:absolute;top:744px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:777px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Neweconomy Com Au Nominees Pty 9
</div>
<div style="position:absolute;top:792px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Limited <900 Account>
</div>
<div style="position:absolute;top:784px;left:472px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">1,594,7360
</div>
<div style="position:absolute;top:784px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:784px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.59%
</div>
<div style="position:absolute;top:784px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:825px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Sonray Capital Markets Pty Ltd 1,236,842
</div>
<div style="position:absolute;top:825px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:825px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.46%
</div>
<div style="position:absolute;top:825px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:865px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Argo Investments Limited 1,050,000
</div>
<div style="position:absolute;top:865px;left:531px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:865px;left:625px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">0.39%
</div>
<div style="position:absolute;top:865px;left:663px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">
</div>
<div style="position:absolute;top:905px;left:161px;font-family:'Times New Roman';font-size:11pt;white-space:nowrap;">Idameno (No 79) Nominees Pty Limited 724,210</div>
<div style="position:absolute;top:1103px;">
</body></html>
Thanks..........................

CS6, how do I open files in Bridge directly into Photoshop? [was: Stan Spur]

CS6, how do I open files in Bridge directly into Photoshop. The default is File Viewer or there is an option to open in Adobe RAW.

Look at the down pointing arrow to the right of Photoshop CC in the list. Clicking on it shows a list of programs to select from.
Windows OS level or "in Windows" as opposed to "in Bridge".
Gene

How to save .pdf file using office word and excel

Can someone help me how to save .pdf files using office word and excel? I reinstalled my adobe 7.0 pro in my new pc and before I was able to do it but with my old pc.

For anything after Office 2003, you have to print to the Adobe PDF printer. If you installed AA 7 on OS newer than XP, you may have to do a workaround to get it to work. With later versions of WORD you can always use the MS plugin for creating PDFs.

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 .
<b>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.</b>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

Application Server file into EXCEL SHEET

Hi ,
i want down load the Application Server FILE into EXCEL SHEET directly..
how to do this one.
regards,
venu.

Hi Srinivas
I tried using CG3Z to upload excel onto application server but failed to do the same,
Any pointers regarding the same would be of great help.
Regards
Sukumari
Edited by: Manjeera Chinigiri on Mar 31, 2008 3:08 PM

How to import pictures into excel sheet without using report generation

Dear Friends
I want to know how to import the picture or picture file into excel sheet without using report generation..
kindly come up with any suggestions or example code
Regards
Karthick
Solved!
Go to Solution.

Thank you Rajesh
i am going through that vi
Rajesh Nair wrote:
Please go through below link
http://zone.ni.com/devzone/cda/epd/p/id/3638
Eventhough one subVI is missing i think it will be usefull for you.
Regards
Rajesh R.Nair
Rajesh Nair wrote:
Please go through below link

How to send ALV output data into Excel sheet format via Mail to the user?

Hi friends,
I have a doubt ie,
How to send ALV output data into Excel sheet format via Mail to the user?
regards
Moosa

Hi,
Provide the output internal table to the objbin in the below FM
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data              = i_docdata
            put_in_outbox              = c_x
       TABLES
            packing_list               = i_objpack
            object_header              = i_objhead
            contents_bin               = i_objbin
            contents_txt               = i_objtxt
            receivers                  = i_reclist
and specify the document type
i_objpack-doc_type   = 'XLS'.
and try.
Regards,
Nandha

How to get the password of a password protected Excel Sheet using java/jxl

Hi ,
how to get the password of a password protected Excel Sheet using java / jxl program.
plz any one help me .
Ramesh P
[email protected]

If they've implemented the password system correctly there probably isn't a way of getting the password at all.

How to Convert Report into Excel Sheet when Sending Mail.

Dear Friends,
i want to send mail to HOD of Product with an Excel Sheet .
i want to send Pending Issue details to HOD in Excel Sheet attachment .
here i have pending issue report now i need to send it in Excel Sheet attachment .
i have table where i have manage Product ID and HOD OF PRODUCT.
CREATE TABLE "MAP_USER_PRODUCT_DTL"
   (     "ID" NUMBER NOT NULL ENABLE,
     "PRODUCT_ID"NUMBER,
     "USER_ID" VARCHAR2(5) NOT NULL ENABLE,
     "HOD_PROD" VARCHAR2(100)========================================Value is Y OR N IF HOD then Y else N
     CONSTRAINT "MAP_USER_PRODUCT_DTL_PK" PRIMARY KEY ("ID") ENABLE
/i have one more table where all complete issue detail insert.
CREATE TABLE "CRM_ISSUE_PROBLEM"
   (     "ID" NUMBER,
     "SUBJECT" VARCHAR2(255) NOT NULL ENABLE,
     "CLIENT_ID" NUMBER,
     "ASSIGNED_TO_ID" VARCHAR2(100),
     "ASSIGNED_ON" DATE,
     "DESCRIPTION" VARCHAR2(4000),
     "PRODUCT_ID" NUMBER NOT NULL ENABLE,
     "STATUS_ID" NUMBER NOT NULL ENABLE,
      CONSTRAINT "CRM_ISSUE_PROBLEM_PK" PRIMARY KEY ("ID") ENABLE
Here STATUS_ID is Like Pending ISsue,Open Issue and Close Issue .i want to send mail to HOD with Pending Issue Report convert into Excel Sheet and send to HOD?
How can i do this.
Thanks
Edited by: Vedant on Oct 12, 2011 12:36 AM
Edited by: Vedant on Oct 12, 2011 2:22 AM

Hello Vedant,
Would it suffice if you send a CSV file?
If yes, then see following code.. run the code under APEX > Home > SQL Workshop > SQL Commands
DECLARE
        ln_id NUMBER;
        lc_clob CLOB;
     lb_blob BLOB;
     li_in PLS_INTEGER := 1;
     li_out PLS_INTEGER := 1;
     li_lang PLS_INTEGER := 0;
     li_warning PLS_INTEGER := 0;
     lv_mail_rcpts VARCHAR2(2000) := '[email protected]';
     lv_mail_from VARCHAR2(100) := '[email protected]';
       lv_clmn_separator VARCHAR2(1) := ',';
BEGIN
     -- Build file content as CLOB
-- Replace with your query
     FOR i IN (select object_id A, object_name B, object_type C, status D, temporary E, generated F, secondary G,namespace H from user_objects where rownum < 10)
     LOOP
    IF lc_clob IS NULL THEN
      lc_clob := i.A||lv_clmn_separator||i.B||lv_clmn_separator||i.C||lv_clmn_separator||i.D||lv_clmn_separator||i.E||lv_clmn_separator||i.F||lv_clmn_separator||i.G||lv_clmn_separator||i.H;
    ELSE
      lc_clob := lc_clob||CHR(10)||i.A||lv_clmn_separator||i.B||lv_clmn_separator||i.C||lv_clmn_separator||i.D||lv_clmn_separator||i.E||lv_clmn_separator||i.F||lv_clmn_separator||i.G||lv_clmn_separator||i.H;
    END IF;
     END LOOP;
     -- Convert CLOB to BLOB
     DBMS_LOB.CREATETEMPORARY(lb_blob,TRUE);
     DBMS_LOB.convertToBlob(lb_blob,lc_clob,DBMS_LOB.LOBMAXSIZE,li_in,li_out,DBMS_LOB.DEFAULT_CSID,li_lang,li_warning);
     -- Send mail
     ln_id:= APEX_MAIL.SEND(
       p_to        => lv_mail_rcpts,
             p_from      => lv_mail_from,
             p_subj      => 'Subject Goes here',
             p_body      => 'Body goes here'
     -- add CSV file as attachment
     APEX_MAIL.ADD_ATTACHMENT
       p_mail_id   => ln_id,
       p_attachment => lb_blob,
       p_filename   => 'filename.csv',
       p_mime_type => 'application/csv'
-- push mail queue
APEX_MAIL.PUSH_QUEUE;
     -- empty temporary space
     DBMS_LOB.FREETEMPORARY ( lob_loc => lb_blob);
     COMMIT;
END;Regards,
Hari

How to embed a file(of any type) into excel sheet

Similar Messages

Maybe you are looking for