Изменить ссылку на книгу во всех ячейках листа

Question

Мне интересно, есть ли обходной путь с использованием подпрограммы VBA для изменения ссылки во всех ячейках рабочего листа.

Сценарий:

Я скопировал этот рабочий лист «Strut» из другой книги который также содержит идентичный «раздел» рабочего листа

Все ссылки на скопированные листы по-прежнему указывают на исходную книгу, где я хотел бы изменить ее, чтобы ссылаться на «раздел» рабочего листа в самой новой книге. Любезно посоветуйте, можно ли изменить все пораженные клетки с помощью подпрограммы. Спасибо.

Answer 1

Изменить ссылки в листе

• Вставьте новый стандартный модуль в свою книгу (например, Module1).
• Скопируйте следующий код в модуль.
• При необходимости отрегулируйте три муравья const .
• Сохраните книгу.
• Если указанная книга закрыта, вам нужно будет добавить полный путь.
• Наконец, запустите Sub.

Код

Option Explicit

Sub changeReferences()

    Const wsName As String = "Strut"
    Const strOLD As String = "'[LACED STRUT.xlsx]section'"
    Const strNEW As String = "section"

    Dim cel As Range
    For Each cel In ThisWorkbook.Worksheets(wsName).UsedRange.Cells
        cel.Formula = Replace(cel.Formula, strOLD, strNEW)
    Next cel

End Sub