You will further need to do some ad hoc scripting to avoid message boxes generated by Excel. A good starting point is to record the macro in Excel, look at it in VB and then mimic it in perl.use strict; use Win32::OLE; # write a value in the first empty ro of the first column # an excel workbook containing a sheet called Versions my $projsheet = 'c:\temp\t.xls'; my $val = 123; my $ex = new Win32::OLE 'Excel.Application' or die; eval ("\$ex->Workbooks->Open(\'$projsheet\')") or die; # # find empty row # my $rowcounter = 1; my $rowval = 1; while (($rowval) && ($rowcounter < 1000)) { $rowval = eval "\$ex->Workbooks(1)->Worksheets(\'Versions\' +)->Cells($rowcounter,1)->{Value}" ; $rowcounter++; } $rowcounter--; # # fill in the values in the sheet # eval "\$ex->Workbooks(1)->Worksheets(\'Versions\')->Cells($rowcoun +ter,1)->{Value}= \'$val\'" ; # # save and quit # $ex->Save; $ex->Quit; return 1;
In reply to Re: Scripting data extraction from excel files in a directory.
by Tabari
in thread Scripting data extraction from excel files in a directory.
by ark989
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |