Issue to export data from sql to excel

I have MS SQL 2008 Developer version and visual studio 2008. I'm using SSIS Import and Export Wizard on the VS2008 to create a simple package to export data from a table using a sql query to excel file (.xlsx), but I got the following
error messages:
[Destination - Query [37]] Error: SSIS Error Code DTS_E_OLEDBERROR. An OLE DB error has occurred. Error code: 0x80040E21.
[Destination - Query [37]] Error: Cannot create an OLE DB accessor. Verify that the column metadata is valid.
[SSIS.Pipeline] Error: component "Destination - Query" (37) failed the pre-execute phase and returned error code 0xC0202025.
The SQL query is
SELECT [BusinessEntityID]
      ,[PersonType]
      ,[NameStyle]
      ,[Title]
      ,[FirstName]
      ,[MiddleName]
      ,[LastName]
FROM [AdventureWorks2008].[Person].[Person]
Any help will be appreciated. Thanks.
A Fan of SSIS, SSRS and SSAS

Or another way is to save the package created by Export Import wizard, open it in BIDS and add a Derived column task before the Excel destination to do explicit casting of the columns to your required unicode datatypes.
Please Mark This As Answer if it solved your issue
Please Vote This As Helpful if it helps to solve your issue
Visakh
My Wiki User Page
My MSDN Page
My Personal Blog
My Facebook Page

Similar Messages

Procedure/batch file to export data from sql to excel(predefined path)

Hi,
I have countries, sites, states tables (total 3) in database (i have user id and password to connect to this database).
every week i need to extract data from these tables into excel files and i need to save those in shared drive for team use.
Currently i am connecting to database every time running sql query and manually exporting that latest data to excel and saving that as excel files in (G:\team\common\) folder with specific name.
output format should be : excel (.xls)
file names should - countries.xls,sites.xls,states.xls
server name : ap21
output location : G:\team\common\ ( G is shared drive).
i heard that we could create batch file to do this task and also we could use oracle procedure to do this task. but not sure which one is the best option.
could you please guide me what is the option and also help me with technical stuff to do this task.

Hello,
output format should be : excel (.xls)Do you really want to create .xls files? This is not easy to do because it is a proprietary (MS) binary format. You should consider other formats like .csv or .xlsx. Follow the link in the previous answer how to generate them.
file names should ...The name of the files does not matter, you are free to name them as you like.
server name : ap21
output location : G:\team\common\ ( G is shared drive).You can write the file generated in the database only to directories that are accessible from the db as Oracle Directories. You could mount the shared drive to the db server, but it might be better to write the output to a server directory and then transfer them to the shared drive with OS-copy command or FTP.
i heard that we could create batch file to do this task and also we could use oracle procedure to do this task. but not sure which one is the best option.I would use Oracle Scheduler to execute a PL/SQL procedure to generate the files and then a OS-batch file to transfer them. You can use the Scheduler to execute the batch file too, see {message:id=3895983}.
Regards
Marcus

Error while exporting data from sql server to excel

Hi,
I am trying to export data from sql server to excel.
The query that I used is s follows
INSERT INTO OPENROWSET( 'Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;Database=C:\Folder1\abc.xls','select * from [Sheet1$A1:IV65000]')
select
column1,column2.... from Table1
I get the following error message while doing so..
String or binary data would be truncated.
The statement has been terminated.
One of the column's holds data more than 225 characters.
What is the way to correct this, i want the whole data of the colum in the excel sheet.

I haven't had great luck with the INSERT INTO OPENROWSET method. Can you try one of the many samples from one of these 3 links?
http://www.excel-sql-server.com/excel-sql-server-import-export-using-vba.htm#Excel%20Data%20Export%20to%20SQL%20Server%20Test%20Code
http://www.mssqltips.com/sqlservertip/1540/insert-update-or-delete-data-in-sql-server-from-excel/
https://www.simple-talk.com/sql/database-administration/getting-data-between-excel-and-sql-server-using-odbc--/
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Exporting Data from Essbase to Excel

