如何从Perl或命令行激活Excel加载项？

如果有,您可以使用SendKeys方法将该密钥发送到Excel：http://msdn.microsoft.com/en-us/library/aa202943(office.10).aspx

或者,CommandBars集合可能很有用.见http://msdn.microsoft.com/en-us/library/aa171356(office.11).aspx以供参考.

下面的示例代码列出了“标准”工具栏中的可见命令栏和控件.当它找到带有标题Open的控件时,它会调用该控件.这应显示“文件 – >打开”对话框：

#!/usr/bin/perl

use strict;
use warnings;

use Win32::OLE qw(in with);
$Win32::OLE::Warn = 3;

my $app = get_excel();
$app->{Visible} = 1;

my $book = $app->Workbooks->Add;

for my $bar (in $app->CommandBars) {
    if ( $bar->{Visible} ) {
        print $bar->{Name},"n";
    }
}

print "Controls in the 'Standard' toolbar:n";

my $bar = $app->CommandBars->{Standard};
for my $control (in $bar->{Controls}) {
    print "t",$control->{Caption},"n";
    if ( $control->{Caption} =~ /^Open/ ) {
        print "opening ...n";
        $control->Execute;
    }
}

sub get_excel {
    my $excel;
    eval {
        $excel = Win32::OLE->GetActiveObject('Excel.Application');
    };

    die "$@n" if $@;

    unless(defined $excel) {
        $excel = Win32::OLE->new('Excel.Application',sub { $_[0]->Quit })
            or die "Oops,cannot start Excel: ",Win32::OLE->LastError,"n";
    }
    return $excel;
}

__END__

HTH