试图了解为什么Perl Win32 OLE Excel Server引发异常

Question

试图了解和诊断MS服务器2008上的Excel安装有什么问题。请参阅下面的MWE。 这在我的Win笔记本电脑上可以正常工作，但在服务器上却不那么出色。 通过干净的登录，它第一次可以正常运行，但是随后的运行会失败，并显示错误文本：

Win32::OLE(0.1709) error 0x80010105: "The server threw an exception"
    in PROPERTYPUT "DisplayAlerts" at mwe.pl line 20

第一次运行将excel.exe留在任务管理器中。 我想第二次尝试是尝试重新连接到该现有实例，但失败了。 请问我怎么知道怎么了？

或者，如何在脚本完成后杀死Win32 :: OLE启动的Excel进程，以便重新运行启动新实例？

我的MWE：

use strict;
use warnings;

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

$Win32::OLE::Warn = 3; # Die on Errors.

# use existing instance if Excel is already running
my $Excel;
eval {$Excel = Win32::OLE->GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;

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

$Excel->{DisplayAlerts}=0;

$Excel->Quit();
undef $Excel;

Answer 1

您可以尝试使用$ Excel-> {'DisplayAlerts'} = 0加上引号吗？ 我以这种方式使用它并且有效。 我想所有参考都是以这种方式进行的。