めも

2008/5/20 [19:23:18] (火)

以前にも書いたけど、メモっておこう。

エクセルのシートを直接perlで読む。

#!/usr/local/bin/perl
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtJapan;
my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan->new(Code =>'utf8');
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('test.xls', $oFmtJ);

my $ws; my $wc;
for(my $i = 0; $i < $oBook->{SheetCount}; $i++){
    $ws = $oBook->{Worksheet}[$i];
    print 'Sheet: ' , $ws->{Name} , "¥n";
    for(my $r = $ws->{MinRow}; defined $ws->{MaxRow} && $r <= $ws->{MaxRow}; $r++ ){
        for(my $c = $ws->{MinCol};  defined $ws->{MinCol} && $c <= $ws->{MaxCol}; $c++ ){
            $wc = $ws->{Cells}[$r][$c];
            print "( $r,$c ) => ", $wc->Value ,"¥n" if $wc && $wc->Value;
        }
    }
}

読むならこれだけでＯＫ。いちいちエクセルなんぞを開かなくていいんだよなぁ。まじめに助かるゼ

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら