excle设置的超链接中指定了某个盘符时，当文件拷贝到其他电脑上时由于路径不一致导致无法打开文件，这时我们需要统一替换原有路径，手动替换当然是崩溃的，故需要想方法一次

性自动替换，以下提供VB程序替换方式，简单快捷有效。

具体步奏如下：

1. 打开需要处理的Excel表格 
2. Alt + F11打开VB 编辑器  
3. 双击左边的 “Sheet1”或相应的表名  
4. 在右边编辑框输入下面的代码，注意相应文件名修改 oldfile 和  newfile，其中原来超链接路径写在“旧文件路径”，新的超链接路径写在“新文件路径”。

1. 

打开需要处理的

Excel

表格

2. Alt + F11

打开

VB 

编辑器

3. 

双击左边的

“Sheet1”

或相应的表名

4. 

在右边编辑框输入下面的代码，

注意相应文件名修改

oldfile 

和

  newfile

，

其中原来超链

接路径写在“旧文件路径”，新的超链接路径写在“新文件路径”。

代码：

Dim oldfile As String
Dim Newfile As String
Sub RemoveHyperLinks()
oldfile = "\\192.168.3.4\cmmi文档"
Newfile = "."
    For Each hlink In Cells.Hyperlinks
        hlink.Address = Replace(hlink.Address, oldfile, Newfile)
    Next
End Sub

5. 

关闭

VB 

编辑器，回到

Excel

主界面

6. Alt + F8

调出宏对话框

7. 

选择

“RemoveHyperLinks”

然后点击

“

运行

”

按钮

请您注意

·自觉遵守：爱国、守法、自律、真实、文明的原则
·尊重网上道德，遵守《全国人大常委会关于维护互联网安全的决定》及中华人民共和国其他各项有关法律法规
·严禁发表危害国家安全，破坏民族团结、国家宗教政策和社会稳定，含侮辱、诽谤、教唆、淫秽等内容的作品
·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
·您在NoteShare上发表的作品，NoteShare有权在网站内保留、转载、引用或者删除
·参与本评论即表明您已经阅读并接受上述条款