工作。

use strict;
use warnings;
use Win32::OLE;

my $excel= Win32::OLE->new('Excel.Application') 
    or die "Could not create Excel.Application!\n"
    ;
$excel->Workbooks->open( 'C:\Users\Me\Documents\Book1.xlsx' );
$excel->run( 'Book1!Macro1' );
$excel->quit;

您可以做的最确定的方法之一是简单地记录打开电子表格的宏并运行一个宏。然后查看生成的宏代码并将其转换为Perl。请记住，OLE对象是Application对象。

One of the most sure ways that you can do this is to simply record a macro of opening a spreadsheet and running a macro. And then taking a look at the macro code that was generated and convert it into Perl. Keep in mind that the OLE object is the Application object.

9/22/2010 - 我添加了退出停止运行Excel。

9/22/2010 - I added quit to stop Excel from running.