VBA

Microsoft Project Visual Basic for Applications - Frequently Asked Questions

Wie kann man Daten von Access zu Project übertragen?

Prinzipiell gibt es zwei Ansätze, um Daten von Access nach Project zu übernehmen. Zum einen kann aus Access per VBA auf das Objektmodell von Project zugegriffen werden, zum anderen kann man Projektpläne, die in eine Datenbank gespeichert wurden, direkt über das Datenbankmodell manipulieren.

Nähere Informationen zum Objektmodell zu Project findet man in der Datei VBAPJ9.CHM, die normalerweise im Verzeichnis <C:\Programme\Microsoft Office\Office\1031 zu finden ist. Eine Beschreibung des Datenbankmodells findet sich in der Datei PROJDB.HTM in demselben Ordner. Ein Zugriff über den OLE DB Provider mittels der ActiveX Data Objects (ADO) ist nicht möglich, da hierüber nur lesend zugegriffen werden kann.

Wie kann ich von außen, z.B. mit VB, herausfinden, ob Project aktuell läuft oder nicht?

Dim ProjectApp As MSProject.Application

On Error Resume Next

Set ProjectApp = GetObject(, "MSProject.Application")

If ProjectApp Is Nothing Then
	MsgBox "Project ist nicht gestartet"
Else
	MsgBox "Project ist gestartet"
End If

On Error GoTo 0

Wie fügt man dem aktuellen Projekt einen Vorgang hinzu?

ActiveProject.Tasks.Add ("Vorgang")

Wie fügt man dem aktuellen Projekt eine Ressource hinzu?

ActiveProject.Resources.Add ("Ressource")

Wie ordnet man einem Vorgang eine Ressource zu?

Dim myTaskID, myResourceID As Long

ActiveProject.Tasks.Add ("Vorgang")
ActiveProject.Resources.Add ("Ressource")

myTaskID = ActiveProject.Tasks("Vorgang").ID
myResourceID = ActiveProject.Resources("Ressource").ID

ActiveProject.Tasks("Vorgang").Assignments.Add myTaskID, myResourceID, 1

Wie erfasst man Ist-Zeiten für einen Vorgang?

ActiveProject.Resources(1).Assignments(1).TimeScaleData("1/2/01", _

"1/2/01",pjAssignmentTimescaledWork,pjTimescaleDays,1)(1)=480