Макрос создающий папки из списка.

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

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

Макрос создающий папки из списка. (Макросы/Sub)

Mark1976

Дата: Суббота, 15.04.2023, 06:04 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

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

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

Excel 2010, 2013

Здравствуйте знатоки экселя. На просторах интернета нашел макрос, который создает папки из списка. Папки создаются по пути, указанному в самом макросе. Можно сделать так, чтобы папки создавались автоматически там, где лежит сам макрос? Т.е. на выходе хочется увидеть: копирую макрос в нужную папку, запускаю его, получаю на выходе папки в том месте, где лежит сам макрос, а еще если можно сделать кнопку по запуску макроса?

К сообщению приложен файл: 9641299.xlsm (15.4 Kb)

Ответить

Nic70y

Дата: Суббота, 15.04.2023, 09:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

[vba]

Код

If Not IsEmpty(oCell) Then MkDir ThisWorkbook.Path & oCell

[/vba]

ЮMoney 41001841029809

Ответить

Mark1976

Дата: Суббота, 15.04.2023, 15:19 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

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

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

Excel 2010, 2013

Nic70y, привет. Сделал все как сказали. Создал в папке "Для директора" папку "Тест". Положил в папку "Тест" макрос
[vba]

Код

Sub macros1()
On Error Resume Next
For Each oCell In Range([A1], [A9999].End(xlUp))
If Not IsEmpty(oCell) Then MkDir ThisWorkbook.Path & oCell
Next
End Sub

[/vba]
В итоге. Файлы сохранились в папку "Для директора" и в начале файла стоит слово Тест. Спасибо конечно, но это не совсем то, что просил.