Excel 2013 SDI закрывает окна в нескольких мониторах

У меня есть несколько мониторов, и я пытаюсь закрыть все открытые окна (и связанные листы), кроме определенного.

Таким образом, предполагая, что открытые листы расположены в:

Windows("Monitors.xlsm:1")
Windows("Monitors.xlsm:2")
Windows("Monitors.xlsm:3")

Как заменить "Monitors.xlsm" текущим именем файла? Сделайте Windows("CurrentfileName.xlsm:1") и связанный лист активным окном и листом, затем закройте Windows и связанные листы:2 &:3?

Источник

1 ответ

Интерфейс единого документа Excel 2013 имеет некоторые особенности по сравнению с тем, что вы могли использовать в предыдущих версиях интерфейса нескольких документов. Я полагаю, что вы ищете .Caption,

Dim w As Object
Debug.Print ThisWorkbook.Windows.Count
For Each w In ThisWorkbook.Windows
    Debug.Print w.Caption
Next w

Дополнительную информацию см. В разделе "Программирование интерфейса с одним документом в Excel 2013".

Источник
Другие вопросы по тегам