Finding Packages by name in VBA

[elgringogordo]

Hi I am trying to automate using an excel sheet to create and update an EA requirements list.

It's quite basic.  I add one top level package.  I want to iterate some cells, check if the package exists and add it if it doesn't.  (Afterwards I add a hierarchy of elements, this 2nd part is mainly done).  So I think the main point is I manually add a root package and then want to add a single layer of packages afterwards.

I'm struggling to check the existence of packages though.  Here is a snippit of code (currently I have added the packages to EA manually and I'm starting off by checking the sheet against ea.

    dim myP as EA.Package

    For Each packageString In packageArray
        MsgBox (CStr(rootPackage.Packages.Count))  ' shows 35
        Set myP = rootPackage.Packages.GetByName(packageString ) 

So this set should be fine, in this case it should exist but what I get is a runtime error : Index out of Bounds

Can anyone tell me what I'm doing wrong ?

[Geert Bellekens]

You shouldn't use GetByName (ever)

Why don't you simply loop the packages until you have the one you need?

Something like:

Code: [Select]

    dim myP as EA.Package
    dim curP as EA.Package
    set curP = nothing 'initialize

    For Each packageString In packageArray
        For Each curP in rootPackage.Packages
            If curP.Name = packageString then
                 Set myP = curP
                 exit for
            end if
        next
   next
Geert

[elgringogordo]

Many thanks