Writing into an Existing Excel file

[thanawala27]

Hi,


I had problems writing in an existing Excel File.

There is an excel file with a worksheet. I would like to open this existing Excel file and add another worksheet and write data into it. But I dont know how to open an existing excel file.


can anyone give me some hint or help?



Thanks


Ravi

[eWish]

Ravi,

Have a look at the Spreadsheet::WriteExcel Module. Also, I believe that there are others as well.

--Kevin

[WinblowsME]

Here's a sample.

use warnings;
use strict;
use Cwd;
use OLE;
use Win32::OLE::Const "Microsoft Excel";
 
&init;
 
sub init
{
   my $directory = &getcwd;
 
   &edit_excel ( "$directory/Temp.xls" );
}
 
sub edit_excel
{
   my ( $xl_report ) = @_;
   my ( $excel, $workbook, $sheet, $row );
 
   $excel = CreateObject OLE 'Excel.Application';
   $excel -> {Visible} = 1;
 
 
   $workbook = $excel    -> Workbooks  -> Open ( "$xl_report" ) or &terminate ( "open $xl_report" );
   $sheet    = $workbook -> Worksheets -> Add ( { After => $workbook -> Worksheets ( $workbook -> Worksheets -> {Count} ) } );
 
   $sheet -> Activate;
   $sheet -> Range ( "A:D" ) -> Font -> {Size}        = 8;
   $sheet -> Range ( "A:D" ) -> Font -> {Bold}        = "True";
   $sheet -> Range ( "A:D" ) -> {HorizontalAlignment} = xlHAlignLeft;
   $sheet -> Range ( "A:A" ) -> {NumberFormat}        = "\@";
   $sheet -> Range ( "B:D" ) -> {NumberFormat}        = "#,##0_);[Red](#,##0)";
 
   $sheet -> Range ( "A1"  ) -> {Value} = "Column 1";
   $sheet -> Range ( "B1"  ) -> {Value} = "Column 2";
   $sheet -> Range ( "C1"  ) -> {Value} = "Column 3";
   $sheet -> Range ( "D1"  ) -> {Value} = "Column 4";
 
   $row   = 2;
 
   $sheet -> Range ( "A" . $row ) -> {Value} = "1";
   $sheet -> Range ( "B" . $row ) -> {Value} = "2";
   $sheet -> Range ( "C" . $row ) -> {Value} = "3";
   $sheet -> Range ( "D" . $row ) -> {Value} = "4";
 
   $sheet -> Range ( "A:D" ) -> {Columns} -> Autofit;
   $sheet -> Range ( "A2"  ) -> Activate;
   $excel -> ActiveWindow    -> {FreezePanes} = "True";
   $sheet -> {Name} = "New Sheet Name" . $workbook -> Worksheets -> {Count};
 
   $excel    -> {DisplayAlerts} = 0;
 
   # $workbook -> SaveAs ( "$xl_report" );
 
   $workbook -> Save;
   $workbook -> Close;
   $excel    -> Quit;
}
 
sub terminate
{
   print "\a\a\nCould not @_ for the following reason:\n\n$!\n";
   print "This program will now terminate.  Press <ENTER> to exit.";
   <STDIN>;
   exit;
}

[thanawala27]

Thanks for your replies, I got what I wanted.


Ravi