从 Windows 任务计划程序执行时，Perl 无法打开 excel 文件

Question

这是一个非常奇怪的问题。我有一个 Perl（版本 5.12）脚本，可以打开和修改 Excel 电子表格（版本 2007 或更高版本）。下面是打开 Excel 文件的 Perl 代码：

my $excel = Win32::OLE->GetActiveObject('Excel.Application')
            || Win32::OLE->new('Excel.Application', 'Quit');
my $book = $excel->Workbooks->Open($excelPath) or die $!;

整个 Perl 脚本被添加到 Windows Server 2008 R2 的任务计划程序中，因为它会在每天的同一时间被调用。当我从任务计划程序运行脚本时，上面的“打开”语句出现错误并中止，但是 $!完全空白。

但是，当我从命令行手动运行 Perl 脚本时，一切正常，包括 open-Excel 逻辑。我无法弄清楚命令行执行和调度程序执行之间的区别，以及为什么打开失败时没有可用的错误消息。

如果您对此问题有任何线索，请告诉我。谢谢。

更新：感谢 Jason Gray，我能够看到错误消息，它抱怨无法访问 Excel 文件。但这对我来说没有意义，因为我可以保证文件路径是正确的，并且没有其他人在使用同一个文件。最重要的是，Perl 脚本在从命令窗口运行时可以完美运行。从任务计划程序运行和从命令行运行可能有什么区别？

解决了！我找到了解决这个奇怪问题的奇怪方法。请参考这些链接： Link1Link2Link3

Answer 1

Win32::OLE 文档解释了何时抛出异常/如何捕获它们。

LastError 在错误发生后为您提供有关错误的信息。

你可以这样做：

my $book = $excel->Workbooks->Open($excelPath) || 
           die("Unable to open document ", Win32::OLE->LastError());

Answer 2

请显示您的 $excelPath 变量。您使用的是 absolute 还是 relative 路径？

您使用什么帐户从调度程序运行脚本？它是否有足够的权限访问您的$excelPath？

如果您的 Excel 文件与脚本本身位于同一文件夹中，我建议use FindBin：

use FindBin qw($Bin);

.....

my $book = $excel->Workbooks->Open("$Bin/Document_name.xls") || 
           die("Unable to open document ", Win32::OLE->LastError());