求解Excel VBA 超链接中如何在访问地址时并选中指定文件夹
1条回答
- weixin_41961050 2018-04-12 07:34关注
代码实现重新构建所有链接,如果要单独刷新某文件夹的文件链接,可仿效代码(可不用单独刷新,如有增删,重新全部构建)。
Sub test()
Dim fso, fp, ar, ar1, subf, f, n%, m%, i%, j%, c As Range
Sheets("6月").Activate
ActiveSheet.UsedRange.Offset(2) = ""
Set fso = CreateObject("scripting.filesystemobject")
Set fp = fso.getfolder(ThisWorkbook.Path).subfolders
ReDim ar(1 To fp.Count)
For Each subf In fp
n = n + 1
If subf.Files.Count <> 0 Then
ReDim ar1(1 To subf.Files.Count)
m = 0
For Each f In subf.Files
m = m + 1
ar1(m) = f & "|" & fso.getbasename(subf) & "|" & fso.getbasename(f)
Next
ar(n) = ar1
End If
Next
For i = 1 To UBound(ar)
If IsArray(ar(i)) Then
Set c = Rows(1).Find(Split(ar(i)(1), "|")(1))
If Not c Is Nothing Then
For j = 1 To UBound(ar(i))
With c.End(xlDown)
.Offset(1).Value = Split(ar(i)(j), "|")(2)
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), Address:=Split(ar(i)(j), "|")(0)
End With
Next
End If
End If
Next
Set fso = Nothing
End Sub本回答被题主选为最佳回答 , 对您是否有帮助呢?解决评论 打赏 举报无用 2
悬赏问题
- ¥15 C#读写EXCEL文件,不同编译
- ¥15 如何提取csv文件中需要的列,将其整合为一篇完整文档,并进行jieba分词(语言-python)
- ¥15 MapReduce结果输出到HBase,一直连接不上MySQL
- ¥15 扩散模型sd.webui使用时报错“Nonetype”
- ¥15 stm32流水灯+呼吸灯+外部中断按键
- ¥15 将二维数组,按照假设的规定,如0/1/0 == "4",把对应列位置写成一个字符并打印输出该字符
- ¥15 NX MCD仿真与博途通讯不了啥情况
- ¥15 win11家庭中文版安装docker遇到Hyper-V启用失败解决办法整理
- ¥15 gradio的web端页面格式不对的问题
- ¥15 求大家看看Nonce如何配置