使用OLE自动化来创建 Excel 图表代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】使用OLE自动化来创建 Excel 图表

作者:步山 / 发布于2014/11/10/ 1055


	#!/usr/bin/perl -w

	use Win32::OLE;
	use Win32::OLE::Const 'Microsoft Excel';

	$class = 'Excel.Application';

	$app = Win32::OLE->new( $class ) or die "Cannot connect to Excel, $!";

	# Make application visible.
	$app->{'Visible'} = 1;

	# Create a new workbook.
	$workbook = $app->Workbooks->Add();

	# Set values in a "range".
	$app->Range("A1")->{'Value'} = "A";
	$app->Range("B1")->{'Value'} = "B";
	$app->Range("B2")->{'Value'} = "C";
	$app->Range("C2")->{'Value'} = "D";
	$app->Range("A3")->{'Value'} = "E";
	$app->Range("B3")->{'Value'} = 10;
	$app->Range("C3")->{'Value'} = 10;

	#
	# Make a chart.
	#
	$worksheet = $workbook->Worksheets(1);

	$chart_range = $worksheet->Range("B3:C3");

	$chart = $app->Charts->Add();

	#$chart->{'ChartType'} = xlAreaStacked;

	$chart->SetSourceData(
	 {
	 Source => $chart_range,
	 PlotBy => xlColumns
	 } );

	$chart->{'HasTitle'} = 1;
	$chart->ChartTitle->{'Text'} = "Chart Title";

	# Leave Excel running. Use $app->Quit() to exit.
	#$app->Quit();

试试其它关键字

　Excel　　　　OLE　　动化　

同语言下

可能有用的

步山贡献的其它代码(75)