Microsoft Project - MACRO PARA COPIAR DESDE PROJECT A EXCEL

Sub Copiar_Project_a_Excel()

' Macro grabada el 15/12/18 por Ignacio Martín MVP Microsoft.

    Dim Mixl As Object

    Set Mixl = CreateObject("Excel.Application")

    Dim MixlLibro As Excel.Workbook

    Dim MixlHoja As Excel.Worksheet

    Set MixlLibro = Workbooks.Add

    Mixl.Visible = True

    Set MixlHoja = Worksheets("Hoja1")

    MixlHoja.Activate

    SelectTaskColumn Column:="Nombre"

    EditCopy

    'Cambiar aquí la celda destino

    Range("A1").Select

    MixlHoja.Paste

    SelectTaskColumn Column:="% completado"

    EditCopy

    'Cambiar aquí la celda destino

    Range("B1").Select

    MixlHoja.Paste

End Sub