CQ与project通过VBA进行集成

       这个算是一个比较不常态的需求吧，毕竟同时用到IBM的ClearQuest和MS的Project并且舍去官方提供的集成方式，按照企业自己需要来进行集成的并不多，由于VBA代码比较乱，就不贴了，下面只写下，关键点

 

 

     1、CQ提供的Hook里面 创建任务分配框的FormSession和直接操作数据的session是完全不同的两个session对象，具体创建可以参考yunshan的excel和CQ结合例子

 

    2、VBA得到选择行方法：Application.ActiveSelection.Tasks 得到的是Project中的任务记录对象集，单对象是Task

    获得Taskd对象的企业自定义域值方法为： task.GetField(FieldNameToFieldConstant("任务号"))

    获得项目的企业自定义域值方法为： Application.ActiveProject.ProjectSummaryTask.GetField(FieldNameToFieldConstant("CQ项目名称"))

    设置企业自定义域的方法：task.SetField FieldNameToFieldConstant("任务号"), te.GetFieldValue("ID").GetValue