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

Вход

Регистрация

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

 

= Мир MS Excel/Открытия папки через VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытия папки через VBA (Макросы/Sub)
Открытия папки через VBA
Дмитрий Дата: Суббота, 18.10.2014, 22:46 | Сообщение № 1
Группа: Гости
Public PathCurrent As String
=======================================================================
PathCurrent = ActiveWorkbook.Path ' опр. полного пути папки текущей книги Excel
'MsgBox PathCurrent ' вывод значения PathCurrent в окошко
ChDir PathCurrent
fName = PathCurrent & "\БланкДляТестов.xlsm" ' опр. полного имени открываемого файла
Workbooks.Open Filename:=fName ' открытие файла
====================================================================

КАК НАПИСАТЬ ТАКЖЕ НО ДЛЯ ОТКРЫТИЯ ПАПКИ, а не файла ?
 
Ответить
СообщениеPublic PathCurrent As String
=======================================================================
PathCurrent = ActiveWorkbook.Path ' опр. полного пути папки текущей книги Excel
'MsgBox PathCurrent ' вывод значения PathCurrent в окошко
ChDir PathCurrent
fName = PathCurrent & "\БланкДляТестов.xlsm" ' опр. полного имени открываемого файла
Workbooks.Open Filename:=fName ' открытие файла
====================================================================

КАК НАПИСАТЬ ТАКЖЕ НО ДЛЯ ОТКРЫТИЯ ПАПКИ, а не файла ?
Автор - Дмитрий
Дата добавления - 18.10.2014 в 22:46
krosav4ig Дата: Суббота, 18.10.2014, 23:07 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run (ActiveWorkbook.Path): Set sh = Nothing
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run (ActiveWorkbook.Path): Set sh = Nothing
[/vba]
Автор - krosav4ig
Дата добавления - 18.10.2014 в 23:07
Дмитрий Дата: Суббота, 18.10.2014, 23:37 | Сообщение № 3
Группа: Гости
Не пойму как работать с этим кодом?

Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run (ActiveWorkbook.Path): Set sh = Nothing

Где тут указывать название папки, которую открываем?
 
Ответить
СообщениеНе пойму как работать с этим кодом?

Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run (ActiveWorkbook.Path): Set sh = Nothing

Где тут указывать название папки, которую открываем?
Автор - Дмитрий
Дата добавления - 18.10.2014 в 23:37
Wasilich Дата: Воскресенье, 19.10.2014, 00:19 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Скопируйте код в модуль книги и назначьте ему кнопку.
[vba]
Код
Sub ОткрытьПапкуТекущейКниги()
   Dim sh: Set sh = CreateObject("Wscript.Shell")
   sh.Run (ActiveWorkbook.Path): Set sh = Nothing
End Sub
[/vba]
 
Ответить
СообщениеСкопируйте код в модуль книги и назначьте ему кнопку.
[vba]
Код
Sub ОткрытьПапкуТекущейКниги()
   Dim sh: Set sh = CreateObject("Wscript.Shell")
   sh.Run (ActiveWorkbook.Path): Set sh = Nothing
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 19.10.2014 в 00:19
krosav4ig Дата: Воскресенье, 19.10.2014, 01:23 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
небольшая поправка
[vba]
Код
Sub ОткрытьПапкуТекущейКниги()
Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run """" & ActiveWorkbook.Path & """": Set sh = Nothing
End Sub
[/vba]
если нужно открыть какую-то определенную папку, то путь к ней пишите вместо ActiveWorkbook.Path

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениенебольшая поправка
[vba]
Код
Sub ОткрытьПапкуТекущейКниги()
Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run """" & ActiveWorkbook.Path & """": Set sh = Nothing
End Sub
[/vba]
если нужно открыть какую-то определенную папку, то путь к ней пишите вместо ActiveWorkbook.Path
Автор - krosav4ig
Дата добавления - 19.10.2014 в 01:23
WeRiX Дата: Воскресенье, 19.10.2014, 18:54 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Можно еще так -->
[vba]
Код
Sub Z()
Shell "explorer.exe " & "e:\Музыка", vbMaximizedFocus
End Sub
[/vba]
 
Ответить
СообщениеМожно еще так -->
[vba]
Код
Sub Z()
Shell "explorer.exe " & "e:\Музыка", vbMaximizedFocus
End Sub
[/vba]
Автор - WeRiX
Дата добавления - 19.10.2014 в 18:54
Валерьянка Дата: Понедельник, 20.10.2014, 02:10 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Может надо это?
[vba]
Код
Sub Zay()
Shell "explorer.exe " & Valeri, vbMaximizedFocus
End Sub
Function Valeri(Optional ByVal Title As String = "Выбор папки", _
Optional ByVal InitialPath As String = "c:\") As String
Dim abc As String: abc = Application.PathSeparator
With Application.FileDialog(msoFileDialogFolderPicker)
If Not Right$(InitialPath, 1) = abc Then InitialPath = InitialPath & abc
.ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
If .Show <> -1 Then Exit Function
Valeri = .SelectedItems(1)
If Not Right$(Valeri, 1) = abc Then Valeri = Valeri & abc
End With
End Function
[/vba]


Сообщение отредактировал Валерьянка - Понедельник, 20.10.2014, 02:12
 
Ответить
СообщениеМожет надо это?
[vba]
Код
Sub Zay()
Shell "explorer.exe " & Valeri, vbMaximizedFocus
End Sub
Function Valeri(Optional ByVal Title As String = "Выбор папки", _
Optional ByVal InitialPath As String = "c:\") As String
Dim abc As String: abc = Application.PathSeparator
With Application.FileDialog(msoFileDialogFolderPicker)
If Not Right$(InitialPath, 1) = abc Then InitialPath = InitialPath & abc
.ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
If .Show <> -1 Then Exit Function
Valeri = .SelectedItems(1)
If Not Right$(Valeri, 1) = abc Then Valeri = Valeri & abc
End With
End Function
[/vba]
Автор - Валерьянка
Дата добавления - 20.10.2014 в 02:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытия папки через VBA (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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