autoexcel04.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:21 2010 from autoexcel04.pl 2006/06/12 1.5 KB.

#!/Perl
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;        # die on errors...
my $filename = "C:\\tmp\\tpj\\data.xls";
my $filter = 'GIF';           # can be GIF, JPG, JPEG or PNG
my $count = 0;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  # use the Excel application if it's open, otherwise open new
my $Book = $Excel->Workbooks->Open( $filename );      # open the file
foreach my $Sheet (in $Book->Sheets) {                # loop through all sheets
    foreach my $ChartObj (in $Sheet->ChartObjects) {  # loop through all chartobjects in the sheet
        my $savename = "$filename." . $count++ . ".$filter";
      unlink $savename if -f $savename; # remove any existing
      print "Exporting $savename ....\n";
      $ChartObj->Chart->Export({
            FileName    => $savename,
            FilterName  => $filter,
            Interactive => 0});
    }
}
$Book->Close;
### Macros in Microsoft Excel can be run by using the $Excel->Run method, for example:
## $Excel->Run("PrintPDFFile");
### In order to do this, you of course need to have a macro in Excel that's called 'PrintPDFFile'...
### Use the Names->Add method on a sheet, giving it a name and a range object to apply the name to, for example:
### $Sheet->Names->Add({Name => 'NetCost', RefersTo => $Sheet->Range('$B$10')});
# eof - autoexcel04.pl

index -|- top