Версия для слабовидящих
Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

 

= Мир MS Excel/Макрос создающий папки из списка. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос создающий папки из списка. (Макросы/Sub)
Макрос создающий папки из списка.
Mark1976 Дата: Суббота, 15.04.2023, 06:04 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте знатоки экселя. На просторах интернета нашел макрос, который создает папки из списка. Папки создаются по пути, указанному в самом макросе. Можно сделать так, чтобы папки создавались автоматически там, где лежит сам макрос? Т.е. на выходе хочется увидеть: копирую макрос в нужную папку, запускаю его, получаю на выходе папки в том месте, где лежит сам макрос, а еще если можно сделать кнопку по запуску макроса?
К сообщению приложен файл: 9641299.xlsm (15.4 Kb)
 
Ответить
СообщениеЗдравствуйте знатоки экселя. На просторах интернета нашел макрос, который создает папки из списка. Папки создаются по пути, указанному в самом макросе. Можно сделать так, чтобы папки создавались автоматически там, где лежит сам макрос? Т.е. на выходе хочется увидеть: копирую макрос в нужную папку, запускаю его, получаю на выходе папки в том месте, где лежит сам макрос, а еще если можно сделать кнопку по запуску макроса?
Автор - Mark1976
Дата добавления - 15.04.2023 в 06:04
Nic70y Дата: Суббота, 15.04.2023, 09:39 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9141
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010

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


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
    If Not IsEmpty(oCell) Then MkDir ThisWorkbook.Path & oCell
[/vba]
Автор - Nic70y
Дата добавления - 15.04.2023 в 09:39
Mark1976 Дата: Суббота, 15.04.2023, 15:19 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация: 3 ±
Замечаний: 0% ±

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

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


В итоге. Файлы сохранились в папку "Для директора" и в начале файла стоит слово Тест. Спасибо конечно, но это не совсем то, что просил.
К сообщению приложен файл: kniga1_kopija.xlsm (17.7 Kb)
 
Ответить
СообщениеNic70y, привет. Сделал все как сказали. Создал в папке "Для директора" папку "Тест". Положил в папку "Тест" макрос
[vba]
Sub macros1()On Error Resume NextFor Each oCell In Range([A1], [A9999].End(xlUp))    If Not IsEmpty(oCell) Then MkDir ThisWorkbook.Path & oCellNextEnd Sub
[/vba]
В итоге. Файлы сохранились в папку "Для директора" и в начале файла стоит слово Тест. Спасибо конечно, но это не совсем то, что просил.
Автор - Mark1976
Дата добавления - 15.04.2023 в 15:19
i691198 Дата: Суббота, 15.04.2023, 16:34 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 131 ±
Замечаний: 0% ±

2016
Цитата Mark1976, 15.04.2023 в 15:19, в сообщении № 3 ( писал(а)):
но это не совсем то, что просил.

Все точно так как вы и хотели, а в чем проблема?
 
Ответить
Сообщение
Цитата Mark1976, 15.04.2023 в 15:19, в сообщении № 3 ( писал(а)):
но это не совсем то, что просил.

Все точно так как вы и хотели, а в чем проблема?
Автор - i691198
Дата добавления - 15.04.2023 в 16:34
Mark1976 Дата: Суббота, 15.04.2023, 16:49 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
i691198, Файлы сохранились в папку "Для директора" и в начале файла стоит слово Тест
 
Ответить
Сообщениеi691198, Файлы сохранились в папку "Для директора" и в начале файла стоит слово Тест
Автор - Mark1976
Дата добавления - 15.04.2023 в 16:49
i691198 Дата: Воскресенье, 16.04.2023, 10:59 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 131 ±
Замечаний: 0% ±

2016
Mark1976, А если записать так.

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

 
Ответить
СообщениеMark1976, А если записать так.
[vba]
If Not IsEmpty(oCell) Then MkDir ThisWorkbook.Path & "\" & oCell
[/vba]
Автор - i691198
Дата добавления - 16.04.2023 в 10:59
cmivadwot Дата: Воскресенье, 16.04.2023, 22:42 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 604
Репутация: 115 ±
Замечаний: 0% ±

365
Mark1976, гляньте...
К сообщению приложен файл: sozdanie_papok_po_vydelennym_s.xlsm (20.0 Kb)
 
Ответить
СообщениеMark1976, гляньте...
Автор - cmivadwot
Дата добавления - 16.04.2023 в 22:42
Mark1976 Дата: Понедельник, 17.04.2023, 07:05 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
i691198, а так все работает как и просил. Спасибо.
 
Ответить
Сообщениеi691198, а так все работает как и просил. Спасибо.
Автор - Mark1976
Дата добавления - 17.04.2023 в 07:05
Mark1976 Дата: Понедельник, 17.04.2023, 07:05 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
cmivadwot, спасибо за решение.
 
Ответить
Сообщениеcmivadwot, спасибо за решение.
Автор - Mark1976
Дата добавления - 17.04.2023 в 07:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос создающий папки из списка. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Рейтинг@Mail.ru Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!