excel-2007 - 在 Excel 2007 工作表单元格中显示自定义文档属性值

Question

我创建了一个程序，用于在 Excel 2007 工作簿文件中创建和填充自定义文档属性。但是，我无法在工作表单元格中显示此属性的值。在 Word 2007 中，您只需选择“插入 -> 快速部件 -> 字段...”并使用 DocProperty 字段来显示文档中自定义字段的值。但是我在 Excel 2007 中没有找到类似的功能。

有人知道如何在 Excel 工作表单元格中显示自定义文档属性的值吗？我更喜欢类似于上面提到的 Word 2007 解决方案的解决方案。我宁愿不为此使用宏/自定义代码。

Answer 1

不幸的是，我认为您需要使用用户定义的函数。将新的 VBA 模块添加到您的工作簿并添加此函数:

Function DocumentProperty(Property As String)
  Application.Volatile
  On Error GoTo NoDocumentPropertyDefined
  DocumentProperty = ActiveWorkbook.BuiltinDocumentProperties(Property)
  Exit Function
NoDocumentPropertyDefined:
  DocumentProperty = CVErr(xlErrValue)
End Function

对 Application.Volatile 的调用会强制在每次重新计算时更新单元格，以确保它能够获取文档属性中的更改。