perl 处理excel 实例

1. 实例说明

?excel 模板先编写宏：NSN_HSPDA

?关闭全部的excel文件，否则会出现无法完全关闭的问题

?写excel文件，运行宏。 图表最好用公式先生成。

?

2. 代码?

?

?

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
?
$Win32::OLE::Warn = 3;

sub Save2Excel()
{
	my $KillExcel = `taskkill   /F /IM EXCEL.EXE 2>>nul`;
	chomp $KillExcel;
	print "结束Excel程序：$KillExcel n" if ($KillExcel);
	my ($csvfilepath,$causevalues,$PSFilterThreshold) = @_;
	unless  (-e $ExcelReportFilePathName)
	{
		die "$ExcelReportFilePathName 不存在！n"
	}
	unless  (-e $csvfilepath)
	{
		die "$csvfilepath 不存在！n"
	}	


	
	my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||
               Win32::OLE->new('Excel.Application','Quit');

	$excel->{'Visible'} = 1;        #0 is hidden,1 is visible
	$excel->{"DisplayAlerts"}=1;    #0 is hide alerts


	my $book  = $excel->Workbooks->Open($ExcelReportFilePathName);
	my $RowID = 20;
	my $ColID = 3;
	
	
	my $coversheet = $book->Worksheets(1);
	foreach my $CauseRatio  (@{$causevalues})
	{
		$coversheet->Cells($RowID,$ColID)->{'Value'} = $CauseRatio;
		$RowID++;
 
	}	 
	$coversheet->Cells(31,3)->{'Value'} = $PSFilterThreshold;		
	
	$coversheet->Cells(71,2)->{'Value'} = $AlarmCellResValue{"HISTORYALARMBTSNUM"};		
	$coversheet->Cells(71,3)->{'Value'} = $AlarmCellResValue{"KPIBTSNUM"};		
	
	$coversheet->Cells(75,3)->{'Value'} = $AlarmCellResValue{"UNAVAILABILITY"};		
	$coversheet->Cells(76,3)->{'Value'} = $AlarmCellResValue{"CELLAVAILABLE_0_50"};	
	$coversheet->Cells(77,3)->{'Value'} = $AlarmCellResValue{"CELLAVAILABLE_50_100"};
 
	$excel->Run("NSN_HSPDA");
 
	$book->Save;
	#$book->Close;
#	$book->Quit(); 
#	$excel->Quit();	
	
	$KillExcel = `taskkill  /F /IM EXCEL.EXE 2>>nul`;
	chomp $KillExcel;
	#print "结束Excel程序：$KillExcel n" if ($KillExcel);
}