超链接（用VBA生成sheet超链接目录、生成文件夹超链接目录） |
|
作者：
来源：原创
|
当一个Excel表格中的sheet比较多的时候，通过标签点击文件，总会觉得麻烦了一些，那今天使用vba来生成一个sheet表的目录，并带上超链接。
代码如下：
Sub 生成目录()
Dim wsht As Worksheet, k%, wshtname$
Columns(1).ClearContents '清空A列数据,这样就可以随着工作表的变化，生成不同的工作表目录
Range("a1") = "超链接目录" '第一个单元格写入字符串
k = 1 '赋予参数初值
For Each wsht In Worksheets '找到当前工作簿的每个工作表
wshtname = wsht.Name
If wshtname <> ActiveSheet.Name Then
k = k + 1
ActiveSheet.Hyperlinks.Add anchor:=Cells(k, 1), Address:="", SubAddress:="'" & wshtname & "'!a1", TextToDisplay:=wshtname
End If
Next
End Sub
|
办公过程中，除了某个Excel表格中的sheet比较多以外，很多个excel表格也可能需要打开，那如何把某个文件夹下的文件生成目录，并带上超链接。
来看一下vba代码：
Sub hyperlink()
Cells(1, 2) = "目录"
i = 2
path1 = "C:\Users\Administrator\Desktop\8\2023年入库单\" '此处标记的是要生成的文件夹目录地址
Dim dir1 As String
dir1 = Dir(path1)
Do While dir1 <> ""
Cells(i, 2) = dir1 '这一行是生成文件夹下的文件名。删除此行也可以生成超链接
Cells(i, 2).Select
Selection.Hyperlinks.Add anchor:=Selection, Address:=path1 & dir1
dir1 = Dir
i = i + 1
|
最后，来一段gif动画演示，看2段代码的运行效果。
|
|
|
|
