你需要 VBA 。简而言之：

设置标签的代码：

Sub SetYourTags()

    ThisWorkbook.BuiltinDocumentProperties.Item(4) = "00"

End Sub

显示标签的代码 A1 ：

Sub DisplayYourTags()

    ThisWorkbook.ActiveSheet.Range("A1") = ThisWorkbook.BuiltinDocumentProperties.Item(4)

End Sub

是的，你可以把它放入 Workbook_Open() ：

Private Sub Workbook_Open()
        ThisWorkbook.ActiveSheet.Range("A1") = ThisWorkbook.BuiltinDocumentProperties.Item(4)
End Sub

我最初尝试不使用 VBA 来实现这一点。例如，您可以在标题或单元格中引用文件名。我希望您可以对文件属性执行相同的操作。