Замена ссылок в книге

[HTR]

Доброго времени суток, уважаемые форумчане!
Есть 2 файла Результат и Исходные данные. На Листе1 файла Результат есть ссылки, записанные в таком виде, например:='{File_name}data'!$B$18. Лист data есть в файле Исходные данные. Необходимо, чтобы процедура заменяла именно ссылку '{File_name}data' на ссылку на файл, выбранный пользователем и не трогала другие ссылки (внутренние связи) в книге Результат. Как можно поправить следующий код?

Private Sub new_change_data()

alinks = ActiveWorkbook.LinkSources(xlExcelL inks)
FileOldLink = alinks(1)
FileToLink = Application.GetOpenFilename("Exl files(*.xls),*.xls")
If FileToLink = False Then
Exit Sub
End If
ActiveWorkbook.ChangeLink FileOldLink, FileToLink, xlExcelLinks

End Sub

Заранее спасибо!

[was3110]

Можно поработать со строкой...

Sub new_change_data()
Dim lstr As String, repl As String, p As Integer
lstr = ActiveCell.Formula

alinks = Application.ActiveWorkbook.LinkSour ces(xlExcelLinks)
FileOldLink = alinks(1)
FileToLink = Application.GetOpenFilename("Exl files(*.xls),*.xls")
If FileToLink = False Then
Exit Sub
End If
p = LastSl(FileToLink)
repl = Left(FileToLink, p) & "[" & Mid(FileToLink, p + 1) & "]"
ActiveCell = Replace(lstr, "{File_name}", repl)
End Sub

Private Function LastSl(ByVal astr As String) As Integer
Dim i As Integer, p As Integer
p = 3
Do While p
i = p
p = InStr(p + 1, astr, "\")
Loop
LastSl = i
End Function

[HTR]

Спасибо интересное решение. Только проблема в том, что это в примере только 3 ссылки, а в реальности их очень много по всем листам и соответственно такой способ займет много времени если перебирать все листы во всей книге.

[was3110]

Сообщение от HTR

... , чтобы процедура заменяла именно ссылку '{File_name}data' на ссылку на файл, выбранный пользователем и не трогала другие ссылки

А если надо все, так ваш вариант все и заменял.

[HTR]

Проблема в том, что код как-то нестабильно работает на разных файлах, причем на одном и том же компьютере. В одном файле меняет '{File_name}data без проблем, в другом заодно меняет на другом листе внутреннюю ссылку, в третьем, в частности в приложенном примере заменяет ссылки лишь со второго нажатия Ок окна Select sheet. Сломала голову уже