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

Вход

Регистрация

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

 

= Мир MS Excel/Открыть папку макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть папку макросом (Макросы/Sub)
Открыть папку макросом
DEAD_MaRoZ Дата: Суббота, 09.04.2016, 18:55 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер! Столкнулся с проблемой.
В конце выполнения модуля у меня стоит уведомление
[vba]
Код
MsgBox "Все созданные документы сохранены!", 64, "Отчет"
[/vba]
После нажатия ОК, нужно, чтоб открылась в проводнике папка, адрес которой забит в переменной путь
[vba]
Код
kontr = ActiveSheet.[b3]
путь = "D:\Документы\Отчеты\" & kontr
[/vba]
пробую так
[vba]
Код
Set oShell = CreateObject("Wscript.Shell")
  oShell.Run (путь)
[/vba]
не получается, пробую уже бред вводить
[vba]
Код
CreateObject("Wscript.Shell").Run "cmd путь exit", 0
[/vba]
Толку 0
Помогите, пожалуйста
 
Ответить
СообщениеДобрый вечер! Столкнулся с проблемой.
В конце выполнения модуля у меня стоит уведомление
[vba]
Код
MsgBox "Все созданные документы сохранены!", 64, "Отчет"
[/vba]
После нажатия ОК, нужно, чтоб открылась в проводнике папка, адрес которой забит в переменной путь
[vba]
Код
kontr = ActiveSheet.[b3]
путь = "D:\Документы\Отчеты\" & kontr
[/vba]
пробую так
[vba]
Код
Set oShell = CreateObject("Wscript.Shell")
  oShell.Run (путь)
[/vba]
не получается, пробую уже бред вводить
[vba]
Код
CreateObject("Wscript.Shell").Run "cmd путь exit", 0
[/vba]
Толку 0
Помогите, пожалуйста

Автор - DEAD_MaRoZ
Дата добавления - 09.04.2016 в 18:55
DEAD_MaRoZ Дата: Суббота, 09.04.2016, 19:00 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
На всякий случай, только что проверил - переменная "путь" отображается корректно
D:\Документы\Отчеты\Иванов И.И.
 
Ответить
СообщениеНа всякий случай, только что проверил - переменная "путь" отображается корректно
D:\Документы\Отчеты\Иванов И.И.

Автор - DEAD_MaRoZ
Дата добавления - 09.04.2016 в 19:00
МВТ Дата: Суббота, 09.04.2016, 20:23 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 135 ±
Замечаний: 0% ±

Excel 2007
Как-то так[vba]
Код
    Dim oShell As Object
    Set oShell = CreateObject("Shell.Application")
    oShell.Explore ("C:\temp")
[/vba]
 
Ответить
СообщениеКак-то так[vba]
Код
    Dim oShell As Object
    Set oShell = CreateObject("Shell.Application")
    oShell.Explore ("C:\temp")
[/vba]

Автор - МВТ
Дата добавления - 09.04.2016 в 20:23
Karataev Дата: Суббота, 09.04.2016, 20:24 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 641
Репутация: 226 ±
Замечаний: 0% ±

Excel
[vba]
Код
Sub jjj()
    Dim objShellApp As Object
    Set objShellApp = CreateObject("Shell.Application")
    objShellApp.Explore ("D:\Документы\Отчеты\Иванов И.И.")
End Sub
[/vba]


 
Ответить
Сообщение[vba]
Код
Sub jjj()
    Dim objShellApp As Object
    Set objShellApp = CreateObject("Shell.Application")
    objShellApp.Explore ("D:\Документы\Отчеты\Иванов И.И.")
End Sub
[/vba]

Автор - Karataev
Дата добавления - 09.04.2016 в 20:24
DEAD_MaRoZ Дата: Суббота, 09.04.2016, 20:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Karataev, МВТ, спасибо. Все работает.
Удачи


Сообщение отредактировал DEAD_MaRoZ - Суббота, 09.04.2016, 20:50
 
Ответить
СообщениеKarataev, МВТ, спасибо. Все работает.
Удачи

Автор - DEAD_MaRoZ
Дата добавления - 09.04.2016 в 20:49
krosav4ig Дата: Воскресенье, 10.04.2016, 22:14 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1345
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
а можно проще ;) [vba]
Код
CreateObject("Wscript.Shell").Run "explorer " & путь
[/vba]


(_)Õvõ(_)
 
Ответить
Сообщениеа можно проще ;) [vba]
Код
CreateObject("Wscript.Shell").Run "explorer " & путь
[/vba]

Автор - krosav4ig
Дата добавления - 10.04.2016 в 22:14
KuklP Дата: Понедельник, 11.04.2016, 02:51 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1999
Репутация: 436 ±
Замечаний: 0% ±

Не так уж и проще %) :D
[vba]
Код
CreateObject("Shell.Application").Explore "c:\temp"
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНе так уж и проще %) :D
[vba]
Код
CreateObject("Shell.Application").Explore "c:\temp"
[/vba]

Автор - KuklP
Дата добавления - 11.04.2016 в 02:51
krosav4ig Дата: Понедельник, 11.04.2016, 03:39 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1345
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
а так :p [vba]
Код
Shell "explorer " & путь, 1
[/vba]


(_)Õvõ(_)
 
Ответить
Сообщениеа так :p [vba]
Код
Shell "explorer " & путь, 1
[/vba]

Автор - krosav4ig
Дата добавления - 11.04.2016 в 03:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть папку макросом (Макросы/Sub)
Страница 1 из 11
Поиск:

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