Логотип

+7 (977) 834-82-00

info@vba-excel.ru

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

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

 

Добавить в Excel!

Установите программу

*Этого функционала нет в стандартном Excel

 Скачали:  27 832 чел.

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

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

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

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

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

Установка

Обращаем Ваше внимание, что функционал, описанный в данной статье, ОТСУТСТВУЕТ в Excel.

Чтобы его добавить, необходимо установить надстройку VBA-Excel. Данная программа содержит более сотни функций, которые сделают работу с Excel в разы эффективней. С ней рутинные задачи будут занимать считанные секунды. Программой уже воспользовались 27 832 чел., попробуйте и Вы!


Установите программу

Ссылки по теме

  1. Резервное копирование файла Excel
  2. Отделить папку расположения файла по полному пути
  3. Определение расположения активной книги Excel
  4. Как скопировать ссылку на текущий файл Excel

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

comments powered by Disqus