1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Для того, чтобы с помощью VBA, получить или изменить путь/адрес, который Excel использует для создания относительных гиперссылок (и который можно увидеть/изменить вручную, если в меню Файл выбрать команду Свойства, затем выделить закладку Документ и работать с текстовым полем База гиперссылки), достаточно применить следующий синтаксис, разумеется, указав нужную рабочую книгу.iPath = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base")If iPath <> "" Then MsgBox "База гиперссылки: " & iPath, ,""Else MsgBox "На нет, и суда нет", ,""End IfОбратите внимание на то, что в случае отсутствия базы гиперссылки, гиперссылки, типа, file:// могут создаваться относительно папки, в которой находится текущая книга (естественно, если она сохранена)iPath = "C:\Мои документы"ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") = iPathcode: #vbaiAddress = "http://www.samplecode.com"ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") = iAddress |