VBA 将数据拉入标签的代码 属性
VBA Code to pull data into Tag Property
第一次在这里提问
我正在尝试将工作簿中的工作表名称拉入工作簿的标记 属性 中。任何建议如何做到这一点?编译列表并不难,但这样做并创建一个带逗号的字符串,然后可以将其放入标记 属性 中是我的问题。谢谢。
试试这个:
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
这应该允许您设置标签 属性,如文件 -> 属性中所示。
第一次在这里提问
我正在尝试将工作簿中的工作表名称拉入工作簿的标记 属性 中。任何建议如何做到这一点?编译列表并不难,但这样做并创建一个带逗号的字符串,然后可以将其放入标记 属性 中是我的问题。谢谢。
试试这个:
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
这应该允许您设置标签 属性,如文件 -> 属性中所示。