> 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