爲什麼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

xlByRows不是一個常數，你應該把它放在引號。除非它是由OLE對象導出的常量，在這種情況下，您需要使用Win32 :: OLE :: Const或類似方法將它導入到您的名稱空間中。

Answer 2

您必須將use Win32::OLE::Const 'Microsoft Excel';置於程序的頂部才能正確導入常量。

看看這個Perl Monks page。它似乎涵蓋了你所遇到的問題。

Answer 3

見CPAN docs for Win32::OLE::Const

您需要：

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