modify Existing MS excel workbook in perl Post: 302416544

Sponsored Content

Top Forums Shell Programming and Scripting modify Existing MS excel workbook in perl Post 302416544 by pravin27 on Tuesday 27th of April 2010 01:42:23 AM

04-27-2010

Registered User

Hi,

Here is the example for the read and write excel.You have to pass source and destination excel to the script.

Code:

#!/usr/bin/perl

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Data::Dumper;


my $sourcename = shift @ARGV;
my $destname = shift @ARGV or die "invocation: $0 <source file> <destination file>";

my $source_excel = new Spreadsheet::ParseExcel;

my $source_book = $source_excel->Parse($sourcename) or die "Could not open source Excel file $sourcename: $!";

my $storage_book;

foreach my $source_sheet_number (0 .. $source_book->{SheetCount}-1)
{
 my $source_sheet = $source_book->{Worksheet}[$source_sheet_number];

 print "--------- SHEET:", $source_sheet->{Name}, "\n";

 # sanity checking on the source file: rows and columns should be sensible
 next unless defined $source_sheet->{MaxRow};
 next unless $source_sheet->{MinRow} <= $source_sheet->{MaxRow};
 next unless defined $source_sheet->{MaxCol};
 next unless $source_sheet->{MinCol} <= $source_sheet->{MaxCol};

 foreach my $row_index ($source_sheet->{MinRow} .. $source_sheet->{MaxRow})
 {
  foreach my $col_index ($source_sheet->{MinCol} .. $source_sheet->{MaxCol})
  {
   my $source_cell = $source_sheet->{Cells}[$row_index][$col_index];
   if ($source_cell)
   {
    print "( $row_index , $col_index ) =>", $source_cell->Value, "\n";

    if ($source_cell->{Type} eq 'Numeric')
    {
  $storage_book->{$source_sheet->{Name}}->{$row_index}->{$col_index} = $source_cell->Value;
    }
    else
    {
  $storage_book->{$source_sheet->{Name}}->{$row_index}->{$col_index} = $source_cell->Value;
    } # end of if/else
   } # end of source_cell check
  } # foreach col_index
 } # foreach row_index
} # foreach source_sheet_number

print "Perl recognized the following data (sheet/row/column order):\n";
print Dumper $storage_book;

my $dest_book  = Spreadsheet::WriteExcel->new("$destname") or die "Could not create a new Excel file in $destname: $!";

print "\n\nSaving recognized data in $destname...";

foreach my $sheet (keys %$storage_book)
{
 my $dest_sheet = $dest_book->addworksheet($sheet);
 foreach my $row (keys %{$storage_book->{$sheet}})
 {
  foreach my $col (keys %{$storage_book->{$sheet}->{$row}})
  {
   $dest_sheet->write($row, $col, $storage_book->{$sheet}->{$row}->{$col});
  } # foreach column
 } # foreach row
} # foreach sheet

$dest_book->close();

print "done!\n";

pravin27

View Public Profile for pravin27

Find all posts by pravin27

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

How to modify an existing pdf with unix shell commands

Hi, I know that to create a pdf file I can use the txt2pdf command. But if I would change an existing pdf file, by inserting lines in particular positions of this file, what can I use? And How?

2. Shell Programming and Scripting

writeExcelXML will work on existing excel sheet

I want to know that will SpreadSheet::WriteExcelXML will work on the existing excel file.

3. Shell Programming and Scripting

PERL: Split Excel Workbook to Indiv Excel files

Hi, I am trying to find a way to read an excel work book with multiple worksheets. And write each worksheet into a new excel file using perl. My environment is Unix. For example: I have an excel workbook TEST.xls and it has Sheet1, Sheet2, Sheet3 worksheets. I would like to create...

4. Shell Programming and Scripting

PERL: Modify Excel cell formatting

Hi, I would like to modify an existing excel cell format to a custom format. Is there a way to do it with out writing into a new excel file. In-place editing? Thanks

5. UNIX for Dummies Questions & Answers

Add columns to an existing excel sheet

Hi All, i have an excel sheet as below: day ----- monday tuesday wenesday thursday friday i need to append the two more columns in this existing file below: insert date should be todays date--- day insert date insert user ---- ---------- ...

