如何比量建立超链接到一个文件夹

斗嘴角角

要求：1表格筛选一部分

图一表格

  2建超链接到另一个文件夹里的编号对应的图片（不过不是全部只是部分 还有其他分队的图片）

图二对应编号的图

听说这需要用到宏是么 刚刚接触表格

cqlpjxx

Sub 建立链接()
   On Error Resume Next
    Dim xuHao, m, s
    For m = 2 To Range("A65536").End(3).Row
    xuHao = CStr(Cells(m, 1))
     s = Dir(ThisWorkbook.Path & "\" & xuHao & "*")
    Cells(m, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s
   Next
    End Sub
电子表格和图片放在一个文件夹下

斗嘴角角

哦~~ 我试试看可行否

TomingTang

附近您？上传附近

斗嘴角角

TomingTang 发表于 2015-7-1 11:48
附近您？上传附近

是附件么 因为太大 而且每天都要制作所以我想知道方法