Application.CreateComparisonReport method (Project)

Artikel
04/07/2023

Erstellt einen Vergleichsbericht zwischen zwei Versionen eines Projekts.

Syntax

Ausdruck. CreateComparisonReport( _FileName_, _TaskTable_, _ResourceTable_, _Items_, _Columns_, _ShowLegend_ )

Ausdruck Ein Ausdruck, der ein Application-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FileName	Optional	String	Vollständigen Pfad und Name der zu vergleichenden Projektdatei.
TaskTable	Optional	String	Name der für Vergleiche in einer Vorgangsansicht zu verwendenden Tabelle.
ResourceTable	Optional	String	Name der für Vergleiche in einer Ressourcenansicht zu verwendenden Tabelle.
Items	Optional	PjCompareVersionItems	Gibt den Typ der zu vergleichenden Elemente an.
Columns	Optional	PjCompareVersionColumns	Gibt an, ob nur Spaltendaten, nur Spaltenunterschiede oder sowohl Unterschiede als auch Daten angezeigt werden sollen.
ShowLegend	Optional	Variant	Wenn True, wird die Legende im Vergleichsbericht angezeigt werden.

Rückgabewert

Boolean

Bemerkungen

Die CreateComparisonReport -Methode vergleicht Task oder Ressourceninformationen, aber keine Zuordnungsinformationen.

Beispiel

Das folgende Beispiel demonstriert das Erstellen eines Vergleichsberichts. Der Code überprüft zuerst, ob ein Projekt aktuell geöffnet ist, und dann, ob das Projekt Vorgänge oder Ressourcen enthält. Der Vergleichsbericht basiert auf Kostentabellen, die nach ausschließlich geänderten Vorgangs- oder Ressourcenkosteninformationen gefiltert sind, mit Spalten, die nur die Unterschiede zwischen Vorgängen oder Ressourcen anzeigen. Abschließend wird der Vergleichsbericht unter einem Dateinamen gespeichert, der auf dem aktuellen (ersten) Projekt basiert.

Sub ComparisonReport () 
    If Projects.Count = 0 Then 
        MsgBox "You must have at least one active project open before you can compare projects.", _ 
            vbInformation 
        Exit Sub 
    ElseIf ActiveProject.Tasks.Count = 0 Then 
        If ActiveProject.ResourceCount = 0 Then 
            MsgBox "There are no task or resources in the current project. " & vbCrLf _ 
            & "Open a project with either tasks or resources before creating a comparison report.", _ 
            vbInformation 
            Exit Sub 
        End If 
    End If 
 
    ' Get the name of the project to use for saving the comparison report. 
    Dim currentProject As Project 
    Set currentProject = ActiveProject 
 
    Dim previousVersion As String 
    previousVersion = "[full path to .mpp file to compare with the active project.]" 
 
    CreateComparisonReport FileName:=previousVersion, _ 
    TaskTable:="Cost", _ 
    ResourceTable:="Cost", _ 
    Items:=pjCompareVersionItemsChangedItems, _ 
    Columns:=pjCompareVersionColumnsDifferencesOnly, _ 
    Showlegend:=True 
 
    ' Save the comparison report based upon the name of the first project. 
    Dim comparisonReport As Project 
    Set comparisonReport = ActiveProject 
    ActiveProject.SaveAs currentProject & "_Compared.mpp" 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über