VPF::Работа с Win32::OLE (парсим xls) - Форум программистов

TTT

Дата 5.4.2007, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: нет
Всего: 1

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 2
Всего: 84

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

Код


use DateTime::Format::Excel;

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

--------------------

I love ArchLinux

TTT

Дата 6.4.2007, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: нет
Всего: 1

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

Код


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-е вручную проверял)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »