Re^2: WIn32::OLE debug

[chafelix]

Thanks, I did try your advice. The result:

Tables is <Win32::OLE=HASH(0x57d0ab0)>Tables has 70 itemsbefore table loop

table=Win32::OLE=HASH(0x57d0c60) file=C:\Users\...\mydoc.docx

numrows=23

table rows count= Win32::OLE=HASH(0x5606e48)->Rows->Count

OLE exception from "Microsoft Word":

?e? e??a? d??at? ? p??s▀as? ╡e╡???╡???? ??a╡╡?? se a?t?? t? s??????, epe?d? ? p??a?a? ??e? s?????e?╡??a ?e??? ?ata????fa.

Win32::OLE(0.1712) error 0x800a1767 in METHOD/PROPERTYGET "Item" at parserworks16.pl line 188.

The failing line is the last line shown

print "table rows count= $table->Rows->Count \n"; # this print seems t
+o indicate the problem
foreach my $rownum (1 .. $table->Rows->Count) {
    my $row = $table->Rows->Item($rownum);

So it looks like $table->Rows->Count is an object instead of a number! Why is that ?

[choroba]

Method calls are not interpolated in double quoted strings. Therefore,

print "table rows count= $table->Rows->Count \n";

only interpolates $table. Instead, try

print 'table rows count = ', $table->Rows->Count, ".\n";

[chafelix]

Then

 
print "table rows count=",  $table->Rows->Count ,".\n"; # prints 23
foreach my $rownum (1 .. $table->Rows->Count) {
print "rownum=$rownum\n"; #prints 1
    my $row = $table->Rows->Item($rownum); #crashes!

OLE exception from "Microsoft Word": ?e? e??a? d??at? ? p??s▀as? ╡e╡???╡???? ??a╡╡?? se a?t?? t? s??????, epe?d? ? p??a?a? ??e? s?????e?╡??a ?e??? ?ata????fa. Win32::OLE(0.1712) error 0x800a1767 in METHOD/PROPERTYGET "Item" at parserworks16.pl line 191.

is there a way to look at the elements of the $table->Rows object? It would appear that this does not have an Item(1) element

[soonix]

PMFJI, but shouldn't

my $row = $table->Rows->Item($rownum); #crashes!

be more something like

my $row = $table->Rows($rownum)->Item; # probably also crashes, but di
+fferently ;-)

?

[Anonymous Monk]

reference the docs? msdn…?? How to print row of excel file in perl uses a Cells method, can you make that work?