在Cygwin下使用Perl Win32 :: OLE读取.xls文件时出现问题

Question

我已经和这个人争斗了两天，我找不到解决方案而且我感到很沮丧。 使用Cygwin下面的代码时出现此错误

“Microsoft Office Excel”中的OLE异常：Excel无法访问“Empty.xls”。
该文档可以是只读的或加密的。 方法/属性中的Win32 :: OLE（0.1703）错误0x800a03ec在m：/In/make_excel.pl第24行打开“打开”

问题是在DOS提示符下它完美运行。 该文件当然不是只读的。 我猜测文件格式解释存在一些问题。 任何提示？ 非常感谢。

#!/usr/bin/perl
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
$Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
   Win32::OLE->new('Excel.Application');
$Excel->{'Visible'} = 0;        #0 is hidden, 1 is visible
$Excel->{DisplayAlerts}=0;  #0 is hide alerts
# Open File and Worksheet
my $Book = $Excel->Workbooks->Open('C:\Empty.xls'); 
...

Answer 1

MS Excel需要MS Windows路径。

问题在于

my $seedProject = "$ENV{'HOME'}/Empty.xls";

使用'\\\\'而不是'/'：Excel仅适用于Windows路径。 检查$ ENV {HOME}中的路径分隔符。

Answer 2

在Cygwin中工作时，保持常规Windows Universe和Cygwin角落的隔离非常重要。 完全有可能你实际上没有Cygwin Win32::OLE安装开始以及某种方式ActiveState的lib目录被添加到Cygwin的perl的@INC （通过环境设置或其他）。 这将主要用于纯Perl模块，但任何使用XS的东西都会搞砸。

通过在Cygwin中安装Win32::OLE ，您可能将它放在ActiveState的lib目录之前的@INC中，因此允许Cygwin的perl找到正确的模块。 但是，你应该运行如下：

$ perl -e 'print "@INC\n"'

在Cygwin提示符下，确保只显示Cygwin路径。

此外，您可能希望通过setup.exe安装Cygwin的perl-libwin32软件包，而不是手动构建模块。