根据A列合同名称与文件夹“文件”里名称一致自动设置超链接文件夹“文件”里的文档

xiaoa625

根据A列合同名称与文件夹（存储位置会变化）“文件”里名称一致自动设置超链接文件夹“文件”里的文档。叩谢！！

xiaoa625

文件存储位置会变化

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.9
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     p = ThisWorkbook.Path & "\文件"
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
9.             fn = fso.GetBaseName(f)
   
10.             d(fn) = f
    
11.         End If
    
12.     Next f
    
13.     With sh
    
14.         r = .Cells(Rows.Count, 1).End(3).Row
    
15.         For i = 2 To r
    
16.             s = CStr(.Cells(i, 1))
    
17.             If d.exists(s) Then
    
18.                 .Cells(i, 2) = d(s)
    
19.                 .Hyperlinks.Add Anchor:=.Cells(i, 1), Address:=d(s)
    
20.             End If
    
21.         Next
    
22.     End With
    
23.     Application.ScreenUpdating = True
    
24. End Sub
    

复制代码

xiaoa625

谢谢。可以在做成，已经有链接就不需要在重复做，只做没有做链接的

xiaoa625

ykcbf1100 发表于 2024-5-9 15:52
参与一下。。。

谢谢。可以在做成，已经有链接就不需要在重复做，只做没有做链接的