Редактировать ссылки на книги в формуле с помощью макроса VBA

Question

У меня есть шаблон книги с некоторыми формулами в ячейках.Эта формула ссылается на некоторые книги, например = '\ path \ DATA [wsName.xlsm] Discription'! $ E $ 13

Я хочу изменить эту ссылку "\ path \ DATA [wsName.xlsm]" на другуюссылка на сайт.Но это не работает.

For Each wb In Application.Workbooks 'Getting path from another opened workbook
    If wb.name Like "1.0*" Then
        newAddress = wb.path & "\[" & wb.name & "]" 'GET NEW LINK
    End If
Next

Dim ttt As String
ttt = "\\path\DATA\[wsName.xlsm]"
With ThisWorkbook.Worksheets(1).UsedRange
    .Replace What:=ttt, _
    Replacement:=newAddress, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
End With

Этот код работает нормально:

With ThisWorkbook.Worksheets(1).UsedRange
    .Replace What:=ttt, _
    Replacement:="TEST STRING", _  'Change to text, instead of newAddress
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
End With

Что не так с моим новым адресом?Я думаю, что это так работает, потому что книга, имя которой я хочу получить, уже открыта ... Спасибо за советы.

Answer 1

newAddress = "[" & wb.name & "]" 

Это помогло мне.