Application.CreateComparisonReport метод (Project)

Создает отчет о сравнении двух версий проекта.

Синтаксис

выражение. CreateComparisonReport( _FileName_, _TaskTable_, _ResourceTable_, _Items_, _Columns_, _ShowLegend_ )

выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FileName	Необязательный	String	Полный путь и имя сравниваемого файла проекта.
Таблица задач	Необязательный	String	Имя таблицы для сравнения в представлении задач.
ResourceTable	Необязательный	String	Имя таблицы для сравнения в представлении ресурсов.
Items	Необязательный	PjCompareVersionItems	Определяет тип объектов для сравнения.
Columns	Необязательный	PjCompareVersionColumns	Указывает, должны ли отображаться только данные столбцов, только различия столбцов или данные и различия.
Легенда шоу	Необязательный	Variant	Если значение "Истина", отображается легенда в отчете сравнения.

Возвращаемое значение

Boolean

Примечания

Метод CreateComparisonReport сравнивает сведения о задаче или ресурсе, но не сведения о назначении.

Пример

В следующем примере показано, как создать отчет о сравнительных показателях. Сначала код проверяет, открыт ли проект в настоящий момент, а затем проверяет, находятся ли в проекте задачи или ресурсы. Отчет сравнения основан на таблицах затрат, отфильтрованных по только измененным сведениям о задачах или затратах ресурсов, со столбцами, отображающими только различия между задачами или ресурсами. Наконец, отчет о сравнении сохраняется с именем файла, основанным на текущем (первом) проекте.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.