Re^2: WIn32::OLE debug

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);
[download]

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

Comment on Re^2: WIn32::OLE debug Download Code

Replies are listed 'Best First'.
Re^3: WIn32::OLE debug by choroba (Cardinal) on Oct 12, 2025 at 17:37 UTC
Method calls are not interpolated in double quoted strings. Therefore, `print "table rows count= $table->Rows->Count \n";` [download] only interpolates $table. Instead, try `print 'table rows count = ', $table->Rows->Count, ".\n";` [download] `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]
Re^4: WIn32::OLE debug by chafelix (Acolyte) on Oct 12, 2025 at 18:56 UTC
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!` [download] 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	[reply] [d/l]
Re^5: WIn32::OLE debug by soonix (Chancellor) on Oct 13, 2025 at 08:29 UTC
PMFJI, but shouldn't `my $row = $table->Rows->Item($rownum); #crashes!` [download] be more something like `my $row = $table->Rows($rownum)->Item; # probably also crashes, but di +fferently ;-)` [download] ?	[reply] [d/l] [select]
Re^6: WIn32::OLE debug by chafelix (Acolyte) on Oct 13, 2025 at 19:01 UTC
Re^5: WIn32::OLE debug by Anonymous Monk on Oct 25, 2025 at 07:26 UTC
reference the docs? msdn…?? How to print row of excel file in perl uses a Cells method, can you make that work?	[reply]