Как сделать автоматическую гиперссылку?

Пользователь

Сообщений: 4 Регистрация: 22.08.2017

22.08.2017 11:59:38

Добрый день. У меня есть папка(folder1) в которой много других папок(folder1.1; folder 1.2; folder 1.3) и в папку "folder1" будут добавляться еще папки. Можно ли сделать так, чтоб в столбце были ссылки на все папки в "folder1" (сколько папок, столько и строчек). Любые способы подойдут. Спасибо.

khankill2

Пользователь

Сообщений: 8 Регистрация: 08.08.2017

22.08.2017 12:13:31

Если вариант с макросом подойдет, то вот код процедуры:

Код

Sub PasteHyper()
    Dim fso As Object, fromfolder As Object, i As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
Sheets(1).Columns(1).ClearContents
For Each fromfolder In fso.GetFolder("C:\").subFolders
        With Sheets(1)
            .Hyperlinks.Add Anchor:=IIf(.Cells(1, 1) = "", .Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)), Address:=fromfolder.Path, TextToDisplay:=fromfolder.Path
        End With
    Next fromfolder
End Sub

("C:\") - это ваша родительская папка, содержимое которой будет просматриваться

Изменено: khankill2 - 22.08.2017 12:18:05 (корректировка сообщения)

ikurskoj Пользователь Сообщений: 4 Регистрация: 22.08.2017	#3 22.08.2017 14:09:18 Спасибо большое вам. Только или я делаю что-то не так, или вы. Но оно не работает(((

khankill2 Пользователь Сообщений: 8 Регистрация: 08.08.2017	#4 22.08.2017 14:32:26 Выполняется с ошибкой или просто ничего не происходит? Приложите файл, если можете. "C:\" - на путь до вашей папки изменили? Изменено: khankill2 - 22.08.2017 14:40:09

uktam Пользователь Сообщений: 1 Регистрация: 24.10.2017	#5 13.04.2018 11:32:35 Здравствуйте! я попробовал ваш макрос он выдает ошибку 400. Можете подробней описать как этот макрос работает?