Как получить или изменить базовый адрес гиперссылки текущей рабочей книги?
Категория: Basic
2012-08-21 15:04:28
Для того, чтобы с помощью VBA, получить или изменить путь/адрес, который Excel использует для создания относительных гиперссылок (и который можно увидеть/изменить вручную, если в меню Файл выбрать команду Свойства, затем выделить закладку Документ и работать с текстовым полем База гиперссылки), достаточно применить следующий синтаксис, разумеется, указав нужную рабочую книгу.
code: #vba
iPath = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") If iPath <> "" Then MsgBox "База гиперссылки: " & iPath, ,"" Else MsgBox "На нет, и суда нет", ,"" End If
Обратите внимание на то, что в случае отсутствия базы гиперссылки, гиперссылки, типа, file:// могут создаваться относительно папки, в которой находится текущая книга (естественно, если она сохранена)
code: #vba
iPath = "C:\Мои документы" ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") = iPath
code: #vba
iAddress = "http://www.samplecode.com" ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") = iAddress
Поделиться: