Excel 2013 SDI在多个监视器中关闭窗口

Question

我有一个多显示器设置，我试图关闭所有打开的窗口（和相关的工作表），除了特定的一个。

假设打开的工作表位于：

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

如何用当前文件名替换“Monitors.xlsm”？ 使Windows（＆＃34; CurrentfileName.xlsm：1＆＃34;）和相关的工作表成为活动窗口＆amp;工作表，然后关闭Windows和相关的工作表：2＆amp; ：3

Answer 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

Programming for the Single Document Interface in Excel 2013的更多信息。