VBA 将数据拉入标签的代码 属性

Question

第一次在这里提问

我正在尝试将工作簿中的工作表名称拉入工作簿的标记 属性 中。任何建议如何做到这一点？编译列表并不难，但这样做并创建一个带逗号的字符串，然后可以将其放入标记 属性 中是我的问题。谢谢。

Answer 1

试试这个：

Public Sub SaveSheetNames()

    Dim wks As Worksheet
    Dim strSheets As String

    ' Loop through sheets, building list of names
    For Each wks In ActiveWorkbook.Worksheets
        strSheets = strSheets & wks.Name & ", "
    Next

    ' Remove trailing comma
    strSheets = Left(strSheets, Len(strSheets) - 2)

    ' Set tag property (Keywords)
    ActiveWorkbook.BuiltinDocumentProperties("Keywords") = strSheets

End Sub

这应该允许您设置标签 属性，如文件 -> 属性中所示。