Call now: 252-767-6166  
Oracle Training Oracle Support Development Oracle Apps

 E-mail Us
 Oracle Articles
New Oracle Articles

 Oracle Training
 Oracle Tips

 Oracle Forum
 Class Catalog

 Remote DBA
 Oracle Tuning
 Emergency 911
 RAC Support
 Apps Support
 Oracle Support

 SQL Tuning

 Oracle UNIX
 Oracle Linux
 Remote s
 Remote plans
 Application Server

 Oracle Forms
 Oracle Portal
 App Upgrades
 SQL Server
 Oracle Concepts
 Software Support

 Remote S


 Consulting Staff
 Consulting Prices
 Help Wanted!


 Oracle Posters
 Oracle Books

 Oracle Scripts

Don Burleson Blog 







Download Oracle Table Rows Into Separate Excel Spreadsheets

Expert Oracle Database Tips by Donald BurlesonJanuary 3, 2015

Question: I have a script which retrieves data from different table and my requirement is to use the SQL*Plus spool command to write the table data into a flat file.  Then, I need the data from each table to be spooled into different sheets in the same excel sheet.

spool d:\spool\spool1.xls
select * from tab1;
select * from tab2;
select * from tab3;
spool off

In the above code, data from tab1 should be spooled into Excel sheet1 and data from Tab2 should be spooled into Excel sheet2 and so on, all within the same excel spreadsheet.  

Answer:  One option is to use Excel-DB with a direct API from Excel to Oracle.

Another way to write Oracle data into multiple Excel sub-sheets is to use a Perl script, like this one:

use Win32::OLE::Const 'Microsoft Excel';

system "sqlplus","develop\@wwcdb\/uters","\@D:\\ulab\\DB\\rec\\country" ,"D:\\ulab\\DB\\rec\\COUNTRY" ;

open CNTRY ,"D:\\ulab\\DB\\rec\\COUNTRY_DATA.txt" or die "Can't open : $!";
@country =
close CNTRY;

my $workbook  = Spreadsheet::WriteExcel->new('D:\\ulab\\DB\\rec\\COUNTRY.xls');

foreach $cnt (@country)

$cntry =  (substr($cnt,0,2) );
$worksheet1 = $workbook->add_worksheet($cntry);
#system "sqlplus","develop\@wwcdb\/uters","\@D:\\ulab\\DB\\rec\\test","$cntry","D:\\ulab\\DB\\rec\\$cntry" ;

$Excel = Win32::OLE->GetActiveObject('Excel.Application') ||  Win32::OLE->new('Excel.Application');
$Excel->{'Visible'} = 0;         
$Excel->{DisplayAlerts}=0; $ctry =
print $ctry;
$Book = $Excel->Workbooks->Open ("D:\\ulab\\DB\\rec\\$ctry.csv");
$Sheet = $Book->Worksheets(1);
#print "balaji";
$LastRow = $Sheet->UsedRange->Find({What=>"*",
             #print  $LastRow;

foreach  $row (1..$LastRow)
foreach  $col (1..22)
     $worksheet1 ->write($row-1, $col-1, $Sheet->Cells($row,$col)->{'Value'});

Get the Complete
Oracle SQL Tuning Information 

The landmark book "Advanced Oracle SQL Tuning  The Definitive Reference"  is filled with valuable information on Oracle SQL Tuning. This book includes scripts and tools to hypercharge Oracle 11g performance and you can buy it for 30% off directly from the publisher.



Burleson is the American Team

Note: This Oracle documentation was created as a support and Oracle training reference for use by our DBA performance tuning consulting professionals.  Feel free to ask questions on our Oracle forum.

Verify experience! Anyone considering using the services of an Oracle support expert should independently investigate their credentials and experience, and not rely on advertisements and self-proclaimed expertise. All legitimate Oracle experts publish their Oracle qualifications.

Errata?  Oracle technology is changing and we strive to update our BC Oracle support information.  If you find an error or have a suggestion for improving our content, we would appreciate your feedback.  Just  e-mail:  

and include the URL for the page.


Burleson Consulting

The Oracle of Database Support

Oracle Performance Tuning

Remote DBA Services


Copyright © 1996 -  2020

All rights reserved by Burleson

Oracle ® is the registered trademark of Oracle Corporation.



Oracle Training at Sea
oracle dba poster

Follow us on Twitter 
Oracle performance tuning software 
Oracle Linux poster