Convert Excel to CSV

[aravindforperl]

Hi,

How to convert a excel file to .csv format?

Please provide me the Perl Module and the script to do this funcionality.


Thank you!

[miller]

You simply need two CPAN modules to accomplish this:

http://search.cpan.org/search?query=Spreadsheet::ParseExcel

http://search.cpan.org/search?query=Text::CSV

[aravindforperl]

Hi,

I have installed Spreadsheet::Pa rseExcel in my Unix Machine. When i am trying to call this Module using the below mentioned script, It is giving me a error saying that" Module cannot be found"

use strict;
use Spreadsheet::ParseExcel;

my $excel = Spreadsheet::ParseExcel::Workbook->Parse(Excel File1.xls);
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->{MaxCol}) {
            my $cell = $sheet->{Cells}[$row][$col];
            if ($cell) {
                printf("( %s , %s ) => %s\n", $row, $col, $cell->{Val});
            }
        }
    }
}

Could you please assist me on this and give me the correct code?

Thanks,

Aravind

[Perler]

Are you sure that you included something like

#!/usr/bin/perl

at the top of your code? Just askin'...

Hi,

I have installed Spreadsheet::Pa rseExcel in my Unix Machine. When i am trying to call this Module using the below mentioned script, It is giving me a error saying that" Module cannot be found"

use strict;
use Spreadsheet::Pa rseExcel;

my $excel = Spreadsheet::Pa rseExcel::Workb ook->Parse(Excel File1.xls);
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->{MaxCol}) {
my $cell = $sheet->{Cells}[$row][$col];
if ($cell) {
printf("( %s , %s ) => %s\n", $row, $col, $cell->{Val});
}
}
}
}

Could you please assist me on this and give me the correct code?

Thanks,

Aravind

[numberwhun]

Are you sure that you included something like

#!/usr/bin/perl

at the top of your code? Just askin'...

Perler,

I think it would be a good idea for you to stick with the newest posts. This post is over 1 1/2 years old and I doubt that the user that posted it will even see it.

Also, to the point in your post, since they are working with excel spreadsheets, I assume that they were working on a Windows system. The shebang line (#!/usr/bin/perll) is typically ignored on a windows system, unless of course its CGI and then it would have the -T option after it and only then would it be read.

Regards,

Jeff

[KevinADC]

pssst......Jeff ......

I have installed Spreadsheet::Pa rseExcel in my Unix Machine

[numberwhun]

pssst......Jeff ......

Ok, bad assumption on my part. Long day!