ActiveWindow.NewWindow Windows("aFile.xlsm:1").Activate 不适用于 Excel 365

Question

这是我原来的问题，

如何检查“afile.xlsm:2”是否已经打开 VBA

我正在 Excel 2013 上构建我的工作簿，上述解决方案有效。 Office 已升级到“Office 365”。 我注意到在“Excel 365”打开新窗口后，与“aFile.xlsm:1”和“aFile.xlsm:2”相比，它调用打开的窗口“aFile.xlsm - 1”和“aFile.xlsm - 2”

由于我的调试器在线指出“运行时错误‘9’下标超出范围”

Windows("aFile.xlsm:1").Activate

，我尝试更改我的 VBA 代码以识别“aFile.xlsm - 1”和“aFile.xlsm - 2”，但没有成功。

Function AlreadyOpen(sFname As String) As Boolean
    Dim wkb As Workbook
    'Dim sFname As String
    sFname = "aFile.xlsm:2"
    On Error Resume Next
    Set wkb = Workbooks(sFname)
    AlreadyOpen = Not wkb Is Nothing
    Set wkb = Nothing
End Function

...省略，我认为是与此问题相关的不必要代码。

Dim sFilename As String

sFilename = "aFile.xlsm:2"

If AlreadyOpen(sFilename) Then
    Sheets("Sheet2").ListObjects("Table24").Range.AutoFilter Field:=5, Criteria1:=SearchString
Else
    If myButton.Text = "SITE" Then
    Sheets("Sheet1").Select
    ActiveWindow.NewWindow
    Windows("aFile.xlsm:1").Activate
    Windows("aFile.xlsm:2").Activate
    Windows.Arrange ArrangeStyle:=xlVertical
    Sheets("Sheet2").Select
    ActiveWindow.Zoom = 55

    ActiveSheet.ListObjects("Table24").Range.AutoFilter Field:=5, Criteria1:=SearchString
    End If
End If
Exit Sub

End Sub

如何让此代码在 Excel 2013 和 Excel 365 上运行？ 我宁愿不编译；

computername = Environ("computer name") 'Get computer name
username = Environ("user name") 'Get user name 

进入 if 语句。

Answer 1

当你打开两个窗口时运行它可能是值得的

Dim w As Window
For Each w In Application.Windows
    Debug.Print w.Caption
Next w

然后只需将即时窗口中的结果复制/粘贴到 vba 代码的适当区域，因为窗口标题中可能存在您无法识别的字符。

此外，如果你想走一条更动态的路线，你可以做类似的事情

Dim w As Window
For Each w In Application.Windows
    If w.Caption LIKE "*aFile*2*" Then '<- the same would be used for "*aFile*1*"
        w.Activate
        Exit For
    End if
Next w

也会起作用。

Answer 2

在 O365 中，标题已从“:1”更改为“-1”

您可以通过 Debug.Print Activewindow.caption 对此进行标识

您会注意到“-”前后有 (2) 个空格