Здравствуйте. Есть макрос, с помощью которого можно открывает папку, выбрать файл и создать гиперссылку
А как можно его модернизировать, чтобы можно было выбрать несколько файлов и создать на них гиперссылки?
Код |
---|
Sub www() Dim s s = Application.GetOpenFilename("Files (*.*), *.*") If s <> False Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s, _ TextToDisplay:=s End If End Sub |