Método Application.CreateComparisonReport (Project)

Cria um relatório de comparação entre duas versões de um projeto.

Sintaxe

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

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Opcional	String	Caminho e nome completos do arquivo do projeto a ser comparado.
TaskTable	Opcional	String	Nome da tabela a ser usada para comparação em um modo de exibição de tarefas.
ResourceTable	Opcional	String	Nome da tabela a ser usada para comparação em um modo de exibição de recursos.
Items	Opcional	PjCompareVersionItems	Especifica o tipo de itens a serem comparados.
Columns	Opcional	PjCompareVersionColumns	Especifica se serão exibidos somente os dados das colunas, somente as diferenças das colunas ou tanto as diferenças quanto os dados.
ShowLegend	Opcional	Variant	Se True, mostra a legenda no relatório de comparação.

Valor de retorno

Boolean

Comentários

O método CreateComparisonReport compara a tarefa ou informações sobre o recurso, mas nenhuma informação de atribuição.

Exemplo

O exemplo a seguir demonstra como criar um relatório de comparação. O código verifica primeiro se um projeto está aberto no momento e depois se as tarefas ou recursos estão no projeto. O relatório de comparação se baseia em tabelas de custos, filtradas somente para mostrar informações de custos de tarefas ou recursos alterados, com colunas que exibem apenas as diferenças entre as tarefas ou recursos. Por fim, o relatório de comparação é salvo com um nome de arquivo baseado no (primeiro) projeto atual.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.