根据文件名查找地址并形成超级链接

ycpjliao

• Private Sub Worksheet_Change(ByVal Target As Range)
•     If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
•     Hyperlinks.Add Anchor:=Target, Address:=Target.Value & ".xlsx"
• End Sub
  

查找产提取地址v1.rar (44.29 KB, 下载次数: 3)

2014-7-2 09:02 上传

点击文件名下载附件

代码存在问题: 1、不管是否有此文件,都形成一个链接（即无文件时为无效链接，要求找不到文件时不要形成链接或加提示无此文件）.   2、工作簿共享后代码失效.


请高手给完善一下代码，谢谢！！

a68508122

test01.rar (44.54 KB, 下载次数: 11)

2014-7-2 09:33 上传

点击文件名下载附件

请笑纳
共享的时候，请共享整个文件夹

ycpjliao

谢谢，可用，但如果文件中有 *.xls,*.xlsx 这些格式文件，如可增加其识别。

ycpjliao

还是出现工作簿共享后失效。

ycpjliao

共享后运行出现如下的错误！

ksks114

学习了，好像还不够完善