‘列出表格的目录,并添加超级链接
Sub cb_test()
Dim ll_SheetCount
Dim ls_SheetName
Dim ll_Item
Dim ls_SubAddress
Dim ls_ryxm '人员姓名 B2
ll_SheetCount = Worksheets.Count
For ll_Item = 2 To ll_SheetCount
ls_SheetName = Sheets(ll_Item).Name
ls_ryxm = Sheets(ll_Item).Cells(2, 2).Value '人员姓名
If InStr(1, ls_SheetName, "(") > 0 Then
ls_SubAddress = "'" + ls_SheetName + "'!A1" '带空格需要引号,特殊处理
Else
ls_SubAddress = ls_SheetName + "!A1"
End If
Sheets(1).Cells(ll_Item, 5).Value = ls_ryxm
Sheets(1).Cells(ll_Item, 4).Value = ls_SheetName
Sheets(1).Cells(ll_Item, 4).Select
Sheets(1).Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:=ls_SubAddress, TextToDisplay:=ls_SheetName
Next
End Sub