in reply to OLE VB to Perl

I think I'm right to say your trying to read through what VB would call a collection. If this is the case you should use the Win32::OLE::Enum module. This allows you to extract a collection of objects and then iterate through them. 
use strict;

use Win32::OLE;

# Open excel.
my $excel = Win32::OLE->new("Excel.Application", 'Quit');

# Create a workbook.
my $excelBook = $excel->Workbooks->Add;

# Enumerate the sheets in the workbook (sheet1,sheet2,sheet3 by defaul
+t).
my $sheets = Win32::OLE::Enum->new($excelBook->Worksheets());

#Iterate the sheets using the All() function.

foreach my $sheet ($sheets->All())
{
        print $sheet->name() . "\n";
}

[download]
No error handling I know but it gives you an idea and I've run this on NT4.0 with Office 98.

Replies are listed 'Best First'.
RE: RE: OLE VB to Perl
by Mike McClellan (Novice) on Jul 13, 2000 at 23:48 UTC
    Thank that was just what I was lookin' for. 
    foreach $child(Win32::OLE::Enum->All($ADS)){
    print $child->Name . "\n";
}

    [download]
    I shall own the Win2k Active Directory!!!!
[reply]
[d/l]

      I know that this is amazingly belated, but I've been wrestling with the same issue myself and came across this thread. There's actually an easier solution to iterating over OLE collections, and it goes a little something like this:

      use Win32::OLE 'in';
foreach $member (in $collection) { #do some stuff }

      [download]

      Oddly enough, I gleaned this from the Win32::OLE docs :-). The 'in' function is not exported by default, so you need to specify it in the import list, as above.

      Again, sorry for the late reply, but hopefully this will help latecomers like myself who may stumble across this thread.

      -jehuni

[reply]
[d/l]

In Section Seekers of Perl Wisdom