|
P: 58
|
Here's a sample. - use warnings;
-
use strict;
-
use Cwd;
-
use OLE;
-
use Win32::OLE::Const "Microsoft Excel";
-
-
&init;
-
-
sub init
-
{
-
my $directory = &getcwd;
-
-
&edit_excel ( "$directory/Temp.xls" );
-
}
-
-
sub edit_excel
-
{
-
my ( $xl_report ) = @_;
-
my ( $excel, $workbook, $sheet, $row );
-
-
$excel = CreateObject OLE 'Excel.Application';
-
$excel -> {Visible} = 1;
-
-
-
$workbook = $excel -> Workbooks -> Open ( "$xl_report" ) or &terminate ( "open $xl_report" );
-
$sheet = $workbook -> Worksheets -> Add ( { After => $workbook -> Worksheets ( $workbook -> Worksheets -> {Count} ) } );
-
-
$sheet -> Activate;
-
$sheet -> Range ( "A:D" ) -> Font -> {Size} = 8;
-
$sheet -> Range ( "A:D" ) -> Font -> {Bold} = "True";
-
$sheet -> Range ( "A:D" ) -> {HorizontalAlignment} = xlHAlignLeft;
-
$sheet -> Range ( "A:A" ) -> {NumberFormat} = "\@";
-
$sheet -> Range ( "B:D" ) -> {NumberFormat} = "#,##0_);[Red](#,##0)";
-
-
$sheet -> Range ( "A1" ) -> {Value} = "Column 1";
-
$sheet -> Range ( "B1" ) -> {Value} = "Column 2";
-
$sheet -> Range ( "C1" ) -> {Value} = "Column 3";
-
$sheet -> Range ( "D1" ) -> {Value} = "Column 4";
-
-
$row = 2;
-
-
$sheet -> Range ( "A" . $row ) -> {Value} = "1";
-
$sheet -> Range ( "B" . $row ) -> {Value} = "2";
-
$sheet -> Range ( "C" . $row ) -> {Value} = "3";
-
$sheet -> Range ( "D" . $row ) -> {Value} = "4";
-
-
$sheet -> Range ( "A:D" ) -> {Columns} -> Autofit;
-
$sheet -> Range ( "A2" ) -> Activate;
-
$excel -> ActiveWindow -> {FreezePanes} = "True";
-
$sheet -> {Name} = "New Sheet Name" . $workbook -> Worksheets -> {Count};
-
-
$excel -> {DisplayAlerts} = 0;
-
-
# $workbook -> SaveAs ( "$xl_report" );
-
-
$workbook -> Save;
-
$workbook -> Close;
-
$excel -> Quit;
-
}
-
-
sub terminate
-
{
-
print "\a\a\nCould not @_ for the following reason:\n\n$!\n";
-
print "This program will now terminate. Press <ENTER> to exit.";
-
<STDIN>;
-
exit;
-
}
| |
