0

いくつかのタスクを含む単純な MS Project ファイル (2007) があります。という名前のカスタム フィールドも作成VBATestし、2 つのプロジェクト タスクに対してこのカスタム フィールドに値を割り当てました。

プロジェクト タスクのリストとカスタム フィールドに割り当てられた値を次のように取得したいと思います。

ProjectTask | VBATest <--Custom field
------------|--------
Task1       | vba1
Task2       | vba2

これは最終的なコードが終了する場所であるため、Access 2007 VBA からこれを行っています。ほとんどの作業を行うことができますが、Assignments オブジェクトからカスタム フィールドの値を読み取ることができないようです。あなたはなにか考えはありますか？ありがとう

これが私がこれまでに行ったことです。

Sub LoadProjectFile()

Dim pjApp As MSProject.Application
Dim FileToOpen
Dim Proj As MSProject.Project
Dim Project_Task As Task
Dim fd As FileDialog

Set pjApp = New MSProject.Application

If pjApp Is Nothing Then
MsgBox "Project is not installed"
End
End If

pjApp.Visible = True
AppActivate "Microsoft Project"

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Clear
fd.Filters.Add "Microsoft Project Files", "*.mpp"
fd.AllowMultiSelect = False
fd.Show
If (fd.SelectedItems.Count = 0) Then
    'Application.GetOpenFilename("Microsoft Project Files (*.mpp), *.mpp")
    pjApp.Quit
    Set pjApp = Nothing
    Exit Sub
End If

pjApp.FileOpen fd.SelectedItems(1)
Debug.Print "Project_Task_Name~CustomField"

Dim ass As Assignment
For Each Project_Task In pjApp.ActiveProject.Tasks
            If Not Project_Task Is Nothing Then

                For Each ass In Project_Task.Assignments
                    assignCFVal = assignCFVal & "," & ass.VBATestField '<<PROBLEM Line
                Next ass

               Debug.Print Project_Task.Name & "~" & assignCFVal
               assignCFVal = ""
            End If
        Next Project_Task

pjApp.FileClose pjDoNotSave
pjApp.Quit
Set pjApp = Nothing

End Sub
4

1 に答える 1

0

これには Assignments オブジェクトを使用する必要がないことがわかりました。SetField メソッドは、以下のように必要なものを返します。

For Each Project_Task In pjApp.ActiveProject.Tasks
            If Not Project_Task Is Nothing Then
              assignCFVal = Project_Task.SetField(FieldNameToFieldConstant("VBATestField"))
              Debug.Print Project_Task.Name & "~" & assignCFVal
            End If
Next Project_Task
于 2011-08-18T16:53:42.380 に答える