Создание папок из списка excel

Обновлено: 08.07.2024

Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).

Например, код MkDir "C:\Папка\" отработает корректно в любом случае (создаст указанную папку),
а код MkDir "C:\Папка\Подпапка\Каталог\" выдаст ошибку Run-time error '76': Path not found
(потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)

Можно, конечно, использовать несколько функций MkDir подряд - но это усложняет код.

Самый простой способ решения проблемы - использование WinAPI-функции SHCreateDirectoryEx, которая может создать все нужные папки и подпапки за один запуск.

Пример использования функции SHCreateDirectoryEx:

Друзья!
Такая ситуация:
Необходим создавать на диске D:\ папки и подпапки по значению ячеек двух соседних столбцов:
НАПРИМЕР:
D:\папка\подпапка\
если "папка"=А1. 100000, а "подпапка"=В1. 100000

Создание папок с именами столбцов в Excel
Доброго дня! Есть 2 вопроса) 1. Имеется таблица Excel вида: Малышева 8 Марта Восточная.

Создание папок в VBA Excel
Добрый день!Пожалуйста помогите с VBA Exсel 1.При начале нового дня создать новую папку с именем.

Создание папок VBA Excel
Добрый день!Пожалуйста помогите с VBA Exсel 1.При начале нового дня создать новую папку с именем.

Excel Создание коллекции классов при выделении ячеек
Доброго времени! Подскажите неграмотному в ООП, каким образом можно создать несколько классов для.

Спасибо большое, что откликнулись, но что мне с "этим" делать.
Если можно, чуточку поподробнее. Blakprizrak,
Откройте пустой файл Excel.
Сервис - Макрос - Начать запись - Сохранить в "Личная книга макросов" - ОК.
Введите букву "а" и нажмите Enter.
Сервис - Макрос - Остановить запись.
Сервис - Макрос - Редактор Visual Basic. Откроется редактор Visual Basic.
2 щ. левой кн. мыши по PERSONAL.XLS.
Щ. пр. кн. мыши по PERSONAL.XLS - Insert - Module.
Скопируйте с этого форума код, который написали вам, перейдите в редактор Visual Basic и вставьте текст в правую область, где мигает курсор
В 4 строке кода укажите место, где должны создавать папки:
Сохраните изменения.
Вставьте курсор в любое место кода и нажмите стрелку на панели инструментов, чтобы запустить код.
В выбранной вами папке должно появится 3 папки: Лист1, Лист2 и Лист3.
Если не появились, то может быть путь указали неправильно в коде.

Спасибо! Но я "чайник" во всем этом, можно попроще обьяснить как этим пользоваться, буду благодарен.

Добавлено через 10 минут

Blakprizrak,
Откройте пустой файл Excel.
Сервис - Макрос - Начать запись - Сохранить в "Личная книга макросов" - ОК.
Введите букву "а" и нажмите Enter.
Сервис - Макрос - Остановить запись.
Сервис - Макрос - Редактор Visual Basic. Откроется редактор Visual Basic.
2 щ. левой кн. мыши по PERSONAL.XLS.
Щ. пр. кн. мыши по PERSONAL.XLS - Insert - Module.
Скопируйте с этого форума код, который написали вам, перейдите в редактор Visual Basic и вставьте текст в правую область, где мигает курсор
В 4 строке кода укажите место, где должны создавать папки:
Сохраните изменения.
Вставьте курсор в любое место кода и нажмите стрелку на панели инструментов, чтобы запустить код.
В выбранной вами папке должно появится 3 папки: Лист1, Лист2 и Лист3.
Если не появились, то может быть путь указали неправильно в коде. Спасибо огромное. работает. тока путь другой не получается сделать, сохраняет в корень диска "С" Blakprizrak,
напишите сюда путь, куда вы хотите сохранить. Blakprizrak,
напишите сюда путь, куда вы хотите сохранить. Простите, туплю, забыл после названия папки наклонную поставить. Спасибо, спасли меня от психушки, сегодня пробывал вручную, на 50 моя крыша помохала мне ручкой

Добавлено через 1 час 37 минут
Все-таки я допустил неточность.
Если сделать обычную гиперссылку на папку "1" из ячейки с данными 1, то при условии перемещения папки "Объект", содержащей Экселевский файл и папку "Фотографии", гиперссылки сохраняются. Проблема только в том, что бы автоматизировать присвоение гиперссылок ячейкам с другими данными (на подобии как " =ГИПЕРССЫЛКА("D:\Объект\Фотографии\"&A7&"") " и протянуть вниз). Ибо при наличии порядка 300 ячеек с данными, присваивать каждой гиперссылку вручную. а папок "Объект" порядка сотни.

Добавлено через 22 минуты
И еще один вопрос, что нужно изменить в коде макроса по созданию папок, что бы, например папка Фотографии и вложенные в нее папки с именами из Экселевского файла, создавались при запуске макроса в той директории где в данный момент находится папка?

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

Например, я вписал в новую ячейку название контрагента Рога и Копыта в соседней ячейке указал форму собственности ООО перешел к следующей ячейке, в этот момент на диске С: создается папка С:\Рога и копыта, ООО\ то есть я вижу из предыдущих записей как создаются папки но не могу найти инфы как это сделать на вновь создаваемые ячейки?
Как указать адрес ячейки не абсолютно, вида Range([A1], [A65536].End(xlUp)) а относительно положения выделенной ячейки? Например у меня выделена ячейка P4 соответственно и ячейки для названия папки будут T4+E4

Вы ведёте учет файлов по папкам или вам необходимо сделать их инвентаризацию, возможно перед вами стоит задача составить список файлов как приложение к письму, договору, при этом у вас в папке например 200 файлов , то встает вопрос как это сделать быстро и не пропустить ничего.

В сети Интернет можно найти разные способы получения списка файлов из папки, в том числе с использованием формул, макросов и специализированных надстроек. Но не для всех такие способы подходят в силу умения и имеющихся навыков.
Для себя я определил три действенных и простых способа как вывести список файлов из папки на лист Excel и использую их в зависимости от ситуации.

Всё по порядку!

Я не думаю, что сейчас есть пользователи Excel версии старше 2016 года и если они есть, то для них разберем тоже простой способ извлечения списка файлов из папки.

Способ номер Раз

Использование Power Query для получения списка имен файлов

Если вы используете Excel 2016, 2019 или Office 365 , то Вам потребуется всего пару кликов для того, что-бы вывести список файлов из папки на лист Excel

1. Во вкладке "Данные" выберете пункт "Создать запрос" затем из выпадающего списка выбираем пункт "Из файла" и далее "Из папки"