Проблемы синтаксического анализа файла Excel 2010 .xlsx с Win32 :: OLE в Perl - PullRequest
Новая
       39

Проблемы синтаксического анализа файла Excel 2010 .xlsx с Win32 :: OLE в Perl

1 голос
/ 22 февраля 2012

У меня есть файл Excel (.xlsx), подключенный к «источнику данных» с помощью файла .iqy. Я использовал Perl, чтобы открыть файл Excel и обновить данные. Изначально мой код работал. Однако мне нужно было изменить файл .iqy, с которым была связана моя электронная таблица, и это, похоже, нарушило мой сценарий Perl (несмотря на то, что в самом сценарии ничего не менялось). Теперь не получается, когда я звоню 

my $LastRow = $Sheet->UsedRange->Find({What=>"*",
    SearchDirection=>xlPrevious,
    SearchOrder=>xlByRows})->{Row};

и вывод cmd гласит: «Нельзя использовать неопределенное значение в качестве ссылки на HASH в строке разделения shared.pl 20.» Я попытался отладить это, но я не знаю достаточно о внутренностях модуля Win32 :: OLE, чтобы знать, как даже отследить, где или почему проблема происходит в отладчике. Исходный код моего скрипта: 

#!/usr/bin/perl
use Win32::OLE;
use Win32::OLE qw(in with);
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:\shareP\sp.xlsx'); # open Excel file
$Sheet = $Book->Worksheets(1);

# Refresh Data (ActiveWorkbook.RefreshAll)
$Book->RefreshAll();

# Find Last Column and Row
my $LastRow = $Sheet->UsedRange->Find({What=>"*",
    SearchDirection=>xlPrevious,
    SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*", 
              SearchDirection=>xlPrevious,
              SearchOrder=>xlByColumns})->{Column};
####### EDIT: I initially didn't post this portion because it stops
#       before reaching it unless I make $LastCol and $LastRow constants
my @hasher;
my $c = "a";
for (my $cn=1; $cn <= $LastCol; $cn++){
    for (my $r=2; $r <= $LastRow; $r++){
# stops here with same error if I make $LastCol and $LastRow constants
        $hasher[$r-2]{ $Sheet->Range($c.'1')->{Value} } = $Sheet->Range($c.$r)->{Value};
    }
$c++;
}
####### end of EDIT
# Save as Excel
$Book->Save();  
$Book->Close();
$Excel->Quit();

Заранее благодарю за любые советы. Я действительно застрял на этом.

Ответы [ 3 ]

1 голос
/ 16 марта 2012

Я решил проблему, добавив короткую паузу в код. Скрипт perl продвигался раньше, чем лист Excel мог закончить обновляться. Спасибо за вашу помощь.

1 голос
/ 22 февраля 2012

Я полагаю, что ваша функция поиска не возвращает значение сейчас.У меня есть два возможных объяснения.

1) Возможно, ваши новые исходные данные больше не содержат символов "*"

2) Функция поиска запоминает некоторые атрибуты между использованиями, а именно LookIn, LookAt и SearchOrder.Для достижения наилучших результатов вы всегда должны устанавливать эти 3 атрибута при поиске, чтобы гарантировать, что вы получаете желаемую функциональность.

Мой совет - попробуйте выполнить поиск вручную в электронной таблице и посмотреть, работает ли он.Я не думаю, что ваша ошибка в OLE-части скрипта.

0 голосов
/ 21 января 2016

Я думаю, это потому, что одна из ваших таблиц пуста.Лучший способ получить общее количество столбцов и строк: 

my $Tot_Rows= $Sheet->UsedRange->Rows->{'Count'}; 

my $Tot_Cols= $Sheet->UsedRange->Columns->{'Count'};
...