Привет!
Нашёл здесь более-менее подходящий макрос, немного подредактровал под свои нужды. Но макрос открывает папку, где лежит данная книга Excel, а надо совсем другую папку. Операция регулярная, поэтому нужно автоматизировать.
Надо, чтобы в выделенную ячейку вставлялась гиперссылка на файл из нужной папки. Файл из этой папки пользователь выбирает сам.
Нашёл здесь более-менее подходящий макрос, немного подредактровал под свои нужды. Но макрос открывает папку, где лежит данная книга Excel, а надо совсем другую папку. Операция регулярная, поэтому нужно автоматизировать.
Надо, чтобы в выделенную ячейку вставлялась гиперссылка на файл из нужной папки. Файл из этой папки пользователь выбирает сам.
| Код |
|---|
Sub Link()
Dim s
s = Application.GetOpenFilename("Files (*.msg*), *.msg*")
If s <> False Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=s, _
TextToDisplay:="x"
End If
End Sub |
