VBA代码将数据提取到标签属性中

Question

第一次在这里提问

我正在尝试将工作簿中工作表的名称拉入工作簿的tag属性。有什么建议怎么做？编译列表并不难，但是这样做并创建带有逗号的字符串然后可以将其放入tag属性是我的问题。谢谢。

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

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