Wrinting into an Excel Sheet File

[Sport Girl]

Hi all , i need to write into an excel sheet file the data retreived from the database. i have the script but the problem is that i can't get the data written in the excel file.

Can anybody help pleeeassse.

#!/usr/bin/perl 
use strict;
use warnings;
use DBI;
use DBD::mysql;
use lib qw(.);
use Bugzilla;
use Bugzilla::Bug;
use Bugzilla::Util;
use Bugzilla::Constants;
use Time::Local;
use Spreadsheet::WriteExcel;
 
 
my $dbh = DBI->connect('DBI:mysql:database=bugs;host=localhost', 'jinny', 'jinny') or die "Connection Error";
 
my $Excelfile = "./Report.xls";
 
#create a new instance
my $excel = Spreadsheet::WriteExcel->new("$Excelfile");
my $worksheet = $excel->addworksheet("Bugs Report");
my $now = localtime time;
$worksheet->write(0, 0, "Report generated on :$now" );
 
my $stmt = "SELECT * FROM bugs ORDER BY bug_id";
 
 
my $sth = $dbh->prepare($stmt);
my @data;
 
$sth->execute() or die $dbh->errstr;
 
while ( @data = $sth->fetchrow_array()){
    my $bug_id = $data[1];
    my $assigned_to = $data[2];
    my $bug_file_loc = $data[3];
    my $bug_severity = $data[4];
    my $bug_status = $data[5];
    my $creation_ts = $data[6];
    my $delta_ts = $data[7];
    my $short_desc = $data[8];
    my $op_sys = $data[9];
    my $priority = $data[10];
    my $product_id = $data[11];
    my $rep_platform = $data[12];
    my $reporter = $data[13];
    my $version = $data[14];
    my $component_id = $data[15];
    my $resolution = $data[16];
    my $target_milestone = $data[17];
    my $qa_contact = $data[18];
    my $status_whiteboard = $data[19];
    my $votes = $data[20];
    my $keywords = $data[21];
    my $lastdiffed = $data[22];
    my $everconfirmed = $data[23];
    my $reporter_accessible = $data[24];
    my $cclist_accessible = $data[25];
    my $estimated_time = $data[26];
    my $remaining_time= $data[27];
    my $deadline = $data[28];
    my $alias= $data[29];
    my $row = 0;
    my $col = 0;
    foreach my $stmt (@data) {
        $worksheet->write($row++, @data);
        last;
    }
}
 
$sth->finish();
$dbh->disconnect();
 
 

[numberwhun]

Just a couple of quick questions back at you:

1. What errors were you getting when executing, if any?

2. Do you have Micro$oft Excel installed on this machine?

Regards,

Jeff

[Sport Girl]

Hi Jeff, how r u?

As answers to ur quesrtions, i am not guetting any errors, there is no syntax errors but there is no retreival for the data as well.
I have also Microsoft Excel installed on my machine.

Regards

[Sport Girl]

just wanna add that i get in the excel sheet file in the first row a data that is far from being the data of the database:

Report generated on :Mon Sep 3 09:31:40 2007 2 2 8 12 15 6 9 5 8 2 6 2 19 12 5 22 17 18 14 14 14 14 21 14 28 14 14 2 15 14 6 28 23 14 14 9 9 21 13 8 8 13 14 22 15 23 23 14 22 28 28 28 14 15 15 22 2 14 14 5 9 14 14 14 5 14 14 12 14 14 14 14 28 14 14 8 14 14 14 8 14 14 14 14 14 14 28 8 22 15 28 28 15 28 14 21 21 21 14 14 8 14 14 5 14 14 14 15 21 14 14 14 34 12 14 2 2 2 2 14 23 14 6 14 21 21 14 35 14 19 13 19 19 19 19 19 26 21 14 19 17 18 9 31 32 32 14 31 14 35 32 12 22 14 2 2 30 30 31 30 32 13 13 23 23 23 14 14 28 28 28 30 28 28 9 28 28 32 2 31 28 2 6 2 21 30 9 14 14 30 30 30 30 14 14 30 28 28 31 12 14 28 31 9 9 9 2 9 31 30 30 32 2 20 6 2 30 2 17 17 19 18 26 23 19 26 19 26 19 26 11 11 20 33 33 33 20 20 20 20 20 20 33 20 33 30 9 30 32 30 31 9 15 15 30

[Sport Girl]

It's ok i have done this , thank u all very much for ur help , i appreciate it very much.

[numberwhun]

It's ok i have done this , thank u all very much for ur help , i appreciate it very much.

That's great, but for those of use scratching our heads, what was the issue and what was your solution?

[greettech]

That's great, but for those of use scratching our heads, what was the issue and what was your solution?

Hi all,
I have a select stmt like this..
$q= "select empl_no,empl_name,doj,attnd as total,uninformed as .......id,1 from salary where category='$cat' and month='$cmprmonth' order by id";

and i am binding the vaues to variables, $empl_no.. etc.,... and iam printing all the values in table format on web page.

But I want to write into an excel sheet in a same table format when i click on the button.. because i want to take a print out from that excel report.

how to do it? please tell me its urgent... help me out in this...

regards,
greet