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

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создать иерархию папок по Excel таблице - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать иерархию папок по Excel таблице (Макросы/Sub)
Создать иерархию папок по Excel таблице
shlackbaum Дата: Среда, 08.08.2018, 16:37 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Привет.
-
Есть ячейка с адресом создания папки и подпапок.
Есть таблица с данными по иерархии папок и подпапок вплоть до N уровня вложенности (смотря сколько столбцов заполнено)
В первом столбце указывается название корневой папке
В последующих столбцах указываются названия подпапок на следующем уровне вложенности.
Если последующего столбца для строки не существует, то углубления в иерархию более не производится и создается последняя пустая папка на имеющемся уровне глубины
-
По итогу необходимо получить папку с папками с соответствующими названиями, как это обозначено в Excel таблице.
К сообщению приложен файл: ______Excel.xlsx(10.5 Kb)
 
Ответить
СообщениеПривет.
-
Есть ячейка с адресом создания папки и подпапок.
Есть таблица с данными по иерархии папок и подпапок вплоть до N уровня вложенности (смотря сколько столбцов заполнено)
В первом столбце указывается название корневой папке
В последующих столбцах указываются названия подпапок на следующем уровне вложенности.
Если последующего столбца для строки не существует, то углубления в иерархию более не производится и создается последняя пустая папка на имеющемся уровне глубины
-
По итогу необходимо получить папку с папками с соответствующими названиями, как это обозначено в Excel таблице.
Автор - shlackbaum
Дата добавления - 08.08.2018 в 16:37
sboy Дата: Среда, 08.08.2018, 16:51 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2309
Репутация: 658 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Тут готовый код
 
Ответить
СообщениеДобрый день.
Тут готовый код
Автор - sboy
Дата добавления - 08.08.2018 в 16:51
shlackbaum Дата: Среда, 08.08.2018, 17:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата sboy, 08.08.2018 в 16:51, в сообщении № 2 ()
Тут готовый код

Да, видел это решение. Спасибо.
-
Но оно по какой-то причине не срабатывает с моей иерархией.
Пишет "Run-time error '53'"
File not found.
-
Дебаггер ругается на строчку
If Dir(sSF, 16) = "" Then
-
До того, как ошибка проявляется - часть папок создается

Но как видно даже на первом уровне вложенности не появляется папка "Название подпапки 2" и эта ошибка повторяется на каждом уровне вложенности.
 
Ответить
Сообщение
Цитата sboy, 08.08.2018 в 16:51, в сообщении № 2 ()
Тут готовый код

Да, видел это решение. Спасибо.
-
Но оно по какой-то причине не срабатывает с моей иерархией.
Пишет "Run-time error '53'"
File not found.
-
Дебаггер ругается на строчку
If Dir(sSF, 16) = "" Then
-
До того, как ошибка проявляется - часть папок создается

Но как видно даже на первом уровне вложенности не появляется папка "Название подпапки 2" и эта ошибка повторяется на каждом уровне вложенности.
Автор - shlackbaum
Дата добавления - 08.08.2018 в 17:36
sboy Дата: Среда, 08.08.2018, 18:09 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2309
Репутация: 658 ±
Замечаний: 0% ±

Excel 2010
Приложите файл с внедренным кодом - поправим
 
Ответить
СообщениеПриложите файл с внедренным кодом - поправим
Автор - sboy
Дата добавления - 08.08.2018 в 18:09
shlackbaum Дата: Среда, 08.08.2018, 18:18 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата sboy, 08.08.2018 в 18:09, в сообщении № 4 ()
Приложите файл с внедренным кодом - поправим

Прикладываю
К сообщению приложен файл: ____Excel_-__-.xlsm(20.8 Kb)
 
Ответить
Сообщение
Цитата sboy, 08.08.2018 в 18:09, в сообщении № 4 ()
Приложите файл с внедренным кодом - поправим

Прикладываю
Автор - shlackbaum
Дата добавления - 08.08.2018 в 18:18
sboy Дата: Четверг, 09.08.2018, 11:26 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2309
Репутация: 658 ±
Замечаний: 0% ±

Excel 2010
Ошибка возникает, потому что Windows упирается в ограничение строковой длины пути файла (максимум С:\\+256 символов), для папок -12 символов
переназовите свои папки и подпапки покороче.
К сообщению приложен файл: _Excel-.xlsm(20.6 Kb)
 
Ответить
СообщениеОшибка возникает, потому что Windows упирается в ограничение строковой длины пути файла (максимум С:\\+256 символов), для папок -12 символов
переназовите свои папки и подпапки покороче.
Автор - sboy
Дата добавления - 09.08.2018 в 11:26
shlackbaum Дата: Четверг, 09.08.2018, 22:32 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата sboy, 09.08.2018 в 11:26, в сообщении № 6 ()
Ошибка возникает, потому что Windows упирается в ограничение строковой длины пути файла (максимум С:\\+256 символов), для папок -12 символов
переназовите свои папки и подпапки покороче.


Спасибо огромное!!!
 
Ответить
Сообщение
Цитата sboy, 09.08.2018 в 11:26, в сообщении № 6 ()
Ошибка возникает, потому что Windows упирается в ограничение строковой длины пути файла (максимум С:\\+256 символов), для папок -12 символов
переназовите свои папки и подпапки покороче.


Спасибо огромное!!!
Автор - shlackbaum
Дата добавления - 09.08.2018 в 22:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать иерархию папок по Excel таблице (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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