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

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

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

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

Приведу пример личного пользования данным макросом. Я постоянно работаю над несколькими проектами и у меня всегда открыто по 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