根据汇总表中关键子用VBA添加链接

学电子表格

老师们，请教哈这种怎么弄？先谢谢大家！
   事情是这样的，我这里有一个汇总表，然后有对应的文件。因为这个汇总表是上面发下来的，不能改变格式。原本他是把相关设备文件插入，作为附件，我觉得这样处理不方便，我又不可能人工去粘贴复制。于是我想到用代码处理。
我处理的思路是:
在电子表格里面处理好数据后打开他提供的模板，把数据粘贴到对应的工作表里面，然后在他给的模板里面写一段代码设置为该工作簿的open事件或提示运行就链接上，一旦在查看的过程中需要看某设备的详细信息，那么点击A列该设备的名字，那么在thisworkbook.path 下对应的文件就打开方便查看
我这个一共有100来个工作簿，不可能一个个手动添加，因为我更新的时候不可能再去手动更新，怎么通过代码实现 ？

shiruiqiang

可以把各工作簿汇总到一个工作簿的各工作表中，此工作簿的第一页创建超链接

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.5
   
2.     Application.ScreenUpdating = False
   
3.     Set ws = ThisWorkbook
   
4.     p = ws.Path & ""
   
5.     For Each sht In ws.Sheets
   
6.         With sht
   
7.             arr = .UsedRange
   
8.             For i = 3 To UBound(arr) Step 5
   
9.                 f = p & arr(i, 1) & ".xls"
   
10.                 .Hyperlinks.Add anchor:=.Cells(i, 1), Address:=f
    
11.             Next
    
12.         End With
    
13.     Next
    
14.     Application.ScreenUpdating = True
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

学电子表格

ykcbf1100 发表于 2024-2-5 20:01
附件供参考。。。

谢谢老师，我看看，谢谢 。

学电子表格

ykcbf1100 发表于 2024-2-5 20:01
附件供参考。。。

谢谢老师，我对VBA了解不多，正是我要的效果。

学电子表格

shiruiqiang 发表于 2024-2-5 19:46
可以把各工作簿汇总到一个工作簿的各工作表中，此工作簿的第一页创建超链接

谢谢，因为这个是一个单位下的模板，不敢动他的格式。免得挨批评 。