Populate Result of query in Different worksheets of One Workbook in Excel.

Question

I want to get output of different queries to be populated in Different Sheets of a workbook of Excel in Unix/Linux Environment.

Answer 1

Here is an example perl script using the Spreadsheet::WriteExcel CPAN module that might help:
===#!/usr/bin/perl
use strict;
use DBI;
use Spreadsheet::WriteExcel;
my ($toc,$data_sheet,$f,%data,$workbook) = ();
my ($workbook_filename) = "mytest.xls";
$workbook = Spreadsheet::WriteExcel->new($workbook_filename);
sub build_excel_workbook {
  $workbook->compatibility_mode();
  $f = \%{$data{excel_format}};
  $$f{bold} = $workbook->add_format();
  $$f{bold}->set_bold();
  $$f{right_align} = $workbook->add_format();
  $$f{right_align}->set_align("right");
  $toc = \%{$data{excel_table_of_contents}};
  $$toc{tab} = $workbook->add_worksheet("Table of Contents");
  $$toc{tab}->freeze_panes(1,0);
  $$toc{tab}->set_column(0,1,20);
  $$toc{tab}->write(0,0,"WorkSheet Name",$$f{bold});
  $$toc{tab}->write(0,1,"Comments",$$f{bold});
  $data_sheet = \%{$data{excel_data_sheet}};
  $$data_sheet{tab} = $workbook->add_worksheet("EMP table");
  $$data_sheet{current_row} = 0;
  $$toc{tab}->write(1,0,"EMP table");
  $$toc{tab}->write(1,1,"Example WorkSheet containing EMP sample data");
build_excel_workbook();
my $db = DBI->connect( "dbi:Oracle:Local", "scott", "tiger" )
    || die( $DBI::errstr . "\n" );
$db->{AutoCommit}    = 0;
$db->{RaiseError}    = 1;
$db->{ora_check_sql} = 0;
$db->{RowCacheSize}  = 16;
my $SEL = "SELECT * FROM EMP";
my $sth = $db->prepare($SEL);
$sth->execute();
while ( my @row = $sth->fetchrow_array() ) {
    for (my $i = 0; $i <= $#row; $i++) {
        $$data_sheet{tab}->write($$data_sheet{current_row},$i,$row[$i]);
    $$data_sheet{current_row}++;
END { $db->disconnect if defined($db); }
#end_script===
Best Regards,
Bryan Wood
Edited by: BryanWood on Jan 26, 2012 4:07 PM
Edited by: BryanWood on Jan 26, 2012 4:10 PM