hi, Thanks for responding. I have posted the code for reference. I tried this on my computer at home and it works. I have Strawberry Perl at home and Active State on my machine at work. I'll try it with Strawberry Perl at work next week. Thank you for you suggestion about OLE. I will definitely look into this. I am finding perl very useful and fun. But I don't have Excel installed on my computer at work. So I think for now I need to stick with Spreadsheet::XLSX. thanks!

 
 

 use Spreadsheet::XLSX;
 
 my $excel = Spreadsheet::XLSX -> new ('file.xlsx');
 
 foreach my $sheet (@{$excel -> {Worksheet}}) {
 
        printf("Sheet: %s\n", $sheet->{Name});
        
        $sheet -> {MaxRow} ||= $sheet -> {MinRow};
        
         foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
         
                $sheet -> {MaxCol} ||= $sheet -> {MinCol};
                
                foreach my $col ($sheet -> {MinCol} ..  $sheet -> {Max
+Col}) {
                
                        my $cell = $sheet -> {Cells} [$row] [$col];
 
                        if ($cell) {
                            printf("( %s , %s ) => %s\n", $row, $col, 
+$cell -> {Val});
                        }
 
                }
 
        }
 
 }
[download]