Access VBA无法识别Office.LabelInfo，如何设置Excel文档安全标签？

问题原因 #

Office.LabelInfo属于Office 365敏感度标签的对象模型，该模型仅在Excel、Word等支持敏感度标签的Office应用中完整暴露，Access VBA的引用列表中没有对应的库，因此无法直接声明该对象。但可以通过操作Excel对象模型间接实现编程设置标签，不需要依赖模板。

解决方案步骤 #

1. 添加Excel对象库引用
   在Access VBA编辑器中，点击工具→引用，勾选Microsoft Excel xx.x Object Library（xx.x对应你的Office版本）。

2. 通过Excel对象模型动态设置标签
   利用Excel工作簿的Label属性操作敏感度标签，使用后期绑定（Object类型）避免引用Office.LabelInfo的问题，代码示例如下：

Sub SetExcelSensitivityLabel()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim targetLabel As Object
    Dim labelDisplayName As String
    
    ' 初始化Excel应用
    Set xlApp = New Excel.Application
    xlApp.Visible = False ' 后台静默操作
    
    ' 创建新工作簿（或打开现有工作簿：Set xlWB = xlApp.Workbooks.Open("路径")）
    Set xlWB = xlApp.Workbooks.Add
    
    ' 检查当前Excel是否支持敏感度标签功能
    If Not xlWB.IsLabelingEnabled Then
        MsgBox "当前Office版本不支持敏感度标签功能，请确保使用Office 365订阅版"
        GoTo Cleanup
    End If
    
    ' 设置目标标签的显示名称（替换为你公司的标签，比如"公开""机密"）
    labelDisplayName = "机密"
    
    ' 获取对应标签对象
    On Error Resume Next
    Set targetLabel = xlWB.Label.GetLabelByDisplayName(labelDisplayName)
    On Error GoTo 0
    
    If targetLabel Is Nothing Then
        MsgBox "未找到指定名称的敏感度标签，请检查名称是否正确"
        GoTo Cleanup
    End If
    
    ' 应用标签到工作簿
    xlWB.Label.SetLabel targetLabel, , True
    
    ' 这里添加你的数据填充逻辑...
    
    ' 保存工作簿
    xlWB.SaveAs "C:\Your\Save\Path\File.xlsx"
    
Cleanup:
    ' 清理资源
    If Not xlWB Is Nothing Then xlWB.Close SaveChanges:=False
    If Not xlApp Is Nothing Then xlApp.Quit
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

关键说明 #

• 该方法依赖Office 365订阅版，且需确保用户账号有权限使用对应的敏感度标签。
• 无需在Access中添加额外的Office标签库引用，通过Excel对象模型间接调用敏感度标签接口，避免了Access无法识别Office.LabelInfo的问题。
• 支持动态设置不同标签，比模板继承的方式更灵活，可根据数据内容动态切换标签类型。

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