VBA Excel和ActiveWorkbook为空-打开ActiveSheet时出现问题

If Workbooks.Count = 0 Then
    MsgBox "没有打开的工作簿！"
    Exit Sub
End If

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook ' 或者使用具体的工作簿名称，例如：Set wb = Workbooks("工作簿名称.xlsx")
Set ws = wb.ActiveSheet

' 确认是否成功引用了活动表
If ws Is Nothing Then
    MsgBox "活动表为空！"
    Exit Sub
End If

Dim win As Window

For Each win In Application.Windows
    If win.ActiveSheet Is Nothing Then
        MsgBox "活动表为空！"
        Exit Sub
    End If
    
    ' 检查工作簿名称和活动表名称
    If win.ActiveWorkbook.Name = "目标工作簿名称.xlsx" And win.ActiveSheet.Name = "目标活动表名称" Then
        ' 执行相关操作
        Exit For
    End If
Next win