?????? 这个算是一个比较不常态的需求吧，毕竟同时用到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
???
????????
???????