将项目计划中的特定行复制到新计划 [英] Copying Specific Rows in a Project Plan to a New Plan

问题描述

大家好

这应该是一项简单的活动 但由于某种原因，我今天很挣扎。 基本上我想循环遍历计划中的所有行以及字段Text16 ="MOJ - Portal"的字段。我想将该活动复制到一个新的空白计划。

我们将不胜感激任何帮助/指导。 一旦我为名称字段提供了解决方案，例如，我可以完成其余的工作。 我只是在努力开始。

感谢您对此有任何帮助/指导。

亲切的问候

Tony

---

TKHussar

解决方案

TKHussar ，

这些骨头就像...... 毫无疑问，其他人会增加这个... ...

Dim ts as Tasks

  Dim t as Task

 设置ts = ActiveProject.Tasks

 对于每个t中的
 如果不是t则为Nothing然后

 如果不是t.Summary然后

 如果t.text16 =" MOH - Portal"然后

'复制text16

'将其写入新文件

end if

 结束如果是b $ b 结束如果是
 下一步

Hi All

This should be a simple activity but for some reason I am struggling today.  Basically I want to loop through all rows in a plan and where the field Text16 = "MOJ - Portal" I want to copy that activity to a new blank plan.

Any help/guidance would be appreciated.  Once I have a solution for the name field for example I can do the rest.  I am just struggling to get started.

Thanks in anticipation for any help/guidance on this.

Kind regards

Tony

---

TKHussar

解决方案

Hi TKHussar,

The bare bones would be something like...  No doubt others will augment this...

Dim ts as Tasks
 Dim t as Task
 Set ts = ActiveProject.Tasks
 For Each t in ts
 If Not t is Nothing Then
 If Not t.Summary Then
 if t.text16 = "MOH - Portal" then

'copy text16

' write it to the new file

end if

 End If
 End If
 Next t

这篇关于将项目计划中的特定行复制到新计划的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！