Путь до файла связи

[agregator]

Здравствуйте уважаемые программисты. Подскажите как макросом определить путь до файла с которым связана книга. Вот не работающий код (iPath = iLink.Path)

Sub Путь_к_файлу()
 iExcelLinks = ThisWorkbook.LinkSources(xlExcelLinks)
 For Each iLink In iExcelLinks
 MsgBox iLink
  iPath = iLink.Path
 MsgBox iPath
 Next
End Sub

[agregator]

Сам разобрался

Sub Путь_к_файлу()
 iExcelLinks = ThisWorkbook.LinkSources(xlExcelLinks)
 For Each iLink In iExcelLinks
 MsgBox iLink
  iPath = Left(iLink, InStrRev(iLink, "\"))
 MsgBox iPath
 Next
End Sub

Напишите пожалуйста если знаете как ещё определить путь до файла с которым связана книга.

[kuklp]

Чуть короче:

Sub Путь_к_файлу()
    l = ThisWorkbook.LinkSources(1)(1)
    MsgBox Left(l, InStrRev(l, "\"))
End Sub

[agregator]

Kuklp, спасибо.