Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как сделать автоматическую гиперссылку?
 
Добрый день. У меня есть папка(folder1) в которой много других папок(folder1.1; folder 1.2; folder 1.3) и в папку "folder1" будут добавляться еще папки. Можно ли сделать так, чтоб в столбце были ссылки на все папки в "folder1" (сколько папок, столько и строчек). Любые способы подойдут. Спасибо.
 
Если вариант с макросом подойдет, то вот код процедуры:
Код
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 Авг 2017 12:18:05 (корректировка сообщения)
 
Спасибо большое вам. Только или я делаю что-то не так, или вы. Но оно не работает(((
 
Выполняется с ошибкой или просто ничего не происходит?
Приложите файл, если можете.
"C:\" - на путь до вашей папки изменили?
Изменено: khankill2 - 22 Авг 2017 14:40:09
 
Здравствуйте! я попробовал ваш макрос он выдает ошибку 400. Можете подробней описать как этот макрос работает?
Страницы: 1
Читают тему (гостей: 1)