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

Question

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

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

Answer 1

Excel 中的等效方法是通过公式，我认为没有代码就不可能提取文档属性。 没有本地函数来选择文档属性。 （另一种方法是将信息存储在工作簿/工作表名称中，可以通过公式访问）

在 VBA 中，您必须创建一个类似以下的函数：

Public Function CustomProperty(ByVal prop As String)

    CustomProperty = ActiveWorkbook.CustomDocumentProperties(prop)

End Function

然后在公式中使用 =CustomProperties("PropertyName" 调用它）。

还有一个微妙的点。 公式依赖性仅与其他单元格相关； 该公式取决于自定义属性。 如果您更新自定义属性，涉及 CustomProperty 的现有公式将不会自动更新。 必须手动重新评估单元格或强制重新计算整个工作簿。 最好的机会是使函数具有易失性，这意味着每次单元格更改时都会重新计算公式 - 但这仍然意味着只有在单元格发生更改时您才会获得更新。

Answer 2

选择要提取的单元格
将单元格重命名为一些有用的名称。 从“B1”到“Project_Number”。
打开“高级属性”，单击“自定义”选项卡。 输入新属性的名称。 单击“链接到内容”，从“值”下拉列表中选择单元格名称。

我希望我可以接受 cerdit，但我在网上找到了答案：
http://pdmadmin。 com/2012/03/displaying-custom-property-values-in-excel-using-a-named-range/

Answer 3

您可以将命名范围链接到自定义属性，但自定义属性会反映[范围中的第一个单元格]的值。 它实际上是只读的； 您可以更改单元格的内容来更新属性，但反之则不然。

我知道您想避免它，但如果您想在公式中使用属性值，则必须 创建自定义工作表函数来执行此操作。

Answer 4

我也经历过其他人同样的问题。 因此，我将尝试全面介绍我是如何解决这个问题的。

首先，除了编写一个函数来获取您放入自定义或内置属性中的任何内容并使“问题”单元格以这种方式指向它之外，您别无选择：

=yourPropertyGettingFunctionName(PropertyName)

PropertyName 是一个引用名称的字符串您希望在单元格中显示其值的自定义/内置属性。

该函数可以编写为（如之前建议的）：

Public Function StdProp(ByVal sPropName As String) As String
    Application.Volatile
    StdProp = ActiveWorkbook.BuiltinDocumentProperties(sPropName).Value
End Function

对于内置属性，或者：

Public Function UsrProp(ByVal sPropName As String) As String
    Application.Volatile
    On Error GoTo UndefinedProp
    UsrProp = ActiveWorkbook.CustomDocumentProperties(sPropName)
    GoTo Exit
UndefinedProp:
    UsrProp  = "n/a"
Exit:
End Function

正如已经提到的，包括 Application.Volatile 将允许半自动单元格内容更新。

然而，这本身就带来了一个问题：每当您打开 Excel 文件时，所有使用这种关系的单元格都会更新，并且当您退出文件时，Excel 会询问您是否允许更新它，无论无论您是否对其进行了任何更改，因为 Excel 本身都做了更改。

在我的开发小组中，我们使用 SubVersion 作为版本控制系统。 如果您在退出时无意中点击了“更新”，SVN 会注意到这一点，并且下次您想要提交更改时，Excel 文件将包含在包中。

所以我决定利用手头的一切去做我需要做的事情，同时避免这种我不想要的自我更新效果。

这意味着将命名范围与属性访问函数结合使用。
鉴于我不能指望旧文件能够满足我的新需求，我编写了这个函数：

Private Function RangeAssign(sRange As String, sValue As String) As Integer
Dim rDest As Range
    If RangeCheck(sRange) Then
        Set rDest = Range(sRange)
    Else
        Set rDest = Application.InputBox(sMsg + vbCrLf + vbCrLf + _
            "Please, select a cell to get" + vbCrLf + _
            "the name " + sRange + " assigned", sCopyRight, Type:=8)
        rDest.Name = sRange
    End If

    rDest.Cells(1, 1).NumberFormat = "@"
    rDest.Cells(1, 1).Value = sValue

    RangeAssign = True

End Function

它允许正确选择目标单元格。 当为属性分配值时（假设“作者”，它恰好是内置属性），我还会更新存储在命名范围中的值，并且可以在单元格中写入：

=Author

如果我碰巧定义了一个范围命名为“Author”，并用内置属性“Author”的值填充其“A1”单元格，我需要对其进行更新以用于我们自己的外部跟踪目的。

这一切都不是一夜之间发生的。 我希望它能有所帮助。

Answer 5

我用它来提取 SharePoint 属性（基于 Martin 的答案）：

Public Function DocumentProperty(Property As String)
    Application.Volatile
    On Error GoTo NoDocumentPropertyDefined

    DocumentProperty = ActiveWorkbook.ContentTypeProperties(Property).Value
Exit Function

NoDocumentPropertyDefined:
    DocumentProperty = CVErr(xlErrValue)
End Function

Answer 6

不幸的是，我相信您需要使用用户定义的函数。 将新的 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 的调用强制单元格在每次重新计算时更新，确保它将获取文档属性中的更改。