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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод названий папок в целевом каталоге. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод названий папок в целевом каталоге. (Макросы/Sub)
Вывод названий папок в целевом каталоге.
rotten41 Дата: Среда, 08.03.2017, 01:26 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе утро, участники форума.
Подскажите решение.

У меня есть макрос, выводящий на лист - список файлов, находящихся в выбранной папке.
Как заставить макрос - выводить не АДРЕСА всех файлов в каталоге, а НАЗВАНИЯ папок, лежащих в целевом каталоге ?
(без учета подпапок)
К сообщению приложен файл: 567436456.xls (67.5 Kb)
 
Ответить
СообщениеДоброе утро, участники форума.
Подскажите решение.

У меня есть макрос, выводящий на лист - список файлов, находящихся в выбранной папке.
Как заставить макрос - выводить не АДРЕСА всех файлов в каталоге, а НАЗВАНИЯ папок, лежащих в целевом каталоге ?
(без учета подпапок)
Автор - rotten41
Дата добавления - 08.03.2017 в 01:26
Wasilich Дата: Среда, 08.03.2017, 10:47 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Может пригодится.
[vba]
Код
Sub FileFolderList()
  iPath = "D:\"
  With CreateObject("Shell.Application")
     Dim iFolder As Object, iFolderItem As Object
     Set iFolder = .Namespace(iPath)
     If Not iFolder Is Nothing Then
       For Each iFolderItem In iFolder.Items
          If iFolderItem.IsFolder = True Then
            i = i + 1
            Range("A" & i) = iFolderItem.Name
          End If
       Next
     Else
       MsgBox "Указанная папка изволит отсутствовать", , ""
     End If
  End With
End Sub
[/vba]Если True заменить на False, будут файлы.
 
Ответить
СообщениеМожет пригодится.
[vba]
Код
Sub FileFolderList()
  iPath = "D:\"
  With CreateObject("Shell.Application")
     Dim iFolder As Object, iFolderItem As Object
     Set iFolder = .Namespace(iPath)
     If Not iFolder Is Nothing Then
       For Each iFolderItem In iFolder.Items
          If iFolderItem.IsFolder = True Then
            i = i + 1
            Range("A" & i) = iFolderItem.Name
          End If
       Next
     Else
       MsgBox "Указанная папка изволит отсутствовать", , ""
     End If
  End With
End Sub
[/vba]Если True заменить на False, будут файлы.
Автор - Wasilich
Дата добавления - 08.03.2017 в 10:47
rotten41 Дата: Пятница, 10.03.2017, 04:34 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Wasilich, работает.
Огромное спасибо за совет.
 
Ответить
СообщениеWasilich, работает.
Огромное спасибо за совет.
Автор - rotten41
Дата добавления - 10.03.2017 в 04:34
7ionov Дата: Пятница, 08.05.2020, 09:05 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Очень заинтересовала ваша работа. А может у вас есть продолжение данной работы? Мне нужно, чтобы можно было не только открыть найденные файлы, но и открыть папку, где данный файл находится.
(Я создаю базу чертежей в формате *.pdf и нужна именно программа которая бы выводила список папок и файлов, сортировала по условию и открывала папку где находится файл.)


Сообщение отредактировал 7ionov - Пятница, 08.05.2020, 09:08
 
Ответить
СообщениеДобрый день! Очень заинтересовала ваша работа. А может у вас есть продолжение данной работы? Мне нужно, чтобы можно было не только открыть найденные файлы, но и открыть папку, где данный файл находится.
(Я создаю базу чертежей в формате *.pdf и нужна именно программа которая бы выводила список папок и файлов, сортировала по условию и открывала папку где находится файл.)
Автор - 7ionov
Дата добавления - 08.05.2020 в 09:05
Pelena Дата: Пятница, 08.05.2020, 09:13 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
7ionov, создайте свою тему. Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение7ionov, создайте свою тему. Эта тема закрыта
Автор - Pelena
Дата добавления - 08.05.2020 в 09:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод названий папок в целевом каталоге. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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