返回顶部

收藏

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

更多
#!/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();

#该片段来自于http://outofmemory.cn

标签:perl,Excel

收藏

0人收藏

支持

0

反对

0

相关聚客文章
  1. Solrex Yang 发表 2012-09-01 03:41:09 Python操作Excel
  2. Picturepan2 发表 2013-04-13 19:24:56 微软推出地理时间大数据可视化项目 GeoFlow
  3. 博主 发表 2009-12-15 08:00:00 Apache Mod_Perl实现 URL Rewrite
  4. 博主 发表 2013-10-15 16:00:00 Perl 的 overload 妙用
  5. 博主 发表 2010-05-25 16:00:00 apache防盗链(mod_perl试用二)
  6. 博主 发表 2013-06-27 16:00:00 获取 Perl 程序中 GET 请求发向的具体 IP
  7. 四火 发表 2014-04-09 02:01:09 一段集合操作的不同语言表达
  8. 默北 发表 2014-08-10 17:00:09 perl如何连接SQL Server数据库
  9. 扶 凯 发表 2014-08-08 10:31:42 Mojolicious 框架的环境变量列表
  10. 博主 发表 2013-03-26 15:00:00 Perl入门实战:JVM监控脚本(上)
  11. root 发表 2015-04-28 05:44:01 Java POI 导出EXCEL经典实现 Java导出Excel
  12. 博主 发表 2013-04-30 18:37:00 Python库openpyxl操作excel

发表评论