Excel: переоткрытие текущего файла в новом окне

Если говорить о Excel, то в нем иногда встречаются непонятные моменты, которые почему-то от версии к версии присутствуют. Одной из таких является открытие документов в одном окне. Есть целая ветка о решении данной проблемы на соответствующем форуме. В общем, таких советов много, можно без проблем нагуглить.

Опять встретившись с этой проблемой, решил, что нужен способ элегантней, чем предлагают другие пользователи. Сначала покажу самый простой способ открытия файла во втором окне, а потом еще и автоматизируем это дело.

Без лишний модификаций, самый простой и доступный метод заключается в вызове через ярлык главного меню Excel

или быстрый запуск нового экземпляра Excel через комбинацию клавиш Win+R (команда «Выполнить»)

Открывается новое окно, и уже в него перетягивается файл из проводника или любого другого файлменеджера. Все просто. Много щелчков мышки, но результат вполне сносный.

Но есть способ получше - добавить в личную книгу макросов следующий код:

Sub ОткрытьВНовомОкне()
    Set newWindow = CreateObject("Excel.Application")
    fullname= ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    newWindow.Workbooks.Open (fullname)
    newWindow.Visible = True
    ActiveWorkbook.Close (False)
End Sub

Скачать macro_opennewwindow.txt ¹⁵

Как добавлять свои макросы в личную книгу написано подробно тут

Для тестирования откроем последовательно файлы, они находятся в одном окне

Запускаем макрос «ОткрытьВНовомОкне»

И получаем текущий файл в новом окне

Через несколько секунд Excel уведомит, что файл можно запустить для редактирования, нажимаем «Чтение и запись»

Далее работаем как умеем обычно

Поделиться с друзьями: