万能的EH啊，我又来求助了。超链接地址随文件位置改变，求批量修改超链接。

pmhbj · 发表于 2012-5-31 07:53

各位老师！

xls文件，B列全是超链接，奇怪的是，这个xls文件放在不同的位置，超链接地址会随着改变。
举个例子，xls文件放在F盘根目录下，超链接显示为file:///F:\aaa
如果把xls文件放在F:\123目录下，则超链接显示为file:///F:\123\aaa（注：\aaa的路径不变，只是红色的路径会变）
原因我知道：当初编辑xls文件时，把xls文件与“文件夹aaa”都放在同一个路径下，超链接又指向了“aaa文件夹”，才会出现这样的情况。

呵呵，感谢您看我啰嗦了一大堆，我想求助两点。
一，我想把这个超链接地址固定下来，不要随xls文件位置的改变而改变。
二，想求一个公式，可以批量修改红色的路径。

再次感谢老师，请看附件。

目录.rar (179.32 KB, 下载次数: 78)

wj2368 · 发表于 2012-5-31 08:59

Sub 超连接()
Dim I As Integer
tmp = InputBox("修改的路径，格式如E:\123", "E:\123")
For I = 2 To Range("b56565").End(3).Row
s = Cells(I, 2).Hyperlinks(1).Address
Range("b" & I).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=tmp & s
Next I
End Sub

复制代码

pmhbj · 发表于 2012-6-1 00:33

wj2368 发表于 2012-5-31 08:59

哈哈，神奇的wj2368，万能的EH啊，短短几行代码解决大问题了，感谢感谢！！
能不能请老师在给写个C列的代码啊，和B列的要求一样，我尝试着把Range("b" & I).Select这一句里面的b改成c，但是不行，还是请老师帮忙吧，我是小白，呵呵，谢谢了。

wj2368 · 发表于 2012-6-1 08:06

pmhbj 发表于 2012-6-1 00:33
哈哈，神奇的wj2368，万能的EH啊，短短几行代码解决大问题了，感谢感谢！！
能不能请老师在给写个C列的代 ...

改:

Sub 超连接()
Dim I As Integer
tmp = InputBox("修改的路径，格式如E:\123", "E:\123")
For I = 2 To Range("b56565").End(3).Row
s = Cells(I, 3).Hyperlinks(1).Address
Range("c" & I).MergeArea.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=tmp & s
Next I
End Sub

复制代码

pmhbj · 发表于 2012-6-1 10:18

wj2368 发表于 2012-6-1 08:06
改:

哦，好像有点问题，c列代码执行后，路径变成了E:\123\E:\123\E:\123\......重复大概20多遍。

wj2368 · 发表于 2012-6-1 16:58

pmhbj 发表于 2012-6-1 10:18
哦，好像有点问题，c列代码执行后，路径变成了E:\123\E:\123\E:\123\......重复大概20多遍。

.....................

pmhbj · 发表于 2012-6-2 03:30

wj2368 发表于 2012-6-1 16:58
.....................

哈哈，搞定，多谢wj2368老师，不愧为EH能手，{:soso_e142:}

panshuying1973 · 发表于 2023-3-19 14:53

wj2368 发表于 2012-6-1 16:58
.....................

被这个问题困扰了好长时间，学习了，感谢老师

SCWYZJ · 发表于 2023-6-12 14:18

wj2368 发表于 2012-5-31 08:59

老师，能否帮忙看看这怎么写代码https://club.excelhome.net/forum ... ;page=1#pid11271979
非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 万能的EH啊，我又来求助了。超链接地址随文件位置改变，求批量修改超链接。