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

见 CPAN docs for Win32::OLE::Const

你需要:

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