Question

我试图一次遍历资源图表视图一个资源，并使用与该文件关联的相应名称导出到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

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

Answer 1

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

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

迭代资源图表视图并使用VBA Microsoft Project 2010中的资源名称导出到XPS

1 个答案: