#!perl -w
use lib '../'; # HandleOleExcel.pmの置き場所
use HandleOleExcel;
use strict;

{
  # HandleOleExcelオブジェクト取得
      my $obj = HandleOleExcel->new(); 
  # Excelファイルオープン
      $obj->openExcelFile('sample.xlsx');
      
  # Sheet1の'A1:B3'レンジ値取得(戻り値は2次元リストリファレンス)
      my $ret = $obj->getValRange(range=>'A1:B3', sheet=>'Sheet1');
      
      for (my $row=0; $row<@{$ret}; $row++) {
          for (my $col=0; $col<@{$ret->[$row]}; $col++) {
              print "value ($row,$col) = $ret->[$row]->[$col]\n";
          }
      }
      
  # Excelファイルクローズ
      $obj->closeExcelFile();
}