Hi All,
We are using classic planning application developed in Hyperion 11.1.2.2.
Is there any way that we can export data from Essbase to Excel (Please note that i don't want to do it on server machine where essbase is installed, instead i want it on any client PC which is accessing Essbase)

there are many ways you can do that, Through Excel Add-in,SmartView functions etc different.
It depends on the requirement , if you mean to say who Essbase Data then someone else should be able to answer this.
Thanks
Amith

Export data from forms to excel

HI
In my application im trying to export data from forms to excel.Everything works fine.First of all im using get_file_name for selecttion of file and passing it to ole2 package as follows
FILENAME := GET_FILE_NAME(File_Filter=> 'XLS Files (*.xls)|*.xls|',dialog_type=>SAVE_FILE);
     ARGS:=OLE2.CREATE_ARGLIST;
     oLE2.ADD_ARG(ARGS,Filename);
     OLE2.INVOKE(WORKSHEET,'SAVEAS',ARGS);
The problem is if i select an existing file the get_file_name itself raises one message ".....file already exists Replace an existing file?"
Similarly the excel also also raises the same message "".....file already exists Replace an existing file?".I want to suppress atleast one of them? Could anyone help for this problem?
appreciate ur help
THANKS

Looks like...
ole2.set_property( ex_app, 'DisplayAlerts', false );
where "ex_app" variable Excel Application -
     ex_app:=     ole2.create_obj('Excel.Application');
and more Question:
When i close excel app - in process viewer i see "excel.exe"
ole2.release_obj don't work :(

Exporting data from SQL Server database to Oracle database

Hello All,
We need to replicate a table's data of SQL Server database to Oracle database.
Can this task be accomplished using Import/Export wizard or Linked servers?
Can help me regarding which Oracle data access components should i download to do this?
I am using SQL Server 2012.
And i have Oracle 11g release 2 client installed in my system.
Thanks in Advance.
Thanks and Regards, Readers please vote for my posts if the questions i asked are helpful.

Yes you can definitely transfer data from SQL server to Oracle Have a look at below links
Export SQL server data to Oracle Using SSIS
Use OLEDB data provider to transfer data from SQL server to Oracle
Using Import Export Wizard
Similar thread
Please mark this reply as answer if it solved your issue or vote as helpful if it helped so that other forum members can benefit from it.
My TechNet Wiki Articles

To fatch the data from sql to excel ??? any idea....

dear all,
my problem is - i want to retrive the data from sql server to excel sheet... can any one suggest the idea what to do ???
thanks.

You can open two connections. One to SQL Server (you can use a thin or JDBC-ODBC bridge), the other to your Excel spreadsheet using the JDBC-ODBC bridge. You could query the SQL Server database, massage and format your data, then write it to Excel. Excel works with a very limited set of SQL. Here is a program from a post by Tim Vickers that others sounded happy to have. I'm reposting here for your convenience. I have not personally run this program, so please use it at your own risk.
import java.sql.*;
import java.io.*;
import java.util.*;
import java.text.*;
* Name: Excel.java
* Purpose: To demonstrate how to use ODBC and Excel to create
* a table,
* insert data into it, and select it back out.
* Version: Developed using JDK 1.3, but also works with JDK
* 1.2.2
* Instructions:
* 1) Create a new Excel spreadsheet
* 2) Create a new ODBC data source that points to this
* spreadsheet
* a) Go to Control Panel
* b) Open "ODBC Data sources (32-bit) (wording may be
* slightly
* different for different platforms)
* c) Under "User DSN" tab, press "Add" button
* d) Select the "Microsoft Excel Driver (*.xls)" and
* press
* "Finish" button
* e) Enter "Data Source Name" of "TestExcel"
* f) Press "Select Workbook" button
* g) Locate and select the spreadsheet you created in
* Step 1
* h) Unselect the "Read Only" checkbox
* i) Press "Ok" button
* 3) Compile and run Excel.java
* 4) Open Excel spreadsheet and you will find a newly
* created
* sheet, GOOD_DAY, with three rows of data.
* Notes:
* If you want to select data from a spreadsheet that was
* NOT
* created via JDBC-ODBC (i.e. you entered data manually
* into
* a spreadsheet and want to select it out), you must
* reference
* the sheet name as "[sheetname$]".
* When you create the table and insert the data using
* Java, you
* must reference the sheet name as "sheetname".
* Also, do not have the spreadsheet open when you are
* running
* the program. You can get locking conflicts.
public class Excel {
    public Excel() {
        setDefaults();
    private static void m(String pMessage) {
        System.out.println(pMessage);
    private void setDefaults() {
        setDriver("sun.jdbc.odbc.JdbcOdbcDriver");
        setUrl("jdbc:odbc");
        // ODBC data source named "TestExcel" defined from
        Control Panel
        setDataSource("TestExcel");
        setTableName("GOOD_DAY");
    public void openDatabase() {
        String lConnectStr = getUrl()+":"+getDataSource();
        try {
            Class.forName(getDriver());
            gConnection = DriverManager.getConnection(lConnectStr);
        catch (Exception e) {
            m("openDatabase(): "+e.getMessage());
    private void closeDatabase() {
        try {
            getConnection().close();
        catch (Exception e) {
            m("closeDatabase(): "+e.getMessage());
    private void createTable() {
        m("createTable() begin");
        Statement lStat = null;
        try {
            lStat = getConnection().createStatement();
            lStat.execute("CREATE TABLE "+getTableName()+" ("
            +" ID INTEGER"
            +" ,NAME VARCHAR"
            +")");
        catch (Exception e) {
            m("createTable(): "+e.getMessage());
        m("createTable() end");
    private void doInsert() {
        m("doInsert() begin");
        Statement lStat = null;
        try {
            lStat = getConnection().createStatement();
            lStat.executeUpdate("INSERT INTO "
            +getTableName()+"(ID,NAME) VALUES
            (10,'KANGAROO')");
            lStat.executeUpdate("INSERT INTO "
            +getTableName()+"(ID,NAME) VALUES (20,'KOALA')");
            lStat.executeUpdate("INSERT INTO "
            +getTableName()+"(ID,NAME) VALUES (30,'PAUL
            HOGAN')");
            lStat.close();
        catch (Exception e) {
            m("doInsert(): "+e.getMessage());
        m("doInsert() end");
    private void doQuery() {
        m("doQuery() begin");
        try {
            Statement lStat = getConnection().createStatement();
            ResultSet lRes = lStat.executeQuery(
            "SELECT * FROM "+getTableName()
            ResultSetMetaData lMeta = lRes.getMetaData();
            // print out the column headers separated by commas
            for (int i = 1; i <= lMeta.getColumnCount(); ++i) {
                if (i > 1)
                    System.out.print(", ");
                String lValue = lMeta.getColumnName(i);
                System.out.print(lValue);
            System.out.println("");
            // print out the data separated by commas
            while (lRes.next()) {
                for (int i=1; i<=lMeta.getColumnCount(); ++i) {
                    if (i > 1)
                        System.out.print(", ");
                    String lValue = lRes.getString(i);
                    System.out.print(lValue);
                System.out.println("");
            lRes.close();
            lStat.close();
        catch (Exception e) {
            m("doQuery(): "+e.getMessage());
        m("doQuery() end");
    private void run() {
        openDatabase();
        createTable();
        doInsert();
        doQuery();
        closeDatabase();
    public static void main(String args[]) {
        m("main() begin");
        Excel lExcel = new Excel();
        lExcel.run();
        m("main() end");
        System.exit(0);
    public void setTableName(String pValue) {
        gTableName = pValue;
    public String getTableName() {
        return(gTableName);
    public void setSql(String pValue) {
        gSql = pValue;
    public String getSql() {
        return(gSql);
    public Connection getConnection() {
        return(gConnection);
    public String getDataSource() {
        return(gDataSource);
    public void setDataSource(String pValue) {
        gDataSource = pValue;
    public void setDriver(String pValue) {
        gDriver = pValue;
    public void setUrl(String pValue) {
        gUrl = pValue;
    public String getDriver() {
        return (gDriver);
    public String getUrl() {
        return (gUrl);
    private Connection
    gConnection = null
    private String
    gDataSource = null
    ,gTableName = null
    ,gSql = null
    ,gDriver = null
    ,gUrl = null
}

Export data from block to excel.

Hi
Does anybody know how I can export data from oracle forms to an excel worksheet. I need to provide a direct interface for a user where he fetches the data into the block and by just click a button the data from the block should go to an excel sheet.
Thanks in advance
-Samsam

Something along the following lines should help you in you are Client/Server. If you're on the Web then make sure you have WebUtil set up and add "CLIENT_" to all the OLE2 calls.
PROCEDURE P_EXCEL IS
     application ole2.Obj_Type;
     workbooks ole2.Obj_Type;
     workbook ole2.Obj_Type;
     worksheets ole2.Obj_Type;
     worksheet ole2.Obj_Type;
     args ole2.List_Type;
     cell ole2.Obj_Type;
     j INTEGER;
     k INTEGER;
     file_name_cl VARCHAR2(32767);
     item_prompt VARCHAR2(32767);
user_cancel EXCEPTION;
BEGIN
-- open the java save file dialogue box
file_name_cl := GET_FILE_NAME('H:\', 'file_name.xls', 'XLS Files (*.xls)|*.xls|', NULL, SAVE_FILE, TRUE);
file_name_cl := SUBSTR(file_name_cl,1,LENGTH(file_name_cl));
IF file_name_cl IS NULL THEN
RAISE user_cancel;
END IF;
application := ole2.create_obj('Excel.Application');
workbooks := ole2.Get_Obj_Property(application, 'Workbooks');
workbook := ole2.Invoke_Obj(workbooks, 'Add');
worksheets := ole2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := ole2.Invoke_Obj(worksheets, 'Add');
go_block('EXPORT_BLOCK');
first_record;
j:=1; /* Represents row number */
k:=1; /* Represemts column number */
/* Add the column headings using item prompts */
     FOR k IN 1..10 /* Block has 10 visible columns */
LOOP
item_prompt := get_item_property(:SYSTEM.CURRENT_BLOCK||'.'||:SYSTEM.CURRENT_ITEM, prompt_text);
args:=ole2.create_arglist;
ole2.add_arg(args, j);
ole2.add_arg(args, k);
cell:=ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
ole2.set_property(cell, 'Value', item_prompt);
ole2.release_obj(cell);
next_item;
END LOOP;
j:=j+1; /* Add to rowcount so that data won't overwrite column headings! */
LOOP
/* Add in all the data */
FOR k IN 1..10 /* Block has 10 visible columns */
LOOP
IF NOT name_in(:system.cursor_item) IS NULL THEN
args:=ole2.create_arglist;
ole2.add_arg(args, j);
ole2.add_arg(args, k);
cell:=ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
ole2.set_property(cell, 'Value', name_in(:system.cursor_item));
ole2.release_obj(cell);
END IF;
next_item;
END LOOP;
j:=j+1;
IF :system.last_record = 'TRUE' THEN
     exit;
ELSE
     next_record;
END IF;
END LOOP;
     ole2.Release_Obj(worksheet);
     ole2.Release_Obj(worksheets);
     /* Save the Excel file created */
     args := ole2.Create_Arglist;
     ole2.Add_Arg(args, file_name_cl);
     ole2.Invoke(workbook, 'SaveAs', args);
     ole2.Destroy_Arglist(args);
     /* release workbook */
     ole2.Release_Obj(workbook);
     ole2.Release_Obj(workbooks);
     /* Release application */
     ole2.Invoke(application, 'Quit');
     ole2.Release_Obj(application);
EXCEPTION
WHEN user_cancel THEN
     RAISE;
END;

Export data from MSA to Excel?

Can we export daat from MSA to Excel? When we search for the business partners, is there a way to download the results to excel?
Thanks!

Hi,
Yes you can bring the data to Excel. One you a Business Partner Search,the results flow down to the list tile.
1)Select one of the grid rows and Right Click on where the Arrow points.
2) A small drop down comes up.choose the option "Generate Report".
3) This opens up the"InstantReport" screen. Choose "MicrosoftExcel" in the Instant Report To Combo.
4)Select the grid columns that you want and add them using the buttons present there.
5)Then click on the button "Generate".
6)The data flows down to an Excel sheet.
Regards,
Abishek

Exporting Data from Forms to Excel

Hi,
How can I export the data from Forms to Excel like which Export function in the Oracle Applications.
Thank you,
Voon

Hello,
By using dde package you can export the data from Form to Excel. Here is the sample code which i have used. you can write this code in the when_button_pressed trigger.
declare
appl_name varchar2(255);
channel_id pls_integer;
application_id pls_integer;
x number;
y number;
V_TIME VARCHAR2(30);
begin
if :global.application_id is not null then
message('Application already open');
else
appl_name := 'c:\program files\microsoft office\office\excel.exe';
:global.application_id := dde.app_begin(appl_name,dde.app_mode_normal);
end if;
if :global.channel_id is not null then
message('Communication channel already established.');
elsif :global.application_id is null then
message('Application must be launched first.');
else
:global.channel_id := dde.initiate('excel','book1');
end if;
DDE.POKE(:global.channel_id,'R1C1','Col1 Heading',DDE.CF_TEXT,1000);
DDE.POKE(:global.channel_id,'R1C2','Col2 Heading',DDE.CF_TEXT,1000);
DDE.POKE(:global.channel_id,'R1C3','Col3 Heading',DDE.CF_TEXT,1000);
FIRST_RECORD;
X := No of Records;
for y in 2..x
loop
launch_excel is a program unit--
launch_excel(y,:global.channel_id,:block.item1,:block.item2,::block.item3);
next_record;
end loop;
FIRST_RECORD;
EXCEPTION
WHEN DDE.DDE_APP_FAILURE THEN
MESSAGE('Could not launch application for DDE operations.');
RAISE FORM_TRIGGER_FAILURE;
WHEN DDE.DDE_INIT_FAILED THEN
MESSAGE('Could not initialize DDE communication channel.');
RAISE FORM_TRIGGER_FAILURE;
WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
MESSAGE('Could not establish DDE communication channel.');
RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
MESSAGE('Error: '| |TO_CHAR(SQLCODE)| |' '| |SQLERRM);
RAISE FORM_TRIGGER_FAILURE;
END;
LAUNCH_EXCEL
PROCEDURE LAUNCH_EXCEL(
y in number,
channel_id pls_integer,
param1 varchar2,
param2 VARCHAR2,
param3 varchar2) IS
v_rowno varchar2(20) := 'R'| |y;
BEGIN
dde.poke(channel_id,v_rowno| |'C1',col1,dde.cf_text,2000);
dde.poke(channel_id,v_rowno| |'C2',col2,dde.cf_text,2000);
dde.poke(channel_id,v_rowno| |'C3',col3,dde.cf_text,2000);
EXCEPTION
when others then
message('Error --'| |sqlcode| |sqlerrm);
message('Error --'| |sqlcode| |sqlerrm);
raise form_trigger_failure;
END;
null

BI 4.0 sp 6 service name to export data from webi to excel

Hi there,
I'm using BI 4.0 SP6 and I was just curious to find out which servers/services are invoked while exporting data from WebI report to Excel?
Thanks in advance.
Regards,
samique

Check below section in the Admin guide for this information.
Architecture\Process Workflows

How to export data from report to excel using report 10g

Hi,
usnig report 10g, can we export the data from report to excel.
Regards
Randhir

Hi,
have a look at metalink note 209770.1: Getting Reports Ouput to MS Excel - Techniques and References
Regards
Rainer

Issues in exporting data from SAP tables in SE16 to excel

1.How can I save an sap table (displayed through SE16) in ECC6 into a pivot table in excel. [ I have seen this option in R/3 4.7, but do not see it in ECC.]
2.How can I copy all the rows of a 3000 row SAP table in SE16 and paste the values into excel. I need to do this in one shot and not page by page.
3.What option do I need to select inorder to preserve the formating of the values while saving as a local file in a spreadsheet format. All the values with leading zeros,like company codes gets saved with only their numeric portion when I save a SAP table as a local file. for eg company code 0001 gets saved in excel as just 1,company code 0056 gets saved as 56 etc. How do I prevent this? What option do I need to set in SAP in order for the values to be downloaded as is, without any truncation of leading zeros.

1. I don't know. How about creating a pivot after exporting data
2. System->List->Save->local file->clipboard
Then paste whole lot in Excel
3. This is a problem with Excel, not SAP. SAP exports with leading zeroes.
You could export as flat file & import into Excel into a spreadsheet with an appropriate numbering format.

Exporting data from table to Excel in a particular format using BSP.

Hello all,
      I am creating a application in BSP wherein i have to export data to excel sheet.
I am able to do that but the output in excel sheet is not formatted. it is displaying the data in a single
column. For example, the internal table which i am exporting to excel contains fields "product
name", "area name", country name", "values". all these should be displayed in different columns.How
can i achieve this functionality.A sample code will be of great help..
Below is the code i hav written for exporting to excel :
     data: l_len type i,
           l_string type string,
           app_type type string,
           file_content type xstring,
           file_mime_type type string.
     create OBJECT cached_response TYPE cl_http_response EXPORTING add_c_msg = 1.
     cached_response->set_data( file_content ).
     cached_response->set_header_field(
                      name = if_http_header_fields=>content_type
                      value = file_mime_type ).
LOOP AT itab_xls INTO wa_xls.
   CONCATENATE L_STRING wa_xls-product_name
   wa_xls-area_name
   wa_xls-landx
   CL_ABAP_CHAR_UTILITIES=>CR_LF INTO L_STRING SEPARATED BY SPACE.
ENDLOOP.
APP_TYPE = 'APPLICATION/MSEXCEL; charset=utf-16le'.
data: l_xstring type xstring.
call function 'SCMS_STRING_TO_XSTRING'
    exporting
      text = l_string
      MIMETYPE = 'APPLICATION/MSEXCEL; charset=utf-16le'
    IMPORTING
      BUFFER = l_xstring.
Add the Byte Order Mark - UTF-16 Little Endian
concatenate cl_abap_char_utilities=>byte_order_mark_little
               l_xstring
               into l_xstring in byte mode.
   cached_response->set_data( l_xstring ).
   cached_response->set_header_field( name = if_http_header_fields=>content_type
                                     value = 'APPLICATION/MSEXCEL; charset=utf-16le' ).
*Set the filename into the response header
   cached_response->set_header_field( name = 'Content-Disposition'
                              value = 'attachment; filename=gkb_excel.xls' ).
*Set the Response Status
   cached_response->set_status( code = 200 reason = 'OK' ).
*Set the Cache Timeout - 60 seconds - we only need this in the cache
*long enough to build the page and allow the IFrame on the Client to request it.
   cached_response->server_cache_expire_rel( expires_rel = 60 ).
    CALL FUNCTION 'GUID_CREATE'
    IMPORTING
      ev_guid_32 = guid.
    CONCATENATE runtime->application_url '/' guid '.xls' INTO url.
    cl_http_server=>server_cache_upload( url      = url
                                       response = cached_response ).
Can anyone help me with some solution.
Thanks in advance.
Gurmahima.

the issue is here
LOOP AT itab_xls INTO wa_xls.
CONCATENATE L_STRING wa_xls-product_name
wa_xls-area_name
wa_xls-landx
CL_ABAP_CHAR_UTILITIES=>CR_LF INTO L_STRING SEPARATED BY SPACE.
ENDLOOP.
instead do the following
LOOP AT itab_xls INTO wa_xls.
CONCATENATE L_STRING wa_xls-product_name ','
wa_xls-area_name ','
wa_xls-landx ','
CL_ABAP_CHAR_UTILITIES=>CR_LF INTO L_STRING .
ENDLOOP.
and then change the file name extension from xls to csv. it should open properly in excel.
Note that this is only excel csv file. if you want a proper excel excel file, then
option one: build a html table with your data into a string and pass it to excel
option 2: build excel xml using your data into a string and pass it to excel.
Regards
Raja

Error while exporting data from ABAP to Excel

Hello All,
iam trying to download data from ABAP scrn to Excel using I_OI_SPREADSHEET METHODS. I get an error in method 'SET_RANGES_DATA' - 'Memory protection fault occurred in document interface'.
I have pasted my code below. Kindly help me to solve this issue.
Create container ??
CALL METHOD c_oi_container_control_creator=>get_container_control
    IMPORTING
      control = g_control
      error   = g_error.
Initialize
CALL METHOD g_control->init_control
    EXPORTING
      r3_application_name      = 'Basis'
      parent                   = g_container
     register_on_close_event = c_reg_on_close_event
     register_on_custom_event = c_reg_on_custom_event
     no_flush                 = c_no_flush
    IMPORTING
      error                    = g_error.
Set Doc type
g_document_type = 'Excel.Sheet'.
Create Proxy
CALL METHOD g_control->get_document_proxy
    EXPORTING
      document_type = g_document_type
    IMPORTING
      document_proxy = g_document
      error          = g_error.
CALL METHOD g_document->create_document
    EXPORTING
      document_title = 'Excel'.                             "#EC NOTEXT
CALL METHOD g_document->get_spreadsheet_interface
    IMPORTING
      sheet_interface = g_handle.
CHECK g_document IS NOT INITIAL.
read selected line data from gtab
READ TABLE g_tab_data INDEX 1 INTO l_wa_pos_trans.
Get Field Descriptions
CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
      tabname        = 'TRIGS_EXPORT_EXCEL'
      langu          = sy-langu
    TABLES
      dfies_tab      = lt_dfies
    EXCEPTIONS
      not_found      = 1
      internal_error = 2
      OTHERS         = 3.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Header for User Data
l_h_cnt = 1.
LOOP AT lt_dfies INTO lwa_dfies.
    IF lwa_dfies-fieldname EQ 'USER_ID'          OR
       lwa_dfies-fieldname EQ 'EXCEL_DATE'       OR
       lwa_dfies-fieldname EQ 'EXCEL_TIME'       OR
       lwa_dfies-fieldname EQ 'SECURITY_ACCOUNT' OR
       lwa_dfies-fieldname EQ 'SECURITY_ID'      OR
       lwa_dfies-fieldname EQ 'COMPANY_CODE'.
      PERFORM fill_cell USING l_h_cnt 1 1 lwa_dfies-scrtext_m.
      l_h_cnt = l_h_cnt + 1.
    ENDIF.
ENDLOOP.
Fill Header Values
PERFORM fill_cell USING 1 2 1 sy-uname.
PERFORM fill_cell USING 2 2 1 sy-datum.
PERFORM fill_cell USING 3 2 1 sy-uzeit.
PERFORM fill_cell USING 4 2 1 l_wa_pos_trans-company_code .
PERFORM fill_cell USING 5 2 1 l_wa_pos_trans-security_account.
PERFORM fill_cell USING 6 2 1 l_wa_pos_trans-security_id.
Texts
l_h_cnt = l_h_cnt + 1.
PERFORM fill_cell USING l_h_cnt 1 1 text-011.
PERFORM fill_cell USING l_h_cnt 3 1 text-012.
Range for header
range_item-name = 'RANGE1'.
range_item-rows = '7'.
range_item-columns = '3'.
range_item-code = g_handle->spreadsheet_insertall.
APPEND range_item TO range_list.
CALL METHOD g_handle->set_selection
    EXPORTING
      left    = 1
      top     = 1
      rows    = 7
      columns = 3
    IMPORTING
      retcode = retcode.
CALL METHOD g_handle->insert_range
    EXPORTING
      columns = 3
      rows    = 7
      name    = 'RANGE1'
    IMPORTING
      retcode = retcode.
CALL METHOD g_handle->set_ranges_data
    EXPORTING
      ranges   = range_list
      contents = gt_cell_data
    IMPORTING
      retcode = retcode.
Columns for PC
CLEAR: gt_cell_data[].
l_pc_cnt = l_h_cnt + 1.
LOOP AT lt_dfies INTO lwa_dfies.
    IF lwa_dfies-fieldname EQ 'SBWHR' OR
       lwa_dfies-fieldname CP '_PC'.
      PERFORM fill_cell USING l_pc_cnt 1 0 lwa_dfies-scrtext_m.
      l_pc_cnt = l_pc_cnt + 1.
    ENDIF.
ENDLOOP.
Pos Curr - Values
PERFORM fill_cell USING 9 2 0 trls_position_value-sbwhr.
PERFORM fill_cell USING 10 2 0 trls_position_value-purch_pc.
PERFORM fill_cell USING 11 2 0 trls_position_value-charge_pc.
PERFORM fill_cell USING 12 2 0 trls_position_value-impmnt_pc.
PERFORM fill_cell USING 13 2 0 trls_position_value-amort_pc.
PERFORM fill_cell USING 14 2 0 trls_position_value-val_ti_pc.
PERFORM fill_cell USING 15 2 0 trls_position_value-val_idx_pc.
PERFORM fill_cell USING 16 2 0 trls_position_value-val_ch_ti_pc.
PERFORM fill_cell USING 17 2 0 trls_position_value-val_ti_npl_pc.
PERFORM fill_cell USING 18 2 0 trls_position_value-val_idx_npl_pc.
PERFORM fill_cell USING 19 2 0 trls_position_value-val_ch_ti_npl_pc.
PERFORM fill_cell USING 20 2 0 trls_position_value-book_val_pc.
Columns for VC
l_vc_cnt = l_h_cnt + 1.
LOOP AT lt_dfies INTO lwa_dfies.
    IF lwa_dfies-fieldname EQ 'SBWHR' OR
         lwa_dfies-fieldname CP '_VC'.
      PERFORM fill_cell USING l_vc_cnt 3 0 lwa_dfies-scrtext_m.
      l_vc_cnt = l_vc_cnt + 1.
    ENDIF.
ENDLOOP.
Val Curr
PERFORM fill_cell USING 9 4 0 trls_position_value-svwhr.
PERFORM fill_cell USING 10 4 0 trls_position_value-purch_vc.
PERFORM fill_cell USING 11 4 0 trls_position_value-charge_vc.
PERFORM fill_cell USING 12 4 0 trls_position_value-impmnt_vc.
PERFORM fill_cell USING 13 4 0 trls_position_value-amort_vc.
PERFORM fill_cell USING 14 4 0 trls_position_value-val_ti_vc.
PERFORM fill_cell USING 15 4 0 trls_position_value-val_fx_vc.
PERFORM fill_cell USING 16 4 0 trls_position_value-val_idx_vc.
PERFORM fill_cell USING 17 4 0 trls_position_value-val_ch_ti_vc.
PERFORM fill_cell USING 18 4 0 trls_position_value-val_ch_fx_vc.
PERFORM fill_cell USING 19 4 0 trls_position_value-val_fx_npl_vc.
PERFORM fill_cell USING 20 4 0 trls_position_value-val_ti_npl_vc.
PERFORM fill_cell USING 21 4 0 trls_position_value-val_idx_npl_vc.
PERFORM fill_cell USING 22 4 0 trls_position_value-val_ch_ti_npl_vc.
PERFORM fill_cell USING 23 4 0 trls_position_value-val_ch_fx_npl_vc.
PERFORM fill_cell USING 24 4 0 trls_position_value-book_val_vc.
Range for PC and VC
CLEAR: range_list[].
range_item-name = 'RANGE2'.
range_item-rows = '17'.
range_item-columns = '4'.
range_item-code = g_handle->spreadsheet_insertall.
APPEND range_item TO range_list.
CALL METHOD g_handle->set_selection
    EXPORTING
      left    = 1
      top     = 9
      rows    = 17
      columns = 4
    IMPORTING
      retcode = retcode.
CALL METHOD g_handle->insert_range
    EXPORTING
      columns = 4
      rows    = 17
      name    = 'RANGE2'
    IMPORTING
      retcode = retcode.
CALL METHOD g_handle->set_ranges_data
    EXPORTING
      ranges   = range_list
      contents = gt_cell_data
    IMPORTING
      retcode = retcode.
***********************************Form routine****************
FORM fill_cell USING i j bold val.
DATA:
   wa_cell_data TYPE soi_generic_item.
wa_cell_data-row = i.
wa_cell_data-column = j.
wa_cell_data-value = val.
APPEND wa_cell_data TO gt_cell_data.
ENDFORM.                    "FILL_CELL

Solved

Issue to export data from sql to excel

Similar Messages

Maybe you are looking for