У меня есть рабочая книга с 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 не очень хороши - я обычно нахожу материал, который мне нужен, в Интернете, а затем настраиваю для своегособственные цели.Существует ли эквивалентная версия вышеупомянутого, которая обновит тысячи ссылок на книги таким образом, чтобы мой компьютер не падал часами?