Метод Application.CreateComparisonReport (Project)

  • Статья

Создает отчет о сравнении между двумя версиями проекта.

Синтаксис

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

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

Параметры

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

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

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 и обратная связь.