Método Application.CreateComparisonReport (Project)

Crea un informe de comparación entre dos versiones de un proyecto.

Sintaxis

expresión. CreateComparisonReport( _FileName_, _TaskTable_, _ResourceTable_, _Items_, _Columns_, _ShowLegend_ )

expresión Expresión que devuelve un objeto Application .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Opcional	String	Ruta de acceso completa y nombre del archivo de proyecto a comparar.
TaskTable	Opcional	String	Nombre de la tabla que se usará para realizar una comparación en una vista de tareas.
ResourceTable	Opcional	String	Nombre de la tabla que se usará para realizar una comparación en una vista de recursos.
Items	Opcional	PjCompareVersionItems	Especifica el tipo de elementos que desea comparar.
Columns	Opcional	PjCompareVersionColumns	Especifica si se muestran solo los datos de columna, solo las diferencias de columna, o las diferencias y los datos.
ShowLegend	Opcional	Variant	Si es True, se muestra la leyenda en el informe de comparación.

Valor devuelto

Boolean

Comentarios

El método CreateComparisonReport compara la tarea o información del recurso, pero no la información de asignación.

Ejemplo

En el ejemplo siguiente, se muestra cómo crear un informe de comparación. Primero, el código comprueba que el proyecto esté abierto y, a continuación, comprueba que las tareas o recursos estén en el proyecto. El informe de comparación se basa en las tablas de costo, filtradas únicamente para las tareas modificadas o la información de costo del recurso, con columnas que muestran solo las diferencias entre las tareas o recursos. Por último, se guarda el informe de comparación con un nombre de archivo basado en el (primer) proyecto actual.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.