使用VBA将文件添加到MS-Project任务说明字段

Question

我试图在MS Project文件中存储有关特定里程碑的详细信息(我使用的是MS Project Online Desktop客户端)，方法是将信息添加到任务的Notes字段中(因为常规的自定义文本字段仅限于255 Notes)，但在保持格式方面存在问题。Notes字段还允许将任何类型的文件(例如Word或Excel)添加为和对象，这对我来说是一个很好的解决方案，但是当使用记录器时，添加对象的操作不会被记录下来。

因此，我的问题是:在VBA中是否有可能将文件添加到任务的Notes字段并随后检索它？

任何帮助都将不胜感激。

最好的，哈拉尔德

Answer 1

我不确定是否有办法在代码中做到这一点。任务对象的票据性质似乎只接受字符串数据。即使有一种方法可以附加一个文件作为注释，我还是要强烈反对它--，因为它会导致您的项目文件损坏。我包括一张来自这篇文章的图片

​

作为使用MS很长时间的人，我看到这种损坏是直接发生的，这是您的项目文件可能发生的最糟糕的事情。另一种更好的方法是将这些文件放在共享的网络位置上，只需引用所需文件的路径，就可以通过任务的Notes属性在VBA代码中这样做。

Answer 2

非常感谢您的快速反应和警告！我做了更多的调查，我相当肯定这不能用VBA完成。我现在所做的就是将一个类似HTML的字符串放入注释中，其中包含来自Excel的有关可交付产品细节的数据。

<DELIVERABLEINFO><OBJECTIVE>The Project Change Management Plan defines and documents the change process for a project.</OBJECTIVE><TOC>to be defined</TOC><INFO>to be defined</INFO></DELIVERABLEINFO>

稍后从MS生成Excel文件时，我将解析字符串并再次填充特定字段。工作非常好，但是我发现，虽然字符串可以直接从Excel单元格内容中生成，但是当将字符串从Note放到Excel文件时，我需要使用下面的函数处理它，以便再次显示换行符。

Function StringFromNoteToExcel(strNote As Variant) As String
        On Error GoTo StringFromNoteToExcel_Error
        StringFromNoteToExcel = Trim(Replace(strNote, vbCr, vbLf))
        StringFromNoteToExcel = Replace(StringFromNoteToExcel, vbVerticalTab, vbLf)
        StringFromNoteToExcel = Replace(StringFromNoteToExcel, vbTab, vbLf)
          
        On Error GoTo 0
        Exit Function

StringFromNoteToExcel_Error:

        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure StringFromNoteToExcel, line " & Erl & "."

End Function

它不允许任何花哨的格式，但至少保留了结构，而且您仍然可以在HTML之外添加注释，比如我添加的块。

再次感谢！哈拉尔德