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
???
????????
???????