Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Работа с Win32::OLE (парсим xls)

Автор: TTT 5.4.2007, 11:37

Если ячейка в формате даты, то данные из нее не валидны. Вот код:

Код


use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
#---------------------------------------------------
  eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
               die "Excel not installed" if $@;
  unless (defined $ex) {
    $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) 
        or die "Oops, cannot start Excel";
        }
$ex->{Visible} = 0;
$book = $ex->Workbooks->Open($file);
#---------------------------------------------------
for (my $i=1; $i <= $book->Sheets->{Count}; $i++ ) {
    $sheet = $book->Worksheets($i);
    $last_cell = $sheet->Range("A1")->EntireColumn->SpecialCells(11)->{Address};
    ($MaxCol, $MaxRow) = $last_cell =~ /\$(\w+)\$(\d+)/;
    $array = $sheet->Range("A1:$last_cell")->{Value};

    for (@$array) {
        for (@$_) {
            print defined($_) ? w2d($_)."|" : "\'\'|";
        }
        print "\n";
    }
}

Одна ячейка содержит '28.09.1952' (формат "дата"), скрипт выводит '29424876'.
Подскажите как решить проблему? Понимаю что надо конвертировать, но не знаю как и где искать.

Автор: nitr 6.4.2007, 14:19

можно посмотреть тут:

Код


use DateTime::Format::Excel;

my $dfe = DateTime::Format::Excel->new();
print $dfe->parse_datetime( 25569 )->ymd;

Автор: TTT 6.4.2007, 17:11

Спасибо, я уже пришел к чему-то похожему:

Код


use Spreadsheet::ParseExcel::Utility qw(ExcelLocaltime);

my ($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iwDay, $iMSec) = ExcelLocaltime($iExTime);

Только вставить еще строку надо:

Код


use Win32::OLE::Variant;

$sheet->Columns("A:$MaxCol")->{NumberFormat} = "VT_EMPTY";
$array = $sheet->Range("A1:$last_cell")->{Value};

чтобы число правильное получить: 19265 (в excel-е вручную проверял)