'批量创建指定文件夹中所有子文件夹超链接。
Sub linkAll()
Dim fs, f, f1, fc, i
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ThisWorkbook.Path)
Set fc = f.SubFolders
i = 0
For Each f1 In fc
i = i + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=f1.Path, _
TextToDisplay:=f1.Name
Next
MsgBox "处理完毕!"
End Sub
excel批量创建指定文件夹中所有子文件夹超链接
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 17110 阅读
-
Bootstrap4显示和隐藏元素 5074 阅读
-
mysql批量去除重复记录 4165 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 4128 阅读
-
-
loadjs - javascript动态载入css和js文件 2090 阅读
-
BT宝塔中安装nodejs 2025 阅读
-
github无法加载或不显示图片问题 1909 阅读