I try to see the project resources with a macro. I tried different examples
I found in the Help files, e.g. this one below:

    Dim R As Long, Names As String

    For R = 1 To ActiveProject.Resources.Count
        Names = ActiveProject.Resources(R).Name & ", " & Names
    Next R

    Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
    MsgBox Names

At anytime I tried to run it, I've an error message:
"Run-time
error'91'Object variable or With block variable not set"

Is it a library problem ?

Why cant't I use the Resources object to read his properties neither the
Resource object ?

Thank in advance

Jordi

Surprising. The code is ok and should run without errors. Can you post your
mpp file (ensure that size is below 90k by deleting all the tasks and just 3
resources).

Regards
Venkata Krishna

Jordi

In your project you have blank resource rows i.e. resource id's 1 to 6 are blank. Your valid resources are only of id's 7 to 9. So in the your program loop when R=1, it is trying to access the properties of resource 1 as ActiveProject.Resources(1).Name where as the resource actually does not exist. This will generate an error. So in your loop, you need to see if the resource is nothing and access it's properties only if the resource is not nothing. I have added the required code, which is in bold.

Sub ResourcesTest()
    Dim R As Long, Names As String

    For R = 1 To ActiveProject.Resources.Count
        If Not ActiveProject.Resources(R) Is Nothing Then
            Names = ActiveProject.Resources(R).Name & ", " & Names
        End If
    Next R

    Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
    MsgBox Names
End Sub

Regards
Venkata Krishna

... and a Happy new Year ;-)

Jordi

Jordi

In your project you have blank resource rows i.e. resource id's 1 to 6 are
blank. Your valid resources are only of id's 7 to 9. So in the your program
loop when R=1, it is trying to access the properties of resource 1 as
ActiveProject.Resources(1).Name where as the resource actually does not
exist. This will generate an error. So in your loop, you need to see if the
resource is nothing and access it's properties only if the resource is not
nothing. I have added the required code, which is in bold.

Sub ResourcesTest()
    Dim R As Long, Names As String

    For R = 1 To ActiveProject.Resources.Count
        If Not ActiveProject.Resources(R) Is Nothing Then
            Names = ActiveProject.Resources(R).Name & ", " & Names
        End If
    Next R

    Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
    MsgBox Names
End Sub

Regards
Venkata Krishna