perl - 为什么 Perl 抱怨我的 Win32::OLE 脚本中的裸词？

Question

#___ FIND LAST ROW/COLUMN WITH DATA
my $row = $Sheet1 -> UsedRange -> Find(
     {      What => "*", 
            SearchDirection => xlPrevious,  
            SearchOrder => xlByRows
      })-> {Row};

错误：

Bareword "xlByRows" not allowed while "strict subs" in use. 

Answer 1

您必须将其放在use Win32::OLE::Const 'Microsoft Excel';程序的顶部才能正确导入常量。

看看这个Perl Monks 页面。它似乎涵盖了您遇到的问题。

Answer 2

请参阅Win32::OLE::Const 的 CPAN 文档

你需要：

use Win32::OLE::Const 'Microsoft Excel';

Answer 3

xlByRows 不是一个常数，你应该把它放在引号中。除非它是由 OLE 对象导出的常量，在这种情况下，您需要使用 Win32::OLE::Const 或类似方法将其导入命名空间。