返回顶部

收藏

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. whfwind 发表 2013-03-18 07:40:12 perl Bioperl 下的newick处理包
  2. 王晔 发表 2013-01-09 14:10:13 解决Excel自动化(Automation)错误发生意外遇到问题需要关闭问题
  3. NinGoo 发表 2012-03-06 14:19:38 用perl清理被注入代码的PHP文件
  4. mortoray 发表 2013-11-27 05:21:14 The string type is broken
  5. 博主 发表 2011-05-08 16:00:00 perl的Expect模块
  6. 博主 发表 2013-11-03 16:00:00 用 Perl 读取通达信日线数据
  7. 博主 发表 2012-11-09 15:58:00 使用INDIRECT函数引用Excel单元格
  8. 默北 发表 2014-08-31 17:00:51 Linux上使用Perl查询 Microsoft SQL Server
  9. Picturepan2 发表 2014-11-28 02:00:55 微软即将发布 iOS 版 Power BI 移动版
  10. 博主 发表 2015-03-05 20:06:00 perl 快速学习记录
  11. SeisMan 发表 2013-07-26 06:56:00 BREQ_FAST脚本实现
  12. 馒头 发表 2013-02-27 03:03:30 php 5.4 + apache 2 + xdebug 2 + Windows

发表评论