6. Shell Programming and Scripting

how to modify existing env var

greetings, i have the following env variable: LSB_HOSTS='t70cra102 t70cra102 t70cra108 t70cra108'the variable could be any number of host names and sometimes the same name several times. i was hoping there's a way to turn it into the following: NEW_LSB_HOSTS=,,,]always appreciate the help...

7. Shell Programming and Scripting

Help to modify in Excel format

Hi I ran some query in solaris machine and the result of the query is as below. Result: dn: uid=xxx,dc=example,dc=com id: xxx firstname: sam lastname: nam But my question is , how to get result in excel format in solaris and result attributes dn,id,firstname,lastname values ...

8. Shell Programming and Scripting

Perl - Append data to existing excel cell

Hello All, I have the following code in PERL to write data to excel sheet. Can someone please help me about how to append data to an exisitng cell? For ex in the below given case,Cell 1,1 has Active State PERL Now I want to add a new line like "prorgamming" without overwritting the...

9. Shell Programming and Scripting

Modify existing values in a file

Hi, I am trying to write a shell script which will modify existing values and take backup of old values. file trying to modify is : /etc/sysctl.conf script name: modify.sh execute ./modify.sh enter ref no: 123 add below values in file sysctl.cnf kernel.shmall = 4194304 ...

10. Programming

Perl script to merge cells in column1 which has same strings, for all sheets in a excel workbook

Perl script to merge cells ---------- Post updated at 12:59 AM ---------- Previous update was at 12:54 AM ---------- I am using below code to read files from a dir and print to excel. open(my $in, '<', $file) or die "Could not open file: $!"; my $rowCount = 0; my $colCount = 0;...

LEARN ABOUT DEBIAN

tk::tablematrix::spreadsheet

TableMatrix::Spreadsheet(3pm)				       perl/Tk Documentation				     TableMatrix::Spreadsheet(3pm)

NAME

       Tk::TableMatrix::Spreadsheet - Table Display with Spreadsheet-like bindings.

SYNOPSIS

	 use Tk;
	 use Tk::TableMatrix::Spreadsheet;

	 my $t = $top->Scrolled('Spreadsheet', -rows => 21, -cols => 11,
				     -width => 6, -height => 6,
				     -titlerows => 1, -titlecols => 1,
				     -variable => $arrayVar,
				     -selectmode => 'extended',
				     -titlerows => 1,
				     -titlecols => 1,
				     -bg => 'white',
			   );

DESCRIPTION

       Tk::TableMatrix::Spreadsheet is a Tk::TableMatrix-derived widget that implements some bindings so the resulting widget behaves more like a
       spreadsheet.

       Bindings Added:

       o
	Row/Col resize handles appear when the cursor is placed over a row/col border line in the rol/col title area.

	Dragging these handles will resize the row or column. If multiple rows or columns are selected, then the new row/col size will apply to
	all row/cols selected.

	Note: With the base Tk::TableMatrix, it is possible to resize the row/cols by dragging on any cell border. To be more spreadsheet-like,
	Tk::TableMatrix::Spreadsheet  defaults to enable row/col resizing only thru the title row/col dragging. To override this default behavoir,
	set the -resizeborder option to 'both' at startup.

       o
	A popup menu for row/col insert/delete appears when the mouse is right-clicked in the row/col title areas.

       o
	Cells activate (i.e. the contents become edit-able) only when the cell is double-clicked or the F2 button is pressed. The default
	Tk::TableMatrix behavior is for the cell to be activated when the cell is single-clicked.

       o
	The Escape key causes any changes made to a cell to be canceled and the current selection cleared.

       o
	The return key causes the the current cell to move down.

       o
	The tab (or shift tab) key causes the current cell to be moved to the right (left).

       o
	The delete key will delete the current selection, if no cell is currently active.

       o
	The Mouse button 2 (middle button) paste from the PRIMARY. (Control-v pastes from the clipboard).

Additional Information
       Widget methods, options, etc, are inherited from the Tk::TableMatrix widget. See its docs for additional information.

Tk1.23								    2007-01-09					     TableMatrix::Spreadsheet(3pm)