Excel保存前需填写的自定义属性名称及VBA访问方法咨询

属性名称判断 #

你提到的保存前需填写的内容，核心对应的是自定义文档属性（Custom Document Properties）。如果是企业强制要求的填写项，大概率是IT通过Office组策略或自定义插件在CustomDocumentProperties集合中添加的专属属性项，而非Excel原生默认功能。

VBA访问代码片段 #

读取指定自定义属性 #

Sub GetCustomPropertyValue()
    Dim targetPropName As String
    targetPropName = "替换为你的属性名称" ' 改成实际的属性名
    
    Dim prop As DocumentProperty
    For Each prop In ThisWorkbook.CustomDocumentProperties
        If prop.Name = targetPropName Then
            MsgBox "属性值：" & prop.Value
            Exit Sub
        End If
    Next prop
    
    MsgBox "未找到目标自定义属性"
End Sub

设置指定自定义属性 #

Sub SetCustomPropertyValue()
    Dim targetPropName As String
    Dim targetPropValue As String
    targetPropName = "替换为你的属性名称"
    targetPropValue = "替换为要设置的值"
    
    Dim propExists As Boolean
    propExists = False
    
    ' 检查属性是否存在，存在则更新
    For Each prop In ThisWorkbook.CustomDocumentProperties
        If prop.Name = targetPropName Then
            prop.Value = targetPropValue
            propExists = True
            Exit Sub
        End If
    Next prop
    
    ' 属性不存在则新建
    If Not propExists Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:=targetPropName, _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:=targetPropValue
    End If
    
    MsgBox "属性设置完成"
End Sub

其他工具的访问方向 #

• Interop：和VBA逻辑一致，通过Workbook.CustomDocumentProperties集合操作
• EPPlus：使用package.Workbook.Properties.CustomProperties读写
• ClosedXML：通过workbook.CustomProperties集合处理
• DevExpress：调用SpreadsheetControl.Document.CustomProperties接口操作

提示：如果该属性是企业定制的特殊字段，建议联系IT部门确认准确的属性名称，避免查找偏差。

内容的提问来源于stack exchange，提问作者Hambone