Поиск и открытие папки - серьезно.

[mister_snack]

Добрый день, господа,

С VBA столкнулся буквально неделю назад и в данный момент интенсивно осваиваю его. Но из-за нехватки опыта и безуспешного многочасового поиска ответа, решил обратиться к вам.

Существует следующая задача:

Ячейка С3 периодически меняет свое числовое значение - сегодня там 2345, завтра 3456, послезавтра 9581 и тд. Только лишь фиксированное кол-во цифр.

Допустим, в D:\mmm\ есть папки с такими названиями: арбуз(2345), персик(3456), банан (9581) и тд. Названия имеют именно такой вид, только естественно там не наименования фруктов и свои значения они не меняют.

Необходимо составить VBA код для макроса, который ссылаясь на ячейку С3(вне зависимости от цифр в ней), производил поиск и открывал папку в D:\mmm\ с названием, в котором числовая часть совпадает с ячейкой, т.е. если ячейка имеет значение 3456, то должна открыться папка "персик(3456)", не обращая внимания на буквенную часть. И присвоить его кнопке - это уж я сам смогу)))

Папка должна открыться в Проводнике.

За основу я брал:
Sub xxx ()
Dim N As Srting
N = Worksheets("Список").Cells(2, 3) - мой лист называется Список
Dim stFolder As String
stFolder = Dir("D:\mmm\" & N & "*)
If Len(Dir(stFolder, vbDirectory)) <> 0 Then
shell "Explorer.exe /n,/e/" & stFolder, vbNormalFocus
Else
MsgBox "The directory does not exist!", vbCritical
End If
End Sub

Но он открывает только лишь Проводник - Мой компьютер. Нужной папкой и близко не пахнет(((

очень рассчитываю на вашу помощь!
С уважением,
Михаил.

[doober]

Так должен работать правильно

Shell "Explorer.exe /n,/e,/root," & stFolder, vbNormalFocus

[mister_snack]

Так должен работать правильно
Код:

Shell "Explorer.exe /n,/e,/root," & stFolder, vbNormalFocus

к сожалению, он открывает только корневую папку диска С, а не нужную мне папку с цифрами, соответствующим ячеечным.ъ

[doober]

Значит нет такого пути
Ищите причину в определении пути к папке.
Работает все правильно.
Посмотрите вложение

[mister_snack]

Спасибо!

Буду пробовать!

[staniiislav]

попробуйте так...
материал взял вот здесь:
http://excelvba.ru/code/SubFoldersCollection

плюс

Сообщение от doober

Так должен работать правильно

Shell "Explorer.exe /n,/e,/root," & stFolder, vbNormalFocus