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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 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
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа можно проще ;) [vba]
Код
CreateObject("Wscript.Shell").Run "explorer " & путь
[/vba]
Автор - krosav4ig
Дата добавления - 10.04.2016 в 22:14
KuklP Дата: Понедельник, 11.04.2016, 02:51 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

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

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
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
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа так :p [vba]
Код
Shell "explorer " & путь, 1
[/vba]
Автор - krosav4ig
Дата добавления - 11.04.2016 в 03:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть папку макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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