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

質問

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

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

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

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

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

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

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

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

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

回答No.6

kmee · ベストアンサー

> Wide character in print at ..

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

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

お礼

重ね重ね　初歩的なことでご指導ありがとうございました。
試行錯誤していますが、まだうまくいきません。
スレッドを改めて、質問させていただこうと思います。

今後ともひきつづきご指導よろしくお願い申し上げます。

回答No.5

kmee

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

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

補足

動きました！　すばらしいです！！

あと１０個のファイルのうち５個で
Wide character in print at ..
というエラーが出て、出力が文字化けしています。

atの指しているのは print OUT $sDT."\n";　の行です。

５個は他のファイルとフォーマットも同じで、いまのところ何が原因かわかりません。

なにか、お心当たりないでしょうか。。。

回答No.4

bignishi

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

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

お礼

おっしゃるとおり、めったにない作業です。
ですので１年分ごとにクリックしてで問題ありません。
ありがとうございました。

回答No.3

ralf124c

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(), ".\n"; }
　## **************************************************************************
　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("\n",@aROW);
　　## ----------------------------------------

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

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

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

補足

コードから、注意点までご親切にありがとうございます。

Windows 7のコマンドプロントから実行しています。

http://search.cpan.org/dist/Spreadsheet-ParseExcel/lib/Spreadsheet/ParseExcel.pm
から
Spreadsheet-ParseExcel-0.59.tar.gz
をダウンロードしてきて解凍したのち、
perl MakeFile.PL
としたところ、以下のメッセージが出ました。

It looks like you don't have a C compiler on your PATH, so you will not be　able to compile C or XS extension modules. You can install GCC from the
MinGW package using the Perl Package Manager by running:

ppm install MinGW

Writing Makefile for Spreadsheet::ParseExcel
Writing MYMETA.yml

そののち、
Warning: prerequisite ...
という警告メッセージが４行でました。

そこで
ppm install MinGW
を実行したところ、なにかインストールしてくれました。

そこでもう一度
perl MakeFile.pl
をやりましたが、同じ結果となります。

perlは環境づくりが難しいです。。。

この点　ご指導お願いいたします。

回答No.2

kmee

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
ってモジュールがあります。

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

お礼

これが評判のParseExcelですね。ダウンロードしてみました。
ありがとうございました。

回答No.1

Tacosan

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

お礼

いろいろあるのですね。。