> The code shown below does not creat the .txt file and also
> it does not convert all the workshees to csv(it only creates
> one work sheet always irrespective of the worksheet number
> I chage like 1, 2, 3, ....).
>
> Can any one help me?
This should work (untested):
use Spreadsheet::ParseExcel::Simple;
open(TXT, ">spreadsheet.txt") or die "$!";
my $xls = Spreadsheet::ParseExcel::Simple->read('spreadsheet.xls');
foreach my $sheet ($xls->sheets) {
print TXT "------------------\n";
while ($sheet->has_data) {
my @data = $sheet->next_row;
print TXT join ",", @data . "\n";
}
}
--
Mark Thomas [EMAIL PROTECTED]
Internet Systems Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
