环境:Excel2003,超链接是通过在单元格上右击选择“超链接”而产生的超链接;
注意:这种超链接是无法通过excel的查找功能查找具体的超链接路径的,也就无法用查找替换来批量修改超链接路径了;
下面介绍一种方法:
点击菜单,工具→宏→Microsoft 脚本编辑器,是不是发现从这里可以看到超链接的具体路径呢!
现在好办事了,用查找替换的方法快速修改超链接路径,修改完后,点击菜单,文件→将所选项目存为...→保存为一个html文件,完成后,再用excel打开该html文件,最后重新保存该文件为"microsoft office excel工作簿"文件。
这样就OK了!
也许你会问,为什么不在"Microsoft 脚本编辑器"中直接保存,这个你自己实践一下就知道了
1.如图所示,新建一个Excel,输入数据;
↓
2.选择“插入”选项卡,点击“链接”选项的“超链接”插入链接文档。
3.当仅移动文件或是插入文档的位置时,会弹出“无法打开指定的文件”的提示框,这时就需要修改链接地址。
4.选择“开发工具”选项卡,点击“代码”选项的“宏安全性”;
↓
5.弹出“信任中心”窗口;
↓
6.在“信任中心”窗口中,选择“宏设置”选项卡→点击“宏设置”选项中的“启用所有宏”单选项→点击“确定”。
7.回到Excel中,选择“开发工具”选项卡,点击“控件”选项的“查看代码”;
↓
8.弹出Excel的VB窗口“Microsoft Visual Basic - 新建 Microsoft Office Excel 工作表”;
↓
9.在VB窗口中,选择需修改超链接的Sheet页;
↓
10.在Sheet1(代码)窗口中,输入下列代码:
Sub ChangeHyperlink()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "新建文件夹\", "F:\ZHOUMIN\操 作文档\Excel\新建文件夹\")
Next
End Sub
说明:如图所示,代码中,第一个引号的内容为超链接的原始路径,第二个引号的内容为现在的路径。
↓
关闭VB窗口。
11.回到Excel中,选择“开发工具”选项卡,点击“代码”选项的“宏”;
↓
12.弹出“宏”设置窗口;
↓
13.在宏名中输入“Sheet名.方法名”,如“Sheet1.ChangeHyperlink”;
↓
14.点击“执行”。
15.关闭“宏”设置窗口,回到Excel中,随意打开一个超链接,能成功打开链接文档,则超链接修改成功。
16.因为设置了宏,所有在保存或关闭Excel的时候,会弹出隐私问题警告提示框,如图所示;
↓
17.为了让提示框不在弹出,可以进入“开发工具”选项卡,点击“代码”选项的“宏”,选中宏名,点击删除即可。
↓
18.关闭Excel,重新打开,就不会再弹出提示框了。
直接查找替换不能批量修改,我试过,我也在找答案呢,我看有些人用 HYPERLINK 函数,你也试试看。
EXCEL必备工具箱免费版,可以批量添加或者删除超链接:
没错,替换很简单,
将法律替换为档案馆\法律即可,需要注意的是确保其他地方没有法律关键字