Excel中2007版进行批量修改超链接的操作技巧
相关话题
在日常工作中,会遇到修改了路径,然后Excel表中链接的文件就打不开了。一个个修改超链接费时费力,今天,小编就教大家在Excel中2007版进行批量修改超链接的操作技巧。
Excel中2007版进行批量修改超链接的操作步骤
如图所示,新建一个Excel,输入数据;
↓
选择“插入”选项卡,点击“链接”选项的“超链接”插入链接文档。


当仅我们移动文件或是插入文档的位置时,会弹出“无法打开指定的文件”的提示框,这时就需要修改链接地址。

选择“开发工具”选项卡,点击“代码”选项的“宏安全性”;
↓
弹出“信任中心”窗口;
↓
在“信任中心”窗口中,选择“宏设置”选项卡→点击“宏设置”选项中的“启用所有宏”单选项→点击“确定”。


回到Excel中,选择“开发工具”选项卡,点击“控件”选项的“查看代码”;
↓
弹出Excel的VB窗口“Microsoft Visual Basic - 新建 Microsoft Office Excel 工作表”;
↓
在VB窗口中,选择需修改超链接的Sheet页;
↓
在Sheet1(代码)窗口中,输入下列代码:
Sub ChangeHyperlink()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "新建文件夹", "F:ZHOUMIN操 作文档Excel新建文件夹")
Next
End Sub
说明:如图所示,代码中,第一个引号的内容为超链接的原始路径,第二个引号的内容为现在的路径。
↓
关闭VB窗口。


回到Excel中,选择“开发工具”选项卡,点击“代码”选项的“宏”;
↓
弹出“宏”设置窗口;
↓
在宏名中输入“Sheet名.方法名”,如“Sheet1.ChangeHyperlink”;
↓
点击“执行”。


关闭“宏”设置窗口,回到Excel中,随意打开一个超链接,能成功打开链接文档,则超链接修改成功。

因为设置了宏,所有在保存或关闭Excel的时候,会弹出隐私问题警告提示框,如图所示;
↓
为了让提示框不在弹出,可以进入“开发工具”选项卡,点击“代码”选项的“宏”,选中宏名,点击删除即可。
↓
关闭Excel,重新打开,就不会再弹出提示框了。


