'示例With Worksheets(1).Hyperlinks.Add Anchor:=.Range("a5"), _Address:="http://aSmallRocket.com", _ScreenTip:="aSmallRocket", _TextToDisplay:="aSmallRocket"End With
Sub btn_RocketShtContents()'// 适用于一键生成表格目录'// 2024-12-14 By Sdx孙大侠//公众号: Excel小火箭Dim Sht As Worksheet, Shtfile As String, rng As Range, s As WorksheetDim i As Long, filePath As StringDim arrFilesShtfile = "rocket_目录"If SheetExists(Shtfile) = False Then Worksheets.Add(Before:=Worksheets(1)).Name = ShtfileSet Sht = Worksheets(Shtfile)With ShtIf Len(.Range("A1")) > 0 ThenIf MsgBox("文件目录已生成，是否重新获取？", vbOKCancel + vbInformation, rokcetInfo) = vbCancel ThenExit SubEnd IfEnd If.Cells.Clear.Range("A1:C1").Value = Array("序号", "文件名称", "打开链接")For Each s In WorksheetsIf s.Name <> Sht.Name ThenWith .Range("A" & getLastRow(Sht)).Offset(1, 0).Value = getLastRow(Sht).Offset(1, 1).Value = s.Name.Hyperlinks.Add Anchor:=.Offset(1, 2), Address:="'" & s.Name & "!A1", ScreenTip:="aSmallRocket", TextToDisplay:="点我打开"End WithEnd IfNextEnd WithEnd Sub
▲ 回复"小火箭"，获取源代码
希望本期文章对你有所启发，源码已同步上传，回复关键字"VBA"获取下载地址。
推荐阅读
VBA实例：获取文件列表的两种方法
