Привет!
Нашёл здесь более-менее подходящий макрос, немного подредактровал под свои нужды. Но макрос открывает папку, где лежит данная книга 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 |