エクセルブック(.xls)のシートデータ読込

Question

いつも大変お世話になっております。
エクセルブック(.xls)に週報データが保存されています。
１週が１sheetになっているため１ファイルに53sheet入っています。

10年分のため、10ファイルあります。

各sheetは同じフォーマットで入っています。

これらをPERLで一括して読み込みたいと思っています。

従来は、1sheetずつ　.csvに変換して、読み込んでいました。

しかし　これらだと530回　.csvに吐き出す処理が必要で、根気が続きません。

バッチ処理で一気に.csvに吐き出すか、あるいは.csvに吐き出さずに
.xlsのまま、読み込みたいと思っています。

PERLは　active perl 5.14.2をWindows 7のコマンドプロンプト上から起動しています。

ご指導のほど宜しくお願い申し上げます。

kmee · Accepted Answer

> Wide character in print at ..

お馴染みの警告です。
そのままのメッセージで検索すれば、原因と対処法がわかると思います。

http://www.rwds.net/kuroita/program/Perl_unicode.html

kmee · Answer

素直に、ppmでspreadsheet-ParseExcel をインストールしたらいいのでは？
http://code.activestate.com/ppm/Spreadsheet-ParseExcel/

あと、CPANでの説明にあるように、ParseExcelはxls用で、xlsxにはxlsxを使う、というのは良いですね？
http://code.activestate.com/ppm/Spreadsheet-xlsx/

bignishi · Answer

質問とは的外れかもしれません。
ご参考までに下記します。
ブック毎に１クリックでブック内の全てのシートをCSVに変換するソフトを提案します。
このソフトだと１０年分をCSVに変換するために１０回ほど作業（10回のクリック）を行なう必要があります。

質問の作業がどのような頻度で発生しているのか、又、CSVへの変換が単純変換なのか条件付変換なのか
不明な状態での提案です。
悪しからず。
以上

ralf124c · Answer

excelのデータだけ取るなら、モジュール「Spreadsheet::ParseExcel」はたいへんな優れものです
ピュアperlなのでLinuxでも動きます

モジュールのサンプルを見て作った実際動く実験プログラムのサブルーチン部分(モジュールバージョンは0.59)を以下に
プログラム全体の都合上、utf8で作ったけど、その辺はいろいろと試してください

わかってるとおもいますが本体に
use Spreadsheet::ParseExcel;
宣言が必ず必要です
また、Excel形式のCSVはセル内に改行やコンマなどがあった場合、ちょっとした加工が必要です
################################################################################
################################################################################
################################################################################

my $sFN = 'エクセルファイル名.xls';
　## **************************************************************************
　my $filename = $sFN;
　## **************************************************************************
　my $parser   = Spreadsheet::ParseExcel->new();
　my $workbook = $parser->parse( $filename );
　## **************************************************************************
　if ( !defined $workbook ) {  die "Parsing error: ", $parser->error(), ".
";  }
　## **************************************************************************
　my $sRT = '';
　## **************************************************************************
　## シートの数だけ繰り返し
　for my $worksheet ( $workbook->worksheets() ) {
　　## １シート分、縦横のカラム数
　　my ( $row_min, $row_max ) = $worksheet->row_range();
　　my ( $col_min, $col_max ) = $worksheet->col_range();
　　## **************************************************************************
　　my $sK = '';
　　my $sV = '';
　　## ----------------------------------------
　　my @aROW;
　　## 縦の段を上から順に行単位で処理
　　foreach my $nLineY ( $row_min .. $row_max ) {
　　　my @aTMP;
　　　foreach my $nLineX ( $col_min .. $col_max ) {
　　　　my $cDT = $worksheet->get_cell($nLineY,$nLineX);
　　　　my $sTMP = '';
　　　　## セルにデータが在ったときの処理
　　　　if($cDT){　$sTMP = $cDT->value();　}
　　　　push(@aTMP, $sTMP);
　　　}
　　　my $sCOL = join(",",@aTMP);
　　　push(@aROW,$sCOL);
　　}
　　## ----------------------------------------
　　## 蓄積したテーブル群を一個に変数にまとめる
　　my $sDT = join("
",@aROW);
　　## ----------------------------------------

## **************************************************************************
　　## last;
　　print $sDT."
";
　　print "******************************************************
";
　　print "******************************************************
";
　}

################################################################################
################################################################################
################################################################################
インデントのため行頭には全角スペースを入れてますのでコピペの場合はご注意を

以上、ご参考になればいいのですが

kmee · Answer

http://search.cpan.org/dist/Spreadsheet-ParseExcel/lib/Spreadsheet/ParseExcel.pm
http://search.cpan.org/~dmow/Spreadsheet-XLSX-0.13-withoutworldwriteables/lib/Spreadsheet/XLSX.pm
ってモジュールがあります。

使ったこと無いので、どの位うまくできるか、はわかりません

Tacosan · Answer

Win32::OLE で Excel を操作できる.

エクセルブック(.xls)のシートデータ読込

> Wide character in print at ..

素直に、ppmでspreadsheet-ParseExcel をインストールしたらいいのでは？

この回答への補足

質問とは的外れかもしれません。

excelのデータだけ取るなら、モジュール「Spreadsheet::ParseExcel」はたいへんな優れものです

この回答への補足

Win32::OLE で Excel を操作できる.

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング