从 Ms Project 导入数据到 Excel

Question

我正在 Excel VBA 中创建一个例程，它打开一个 MS Project 文件并通过 for 循环遍历任务将信息从选定的列复制到 Excel。问题是因为是一个循环，从一个任务到另一个任务，处理速度很慢

这是用于完成任务并将信息复制到 excel 中的循环。

`   i = 2 
    For Each Tarea In Proj.Tasks
        Ws.Cells(i, 1).Value = Tarea.WBS 
        Ws.Cells(i, 2).Value = Tarea.OutlineLevel 
        Ws.Cells(i, 3).Value = Tarea.Summary 'Resumen
        Ws.Cells(i, 4).Value = Tarea.Name 'Nombre de tarea
        Ws.Cells(i, 5).Value = Tarea.Duration
        Ws.Cells(i, 6).Value = Tarea.Start
        Ws.Cells(i, 7).Value = Tarea.Finish
        Ws.Cells(i, 8).Value = Tarea.Predecessors
        Ws.Cells(i, 9).Value = Tarea.Successors
        Ws.Cells(i, 10).Value = Tarea.Milestone
        Ws.Cells(i, 11).Value = Tarea.Critical
        Ws.Cells(i, 12).Value = Tarea.ResourceNames
        Ws.Cells(i, 13).Value = Tarea.Work
        i = i + 1
    Next Tarea`

没有麻烦，它有效......但如果日程安排有很多活动，它会很慢。有没有可能从Excel VBA你可以在Ms Project中执行一个范围的副本，然后通过命令将它粘贴到Excel中？...以上正在寻找提高信息提取速度的选项。