for my $col ($col_min .. $col_max) {
my $cell = $sql_worksheet->get_cell($
$worksheet->write(1, $col, $cell->value); # write in to the 1st row
#print $cell->value;
}
use warnings FATAL => qw(all);
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
use Spreadsheet::WriteExcel::Big;
use strict;
use IO::Scalar;
use Data::Dumper;
use DBI;
use DBD::MSDB2;
use File::Copy qw(cp);
use Carp;
$SIG{__DIE__} = sub { confess @_ };
$SIG{__WARN__} = sub { confess @_ };
my $sql_parser = Spreadsheet::ParseExcel->new();
my $sql_workbook = $sql_parser->parse("Temp_Res3.xls");
my $sql_worksheet = $sql_workbook->worksheet("Delta");
my ( $row_min, $row_max ) = $sql_worksheet->row_range();
my ( $col_min, $col_max ) = $sql_worksheet->col_range();
my $workbook = Spreadsheet::WriteExcel::Big->new("Temp_Res3_Int.xls");
my $worksheet = $workbook->addworksheet();
for my $row ( $row_min .. $row_max ) {
for my $col ($col_min .. $col_max) {
my $cell = $sql_worksheet->get_cell($row,$col);
$worksheet->write($row,$col,$cell->value);
#print $cell->value;
}
}
Title | # Comments | Views | Activity |
---|---|---|---|
Excel - Scroll Speed | 3 | 24 | |
excel file | 5 | 47 | |
formattig excel from access | 3 | 17 | |
onOpen | 14 | 38 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!