作者：绿色风
分类：
时间：2022-08-17
浏览：197
楼主
99253415 |
Q:超链接的一个文件夹改了名字，所有的超链接都无效了。请教如果批量更改超链接路径啊？谢谢！
因为超链接的路径是绝对路径，附件中 CCS通函20090224的文件夹现在已经改名为CCS通函，现在我不知道这些超链接中的路径中怎么用现在的“CCS通函”替代“CCS通函20090224", 这样的文件链接有上千个呢。
A:- Dim oldfile As String
- Dim Newfile As String
- Sub RemoveHyperLinks()
- oldfile = "CCS通函20090224" '需要替换的旧文件名
- Newfile = "CCS通函" '替换成的新文件名
- For Each hlink In Cells.Hyperlinks
- hlink.Address = Replace(hlink.Address, oldfile, Newfile)
- Next
- End Sub
操作方法：
1. 打开需要处理的Excel表格
2. Alt + F11打开VB 编辑器
3. 双击左边的 “Sheet1”或相应的表名
4. 在右边编辑框输入上面的代码，注意相应文件名修改 oldfile 和 newfile
5. 关闭VB 编辑器，回到Excel主界面
6. Alt + F8调出宏对话框
7. 选择“RemoveHyperLinks”然后点击“运行”按钮
 Book2.rar
|
2楼
bcb1 |
学习一下 |
3楼
君柳 |
03用脚本改也很方便，可惜新版不支持 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一