#!c:\perl\bin
use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
	   Win32::OLE->new('Excel.Application');
$Excel->{'Visible'} = 1;		#0 is hidden, 1 is visible
$Excel->{DisplayAlerts}=1;	#0 is hide alerts

# Open File and Worksheet
my $Book = $Excel->Workbooks->Open('C:\temp\XLS\test.xls');
my $cnt=0;
foreach my $Worksheet (in $Book->{Worksheets}){
	$cnt++;
	my $filename="C:\temp\XLS\test2\_$cnt.pdf";
	print "saving $filename\n";
	#HOW DO I SAVE THIS worksheet as a PDF or a PNG???
	$Worksheet->SaveAs({Filename =>$filename,FileFormat => -1});
	}

# Save as Excel
$Book->Close();
$Excel->Quit();
exit;