Question

我有一本有9张纸的工作簿，其中每张纸包含500行，约120列，并引用了约25个其他工作簿。

工作簿已大规模移动目录，因此所有这些工作簿的路径已更改为：

S：\ Path \ Path \ Path \ Workbook.xlsx到 S：\ Path \ Path \ PathNew \ Workbook.xlsx

我正在尝试编写一个宏，该宏将快速更改所有路径，因为使用“更新链接”或“查找并替换所有文本”会使Excel缓慢爬行，并且似乎永远都不想完成。

我尝试在线查找并发现了一些不错的代码，但是我认为它不起作用，因为工作簿链接在技术上并不是超链接。

Dim lnkH As WorksheetDataConnection
Dim sOld As String
Dim sNew As String

sOld = "\FY20\"
sNew = "\FY20\STX FC @ April Update\"

For Each lnkH In ActiveSheet.Hyperlinks
    lnkH.Address = Replace(lnkH.Address, sOld, sNew)
    lnkH.TextToDisplay = Replace(lnkH.TextToDisplay, sOld, sNew)
Next

我的VBA技能不是很出色-我通常会在网上找到需要的东西，然后针对自己的目的进行调整。是否有上述版本的等效版本，可以以数小时不崩溃的方式更新数千个工作簿链接？

更新部分'000s工作簿链接的问题

0 个答案: