Открыть текущую папку

Если вы работаете с большим числом файлов, папок, то наверно знаете как трудно бывает найти папку с файлом, в котором вы сейчас работаете. Макрос быстро определит расположение файла и откроет папку с ним.

Описание работы

Открыть текущую папку

После установки на ленте появится кнопка. Нажав на нее будет открываться расположение текущего файла. Быстро и просто!

Когда это необходимо?

Приведу пример личного пользования данным макросом. Я постоянно работаю над несколькими проектами и у меня всегда открыто по 5-10 файлов Excel. К сожалению, все эти файлы находятся не в одной папке и раньше мне приходилось запоминать их расположение. Так как рабочих папок тоже большое количество, то на их поиск уходит много времени (особенно под конец ненормированного рабочего дня, когда сроки по проекту прошли вчера))). Теперь эта процедура занимает всего 1 секунду.

Также мне часто приходится сбрасывать путь к папке своим коллегам и макрос помогает мне сделать это оперативно удивляя всех своей производительностью.

Код на VBA

Можете самостоятельно внедрить в свой файл данный макрос.

Sub OpenCurrentFolder()
    Dim WShell As Object
    Dim ActivePath As String
 
    Set WShell = CreateObject("WScript.Shell")
    ActivePath = """" & ActiveWorkbook.Path & """"
    Shell "explorer.exe " & ActivePath, vbNormalFocus
End Sub
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.

Рекомендуем к прочтению

Комментарии:

comments powered by Disqus