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”

然后点击

运行

按钮

 

5. 关闭VB 编辑器,回到Excel主界面 
6. Alt + F8调出宏对话框  
7. 选择“RemoveHyperLinks”然后点击“运行”按钮 
作者:星辰 时间:2017-12-23 浏览 586评论 0 赞 0砸 0 标签: 工具
评论
还可以再输入500个字

请您注意

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