遍历资源图视图并在 VBA Microsoft Project 2010 中使用资源名称导出到 XPS答案

【问题标题】：Iterate through Resource Graph view and export to XPS with resources name in VBA Microsoft Project 2010遍历资源图视图并在 VBA Microsoft Project 2010 中使用资源名称导出到 XPS
【发布时间】：2015-08-24 15:07:30
【问题描述】：

我正在尝试一次遍历一个资源图视图并使用与文件关联的适当名称导出到 XPS。代码如下：

Sub ResourcGraph()
' Macro Macro4
' Macro Recorded Tue 6/9/15 by Valencia, Jonathan.


Dim Res As Resource
ViewApply "Resource Graph"

SelectBeginning
For Each Res In ActiveProject.Resources
    If Not Res Is Nothing Then
    DocumentExport FileName:=Res.Name & "Graph", FileType:=pjXPS
    End If
    SelectCellRight
Next Res




End Sub

这段代码迭代得很好。我遇到的问题是名称正确。文件由资源命名，但是当我单击该文件时，它是错误的资源。有没有办法从资源图视图中提取活动资源的信息，而不是像我现在那样只浏览资源？

【问题讨论】：

标签： vba ms-office ms-project

【解决方案1】：

这可能是由于资源图的排序顺序与资源集合中的资源不同。您可以使用 Find 命令将图表移动到正确的资源，而不是尝试同步这些资源。

Sub ResourcGraph()

Dim Res As Resource
ViewApply "Resource Graph"

For Each Res In ActiveProject.Resources
    If Not Res Is Nothing Then
        FindEx Field:="Name", Test:="equals", Value:=Res.name, Next:=True
        DocumentExport FileName:=Res.name & "Graph", FileType:=pjXPS
    End If
Next Res

End Sub

【讨论】：

我什至没有考虑查找功能。它就像一个魅力！