Создать папки по списку в проводнике с помощью Excel. Много папок!

Задача: создать за 5 сек. много папок в проводнике. У папок должны быть имена в соответствии с заранее подготовленным списком.

Для чего: да для чего угодно. Например, вы делаете шаблонный путь к файлу с информацией о клиенте. Файл у всех клиентов будет называться одинаково, а вот папка, в которой находится файл, будет называться именем клиента. Что делать, если клиентов 1000?

Что делаем:

• создаем список будущих папок (они же — имена клиентов) в пустой таблице Excel;
• вставляем в таблицу макрос, состоящий всего из нескольких строк;
• запускаем макрос!

Подробнее

1. Создаем список папок

Допустим, папки будут называться так (спасибо генератору randomus.ru)

Lisa Harrington
Gloria Brown
Rodney Baker
Carrie Caldwell
Michael Miller
Jacob Price
David Rodriguez
David Johnson
Ryan Smith
Betty Clark

Создаем новую таблицу Excel. Копируем и строго в первую колонку с яч. A1 вставляем данный список

Сохраняем таблицу как книгу с поддержкой макросов (*.xlsm)

2. Создаём новый макрос

нажимаем Alt-F8 (или меню Разработчик — Макросы). Далее вводим произвольное имя макроса и нажимаем Создать.

Копируем в большое поле справа следующий код:

Sub macros1()
On Error Resume Next
For Each oCell In Range([A1], [A9999].End(xlUp))
If Not IsEmpty(oCell) Then MkDir «C:\tmp\» & oCell
Next
End Sub

В коде можно изменить путь к создаваемым папкам, имя макроса, просматриваемый диапазон и т.д.
Проверьте, что родительская папка, указанная в коде макроса, действительно существует.

3. Сохраняем и запускаем макрос

Жмем Сохранить.
Жмем Alt-F8 — Выполнить, новые папки создаются моментально. Проверяем новые папки по указанному в макросе пути.

Скачать файл Книга1.xlsm с примером.

.