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

Вход

Регистрация

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

 

= Мир MS Excel/Вернуть название подкаталога в каталоге - Мир MS Excel

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

Excel 2010
Добрый день!

Столкнулся со следующей проблемой:
У меня есть путь до определенной папки. В этой папке есть еще папки, названия которых я не знаю.
Как мне вернуть название подкаталога для того, чтобы открыть его?

Буду признателен! :)


e-mail: akobir.ismailov@gmail.com
 
Ответить
СообщениеДобрый день!

Столкнулся со следующей проблемой:
У меня есть путь до определенной папки. В этой папке есть еще папки, названия которых я не знаю.
Как мне вернуть название подкаталога для того, чтобы открыть его?

Буду признателен! :)

Автор - akobir
Дата добавления - 20.01.2016 в 10:50
Manyasha Дата: Среда, 20.01.2016, 10:57 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
akobir, посмотрите готовое решение


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеakobir, посмотрите готовое решение

Автор - Manyasha
Дата добавления - 20.01.2016 в 10:57
_Boroda_ Дата: Среда, 20.01.2016, 10:57 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Посмотрите здесь
http://excelvba.ru/code/SubFoldersCollection


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПосмотрите здесь
http://excelvba.ru/code/SubFoldersCollection

Автор - _Boroda_
Дата добавления - 20.01.2016 в 10:57
akobir Дата: Среда, 20.01.2016, 11:03 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 201
Репутация: 9 ±
Замечаний: 0% ±

Excel 2010
Manyasha, _Boroda_,
Спасибо, друзья.
Опять не воспользовался поиском по готовыми решениям. Гореть мне в аду.
:(
[moder]Зато 100 сообщений напостил.


e-mail: akobir.ismailov@gmail.com

Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 11:04
 
Ответить
СообщениеManyasha, _Boroda_,
Спасибо, друзья.
Опять не воспользовался поиском по готовыми решениям. Гореть мне в аду.
:(
[moder]Зато 100 сообщений напостил.

Автор - akobir
Дата добавления - 20.01.2016 в 11:03
Wasilich Дата: Среда, 20.01.2016, 11:08 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Ну и готовый код
[vba]
Код
Sub СписокПапок()
  iPath = "D:\" 'Range("E2")
  With CreateObject("Shell.Application")
     Dim iFolder As Object, iFolderItem As Object
     Set iFolder = .Namespace(iPath)
     If Not iFolder Is Nothing Then
        I = 3
        For Each iFolderItem In iFolder.Items
            If iFolderItem.IsFolder = True Then
            'Заменив True  на False будут только файлы
              I = I + 1
              Range("C" & I) = iFolderItem.Name
            End If
        Next
     Else
        MsgBox "Указанная папка изволит отсутствовать", , ""
     End If
  End With
End Sub
[/vba]
 
Ответить
СообщениеНу и готовый код
[vba]
Код
Sub СписокПапок()
  iPath = "D:\" 'Range("E2")
  With CreateObject("Shell.Application")
     Dim iFolder As Object, iFolderItem As Object
     Set iFolder = .Namespace(iPath)
     If Not iFolder Is Nothing Then
        I = 3
        For Each iFolderItem In iFolder.Items
            If iFolderItem.IsFolder = True Then
            'Заменив True  на False будут только файлы
              I = I + 1
              Range("C" & I) = iFolderItem.Name
            End If
        Next
     Else
        MsgBox "Указанная папка изволит отсутствовать", , ""
     End If
  End With
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 20.01.2016 в 11:08
akobir Дата: Среда, 20.01.2016, 11:30 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 201
Репутация: 9 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Благодаря всему форуму, помимо того, что напостил 100 сообщений, набрался огромного опыта и даже успел немного помочь другим. :)[moder]Я ж нисколько не в обиду Вам, а наоборот - типа поздравляю[/moder]
Wasilic, Огромное спасибо, но как я понял, это поиск определенной папки. А я названия папки не знаю и как раз его и хочу узнать.


e-mail: akobir.ismailov@gmail.com

Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 11:34
 
Ответить
Сообщение_Boroda_, Благодаря всему форуму, помимо того, что напостил 100 сообщений, набрался огромного опыта и даже успел немного помочь другим. :)[moder]Я ж нисколько не в обиду Вам, а наоборот - типа поздравляю[/moder]
Wasilic, Огромное спасибо, но как я понял, это поиск определенной папки. А я названия папки не знаю и как раз его и хочу узнать.

Автор - akobir
Дата добавления - 20.01.2016 в 11:30
Wasilich Дата: Среда, 20.01.2016, 12:12 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
как я понял, это поиск определенной папки
Не определенной, а всех, которые лежат там, где указано в iPath = "D:\" или в iPath = "D:\ПАПКА\" или в iPath = "D:\ПАПКА\ПАПКА\" и там будет осуществляться поиск вложенных папок.
К сообщению приложен файл: 2165479.xls (27.0 Kb)


Сообщение отредактировал Wasilic - Среда, 20.01.2016, 12:20
 
Ответить
Сообщение
как я понял, это поиск определенной папки
Не определенной, а всех, которые лежат там, где указано в iPath = "D:\" или в iPath = "D:\ПАПКА\" или в iPath = "D:\ПАПКА\ПАПКА\" и там будет осуществляться поиск вложенных папок.

Автор - Wasilich
Дата добавления - 20.01.2016 в 12:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вернуть название подкаталога в каталоге (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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