[已解决]链接目录为什么打不开

wyjgni

用VBA做的超链接，程序执行是对的，可是点击图片名称A1单元格时，却显示打不开，是什么原因

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-9 15:02

Sub liang()
    mapth = "d:\2016年春版女单图片\"
    f = Dir(mapth & "*.jpg")
    While f <> ""
        k = k + 1
        Cells(k, 1) = f
        f = Dir
    Wend
    For x = 1 To Range("a65536").End(3).Row
        If Cells(x, 1) <> "" Then ActiveSheet.Hyperlinks.Add anchor:=Cells(x, 1), Address:=mapth & Cells(x, 1)
    Next
End Sub

颜色是修改过的地方，也可写成下面这样。



Sub liang()
    p = "d:\2\"
    f = Dir(p & "*.jpg")
    While f <> ""
        i = i + 1
        Cells(i, 1) = f
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=p & f
        f = Dir
    Wend
End Sub

跳转到最佳答案楼层

zjdh

不发附件怎知缘由？

wyjgni

zjdh 发表于 2016-5-9 13:07
不发附件怎知缘由？

文件内容很大，图片没上传。

爱疯

Sub liang()
    mapth = "d:\2016年春版女单图片\"
    f = Dir(mapth & "*.jpg")
    While f <> ""
        k = k + 1
        Cells(k, 1) = f
        f = Dir
    Wend
    For x = 1 To Range("a65536").End(3).Row
        If Cells(x, 1) <> "" Then ActiveSheet.Hyperlinks.Add anchor:=Cells(x, 1), Address:=mapth & Cells(x, 1)
    Next
End Sub

颜色是修改过的地方，也可写成下面这样。



Sub liang()
    p = "d:\2\"
    f = Dir(p & "*.jpg")
    While f <> ""
        i = i + 1
        Cells(i, 1) = f
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=p & f
        f = Dir
    Wend
End Sub

wyjgni

爱疯 发表于 2016-5-9 15:02
Sub liang()
    mapth = "d:\2016年春版女单图片\"
    f = Dir(mapth & "*.jpg"[/backcolo ...

楼主水平确实很高，还把我的代码进行简化，十分感谢

爱疯

wyjgni 发表于 2016-5-9 16:15
楼主水平确实很高，还把我的代码进行简化，十分感谢

这问题比较常见，主要是前面朋友没看到你后来上传的附件。

所以下次求助时，记得开始就发附件，就会很快收到回复的。

wyjgni

不小心忘记传附件，以后会记住的