File Coverage

blib/lib/Spreadsheet/Excel2Text.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	21	90.4

package Spreadsheet::Excel2Text;

use warnings;
use strict;

our $VERSION = '0.04';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &XlsSaveToText );
}

sub XlsSaveToText($$) {

	my $xlsFile  = shift;
	my $txtFile  = shift;
	my $excelTab = "";

	use Win32::OLE        qw(in with);
	use Win32::OLE::Const 'Microsoft Excel';

	$Win32::OLE::Warn = 3;

	my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');

	my $book  = $excel->Workbooks->Open("$xlsFile");
	my $sheet = $book->Worksheets(1);

	$excel->ActiveCell->SpecialCells(xlLastCell)->Select;
	my $lastLine = $excel->ActiveCell->Row;
	my $lastRow  = $excel->ActiveCell->Column;

	my $array = $sheet->Range($sheet->Cells(1,1),$sheet->Cells($lastLine,$lastRow))->{'Value'};

	$book->Close;

	open(my $fhText, ">$txtFile") or die $!;

	my $line  = "";
	my $field = "";
	foreach my $refArray (@$array) {
		$line = "";
		foreach my $excelTab (@$refArray) {
			$field = $excelTab;
			no warnings;
			$line .= $field."\t";
			use warnings;
		} # foreach
		$line =~ s%\r?\n?%%g;
		print $fhText $line, "\n";
	} # foreach

	$excel->Quit();

	close($fhText) or die $!;

	$txtFile;

} # XlsSaveToText

1;
__END__