如何在VBA MS Project中获取单元格的值

Sub GetTaskCellValue()
    Dim projApp As Project.Application
    Dim proj As Project.Project
    Dim task As Task
    Dim cellValue As Variant
    
    ' 获取Project应用程序对象
    Set projApp = CreateObject("MSProject.Application")
    
    ' 打开项目文件
    Set proj = projApp.FileOpen("C:\Path\To\Your\Project.mpp")
    
    ' 获取第一个任务的名称字段值
    Set task = proj.Tasks(1)
    cellValue = proj.GetField(task.UniqueID, "Name")
    
    ' 显示单元格值
    MsgBox cellValue
    
    ' 关闭项目文件
    projApp.FileCloseAll
End Sub