#!perl

use Excel;
my $file = "C:\\perl_proj\\book1.xls";
my $ex = Excel->new('Excel.Application', sub {$_[0]->Quit;}) or die "Oops, cannot start Excel";
my $Book = $ex->Workbooks->Open($file);
my $Sheet1 = $Book->Worksheets(1);
$Book->Windows(1)->{Zoom} = 75;
$Sheet1->Columns->Font->{Size} = 12;
my $Sheet2 = $Book->Worksheets(2);
$Sheet2->Columns->{NumberFormat} = "#,##0.00";
$Book = $ex->Workbooks->Close();

##</code><code>##

package Excel;
        use Win32::OLE;

        sub new {
            my $s = {};
            if ($s->{Ex} = Win32::OLE->new('Excel.Application')) {
                return bless $s, shift;
            }
            return undef;
        }

        sub DESTROY {
            my $s = shift;
            if (exists $s->{Ex}) {
                print "# closing connection\n";
                $s->{Ex}->Quit;
                return undef;
            }
        }

        sub AUTOLOAD {
            my $s = shift;
            $AUTOLOAD =~ s/^.*:://;
            $s->{Ex}->$AUTOLOAD(@_);
        }

        1;