
Shared Resources/Resource Pool
Here's something I wrote to iterate through tasks a particular resource is
working on (in a resource pool).
Public Sub PrintTasks(Optional ResourceName As String = "Unassigned",
Optional StartDate As Date, Optional EndDate As Date)
Dim oP As MSProject.Project
Dim r As MSProject.Resource
Dim a As MSProject.Assignment
Dim t As MSProject.Task
' This returns the resources project that is in our SQL Svr database. You
' could also provide a hard path to the resources.mpp file if you don't
have
' it in a database
Set oP = GetObject("<ProjectData>\Resources", "MSProject.Project")
Set r = oP.Resources(ResourceName)
For Each a In r.Assignments
If Not ((a.Start >= EndDate) Or (a.Finish <= StartDate)) Then
Debug.Print "Project: " & a.Project
Debug.Print "Task: " & a.TaskName
Debug.Print "Resource:" & a.ResourceName
Debug.Print "Start: " & a.Start
Debug.Print "End: " & a.Finish
Debug.Print "-------"
End If
Next a
End Sub
This is from MS Access 97, but should also work in project.
One problem I have is that it is asking me if I want to open the file in
read-only mode or with linked projects etc. and I don't want it to ask.
Is there a way of opening it with parameters to answer these
questions?
Or better yet, I'd like to do everything/most things directly through our
SQL
Server, but I have no idea how Project's object model maps to the
database. Is there any good literature out there, or do I just have to
figure
it out?
Thanks,
Josh
Quote:
> Hi Mary,
> > We are using MSP98. We have 307 projects linked to the resource pool, is
> > there a way to extract/print that list linked to the Pool (which would
> > show the path as well, just like is shown in the Share Resources dialog
> box
> > window)? The information does not seem to be stored in a field in a
> > table, it looks like it is residence in the project file itsself. VBA
> code
> >answer would be fine as well as any other help or suggestions.
> we've got the same problem. One but very dissatifying option is to open
the
> project with all it's sharers and take a look of the projects collection
> afterwards.
> The second possibility - if your working with projects saved to database -
> is to make an select like this on that database:
> SELECT ProjectName from Project_Information;
> Renke
> http://www.holert.com
> --
> Renke Holert
> http://www.holert.com