perlでExcelを開くと強制終了してしまう

質問

activeperlでExcelのファイル(200ファイル位)を1ファイルずつ開いて、特定のセルの値を取得して、テキストファイルに出力をしています。

Excelファイルをオープンするときに、以下のエラーが表示されて、perlが強制終了してしまいます。
Can't call method "Worksheets" on an undefined value at hogehoge.pl line 143.

以下は問題の143行目
141 my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
142 my $book = $excel->Workbooks->Open($fp);
143 my $sheet = $book->Worksheets(2);

現象としては、
Excelのファイル(200ファイル位)の特定のファイルで強制終了するわけではない。
よって、全てのファイルを正常に読み込んで終了する場合もある。

対策としては以下を実行していますが、あまり効果はないような感じです。
メモリを増強　１GB→2GB
perlでExcelを処理中は他の動作をさせない(例えば、メールソフトを終了させておく)

このエラーを回避する方法はあるものなのでしょうか？
完全に回避ができなくても、強制終了することなく、続行してくれるだけでも大変助かります。

以下に実行環境を記載します。
WindowsVista Business Service Pack 2
Intel Pentimum4 3GHz
memory 2GB
activeperl v5.10.1 Binary bulid 1006

perlでの使用モジュール
use File::Find;
use File::Basename;
use File::Copy;
use Date::Simple;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use utf8;
use Encode;
use File::Copy;
use File::Path;

恐れ入りますが、ご回答を宜しくお願いします。

回答No.1

o_chi_chi

＞143 my $sheet = $book->Worksheets(2);

エラー通り１シートしかないEXCELファイルがあるのでは。

補足

ご回答いただきありがとうございます。

最初の質問のところにも記載させていただきましたが、全く同一のExcelファイル(200ファイル位)に対して、perlのスクリプトを実行した場合でも、強制終了する場合もあれば、正常にテキスト出力をして完了する場合もあります。
また、念のため、2つ目のシートが存在していることは確認しています。
なので、ご指摘のような、シートが1シートしかないということはないことをありません。

引き続き、何かエラーの特定になるような情報がございましたら、ご教授を宜しくお願いします。