Почему 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

См. Документы CPAN для Win32 :: OLE :: Const

Вам необходимо:

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

Answer 3

xlByRows не является константой, вы должны поместить ее в кавычки. Если это не константа, экспортируемая объектом OLE, в этом случае вам необходимо импортировать ее в ваше пространство имен, используя Win32 :: OLE :: Const или аналогичный.