如何在excel表格中批量修改超链接。

Question

我的excel表格中的有许多超链接在 “C：\program files\资料” 文档下，现在要把“C：\program files\资料”移到“E：\资料”中，似乎用什么VBA语言，需要非常详细的操作，谢谢。

Answer 1

首先打开你的excel，单击工具--宏--安全性--选择低。然后保存退出excel。
再次打开你的excel表格，右键单击你的表名--查看代码，然后输入：
Sub aa()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "C:\program files\资料", "E:\资料")
Next
End Sub

关闭VBE，回到Excel，按ALT+F8，弹出宏窗口。选择 你的表名.aa ，点击执行即可。追问

试了啊，为什么没用呢？超链接还是没有变啊，我的是office 2003

Answer 2

'右击工作表标签，查看代码，把下面的代码贴过去，按 F5 运行

Sub mUpdate()
Dim i%, Temp$
For i = 1 To ActiveSheet.Hyperlinks.Count
Temp = Hyperlinks(i).Address
Temp = Replace(Temp, "c:\program files", "e:")
Hyperlinks(i).Address = Temp
Next
End Sub

Answer 3

你的“C：\program files\资料” 文档下，做的超级链接是否有过回车?（下面有没有蓝色横线？）这很重要(关系到成败!)如果没有就可以的改为“E：\资料”中,不管个数有多少，似乎也不需要用什么VBA语言就可以解决的。

Answer 4

选择要替换区域，直接按CTRL+H，搜索：C:\program files\资料
替换成：E:\资料
就行了。