VBA如何修改其他工作簿的超链接文本

clotus · 发表于 2022-12-6 23:12

本帖最后由 clotus 于 2022-12-7 14:41 编辑

请教各位老师：
运行“文件夹内文本替换.xlsm”文件后，我想依次打开文件夹/子文件夹中的所有excel文件，并替换超链接中的文本“A公司”为“B公司”，请问要怎么改代码？
AA表、BB表、CC表中，超链接的单元格不固定。
如果把修改超链接的代码分别拷贝到AA表、BB表和CC表中，则可以正常修改。
Sub ChangeHyperlink()

For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "A公司", "B公司") '更改超链接
Next
End Sub

谢谢各位老师。

文本替换.zip (54.92 KB, 下载次数: 3)

3190496160 · 发表于 2022-12-7 08:03

试试看看
For Each c In .Worksheets(1).Hyperlinks

		自动登录	找回密码
密码			免费注册

[已解决] VBA如何修改其他工作簿的超链接文本

评分