dear Gurus-
I have some more errors to work through before I'll feel ready to try out
pulling out a specific sheet from among many. The following lines produces
the errors shown under them. The link is to the full code.
line 232 is after any loops the others are in LARGE loops so i'm not sure
how much would be relevant.
i believe the 166 is not an issue, but figure i'll put all three in. the
other two are OLE/Excel errors.
---code---
my $report = $Excel->Workbooks->Open("$labrep");
---code w/partial context---
if(-e "$labrep"){
#we are just adding to it, so open it
my $report = $Excel->Workbooks->Open("$labrep");
# my $ws = $report->Worksheets("$date - General");
my $ws = $report->Worksheets(1);
---error---
retrying default method at /PerlApp/Win32/OLE/Lite.pm line 156.
---code---
$ncell = $ws -> Range("A$row") -> {'Value'};
---code w/partial context---
# start row counter
my $row=2;
# set row counter to continue at the end of what's there
my $ncell = $ws -> Range("A$row") -> {'Value'};
while($ncell =~ m/\w+/i){
$row++; # increment row & V- grab next row's data -V
$ncell = $ws -> Range("A$row") -> {'Value'};
}
---error---
Use of uninitialized value in pattern match (m//) at compinfo.pl line 166.
----code---
$Excel -> Workbooks -> Save(); # save file
---error---
Win32::OLE(0.1403) error 0x8002000b: "Invalid index"
in METHOD/PROPERTYGET "" at compinfo.pl line 232
http://rapidshare.de/files/15674436/compinfo.zip.html
thank you for your time,
josh
-----------------------------------------
PLEASE NOTE:
SeaChange International headquarters in Maynard, MA is moving!
Effective March 1, 2006, our new headquarters address will be:
SeaChange International
50 Nagog Park
Acton, MA 01720 USA
All telephone numbers remain the same:
Main Corporate Telephone: 978-897-0100
Customer Service Telephone: 978-897-7300
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
