макрос на открытие папки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

макрос на открытие папки (Макросы Sub)

Игорь

Дата: Воскресенье, 02.02.2014, 15:41 | Сообщение № 1

Группа: Гости

Форумчане, нужна помощь...прошуршал весь интернет, но не нашел решения
Нужен макрос, который бы открывал папку с исходным файлом екселя (из которого был запущен макрос).
спасибо за любую помощь!

Ответить

Матраскин

Дата: Воскресенье, 02.02.2014, 16:58 | Сообщение № 2

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

[vba]

Код

Sub s()
Shell "explorer.exe " & ThisWorkbook.Path
End Sub

[/vba]

в интернете опять кто-то не прав

Ответить

nilem

Дата: Воскресенье, 02.02.2014, 17:24 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

может это поможет,
чтобы выбрать файл:
[vba]

Код

Dim f$
With Application.FileDialog(msoFileDialogFilePicker)
     .Title = "Please select a file": .InitialFileName = ThisWorkbook.Path
     .Filters.Add "Excel", "*.xls*", 1
     .AllowMultiSelect = False
     If .Show = False Then Exit Sub: If .SelectedItems.Count = 0 Then Exit Sub
     f = .SelectedItems(1)
End With

[/vba]