'批量创建指定文件夹中所有子文件夹超链接。
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主题 2020-04-15
-
OneNice Pro简洁且强大的WORDPRESS主题 2020-07-15
-
loadjs - javascript动态载入css和js文件 2020-04-14
-
AutoText - 好用的AutoCad插件 2020-04-25
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 6979 阅读
-
Bootstrap4显示和隐藏元素 2594 阅读
-
mysql批量去除重复记录 1993 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 1215 阅读
-
-
BT宝塔中安装nodejs 925 阅读
-
github无法加载或不显示图片问题 903 阅读
-
Javascipt自定义哈希表 889 阅读