如何为 Win32 使用 Perl 的 Excel 的自动化

开发人员熟悉如何使用 Perl 可以利用自动化功能在 win32 应用程序 （如 Microsoft Office 相结合的 Perl 中。这篇文章提供了一些示例 Perl 代码将数据发送到 Microsoft Excel，然后创建图表和数据透视表。

在执行之前的所有 Perl 脚本，需要有 Perl，您的计算机上安装和配置。自由地分发 Perl，因为任何人都可以提供 Win32 Perl 的实现。通过活动，以前称为 ActiveWare，Mortice 字距微调系统 （MKS） 提供了两个常用端口的版本。此示例使用 Win32 为活动状态的 Perl。

请按照以下步骤来创建和运行该示例：

1. 如果您不具有您的计算机上安装的最新活动的 ActivePerl 包并想要试用该示例，请将其从下载：
   http://www.activestate.com/ActivePerl
2. 启动 notepad.exe，并创建一个名为 perlxl.pl，用下面的 Perl 脚本的新文件：

     use Win32::OLE;    # Start Excel and make it visible  $xlApp = Win32::OLE->new('Excel.Application');  $xlApp->{Visible} = 1;    # Create a new workbook  $xlBook = $xlApp->Workbooks->Add;    # Our data that we will add to the workbook...  $mydata = [["Item",     "Category", "Price"],              ["Nails",    "Hardware",  "5.25"],             ["Shirt",    "Clothing", "23.00"],             ["Hammer",   "Hardware", "16.25"],             ["Sandwich", "Food",      "5.00"],             ["Pants",    "Clothing", "31.00"],             ["Drinks",   "Food",      "2.25"]];    # Write all the data at once...  $rng = $xlBook->ActiveSheet->Range("A1:C7");  $rng->{Value} = $mydata;    # Create a PivotTable for the data...  $tbl = $xlBook->ActiveSheet->PivotTableWizard(1, $rng, "", "MyPivotTable");    # Set pivot fields...  $tbl->AddFields("Category", "Item");  $tbl->PivotFields("Price")->{Orientation} = 4; # 4=xlDataField    # Create a chart too...  $chart = $xlBook->Charts->Add;  $chart->SetSourceData($rng, 2);  $chart->{ChartType} = 70; # 3D-pie chart  $chart->Location(2, "Sheet4");    # Wait for user input...  print "Press <return> to continue...";  $x = <STDIN>;    # Clean up  $xlBook->{Saved} = 1;  $xlApp->Quit;  $xlBook = 0;  $xlApp = 0;    print "All done.";  					

3. 键入perlxl.pl ，从命令行中的目录，您可在其中创建该文件，或者从资源管理器中双击它。Microsoft Excel 启动时，您应该可以看到和使用数据透视表和图表创建新工作簿。