Макрос создание папки + гиперссылка на эту папку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос создание папки + гиперссылка на эту папку (Макросы/Sub)

BendeR1421

Дата: Среда, 10.02.2021, 11:58 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Помогите пожалуйста , ничего не соображаю в программировании, поэтому прошу помощи. Есть код на создание папки с именем ячейки. Хочу добавить , чтобы присваивалась гиперссылка при создании папки. Код взял на форуме. Заранее спасибо!!!

[vba]

Код

Sub Крест1_Щелчок()
Dim fso As Object, el As Range
' Выбор ячейки с названием папки
Set el = Application.InputBox( _
Prompt:="Выберите строку с названием папки", _
Title:="Строка с названием", _
Default:=Intersect([G:G], Selection.EntireRow).Address, _
Type:=8)

' Папка для создания по умолчанию
sFldr = "Z:\Бухгалтерия\2021 - 1 квартал\"
' Возмоожность изменить папку
sFldr = InputBox( _
Prompt:="Адрес сохранения", _
Title:="Куда сохранять?", _
Default:=sFldr)
If Not el Is Nothing And sFldr <> "" And el.Value <> "" Then
Set el = Intersect([G:G], el)
If Dir(sFldr, vbDirectory) = "" Then MkDir sFldr ' создаем, если нет
Set fso = CreateObject("Scripting.FilesystemObject")
If Not fso.FolderExists(sFldr & el.Value) Then
fso.CreateFolder (sFldr & el.Value)
End If
Else
MsgBox "Папка или название файла не выбраны.", vbCritical
End If
End Sub

[/vba]