Ad:

Perl Discussion Thread
Unsolved
Views: 3461

Apr 28th, 2009

How to call a excel sheet from perl

Expand Post »

Hi,

I am working on a assignment where I have results sheet which is in form of text file;
I want text file content to be written in excel sheet; generally we manually copy and paste the results in excel sheet.
Our existing excel sheet has 70(sub-sheets) e.g result of test case A will paste in sheet A, like tat result of B will go in sheet B and so on...
Now i want to know is there any way by which we can call a excel sheet through Perl and can add the result at specific location.

Any help is appreciated;

Regards,
rAnA

Similar Threads

Help with automatic update problem and more in Viruses, Spyware and other Nasties

rana03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Mar 2009

Permalink

Apr 30th, 2009

Re: How to call a excel sheet from perl

Can Somebody tell me how to read cells of excel sheet using perl

rana03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Mar 2009

Permalink

Apr 30th, 2009

Re: How to call a excel sheet from perl

Try this for excel

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl -w
 
use strict;
use Spreadsheet::Read;
use Data::Dumper;
 
my $xls = ReadData ("Input/sample.xls");
 
print $xls->[1]{'A1'};
exit;
#!/usr/bin/perl -w

use strict;
use Spreadsheet::Read;
use Data::Dumper;

my $xls = ReadData ("Input/sample.xls");

print $xls->[1]{'A1'};
exit;

Regards,
Balaji S

Last edited by Ancient Dragon; Apr 30th, 2009 at 9:11 pm. Reason: add code tags

soubalaji

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Apr 2009

Permalink

May 1st, 2009

Re: How to call a excel sheet from perl

Perl Syntax (Toggle Plain Text)
use OLE;
use Win32::OLE::Const 'Microsoft Excel';
 my($xapp) = CreateObject OLE 'Excel.Application' || die $!;
	$xapp->{'Visible'} = 1;
 
	# Open the excel file
	$wkb = $xapp->Workbooks->Open('filename');
	if ( ! $wkb )
		{ print "Can't open filename\n"; exit; }	
  $wks = $wkb->Worksheets("Sheet1"); #what ever the sheet name
$wks->Cells(1,1)->{'Value'} = 'whatever'; #assign to 'whatever'
 
$val=$wks->Cells(1,1)->{'Value'}; #which reads from cell 1,1 and answers the next questioner
$wkb->SaveAs({Filename => 'newfile'});
	$wkb->Close();
	$xapp->Quit();
use OLE;
use Win32::OLE::Const 'Microsoft Excel';
 my($xapp) = CreateObject OLE 'Excel.Application' || die $!;
	$xapp->{'Visible'} = 1;

	# Open the excel file
	$wkb = $xapp->Workbooks->Open('filename');
	if ( ! $wkb )
		{ print "Can't open filename\n"; exit; }	
  $wks = $wkb->Worksheets("Sheet1"); #what ever the sheet name
$wks->Cells(1,1)->{'Value'} = 'whatever'; #assign to 'whatever'

$val=$wks->Cells(1,1)->{'Value'}; #which reads from cell 1,1 and answers the next questioner
$wkb->SaveAs({Filename => 'newfile'});
	$wkb->Close();
	$xapp->Quit();

Last edited by mitchems; May 1st, 2009 at 12:09 pm.

mitchems

Reputation Points: 26

Solved Threads: 38

Posting Whiz in Training

Offline

293 posts
since Feb 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: How to convert text file to binary file and Binary to text using perl

Next Thread in Perl Forum Timeline: Why doesn't this work? (filehandling+regexp)

DaniWeb Message

Cancel Changes

User Name
Password