VBA Excel - .Window 无法识别打开的 Excel 窗口

Question

如果文件名与命名约定接近，下面的代码将循环打开打开的 excel 文件，然后运行 ​​if 语句中的代码，以便以后保存文件

此代码在 excel 2003 中有效，但在 excel 2010 中无效，查看代码的每个部分，myWindow.Caption 似乎只获得 1 个文件名，而不是应该有的 5 个。我错过了什么让它循环遍历 2010 年的所有文件？

仅供参考 - For 循环有多个实例，但由于它们都是相同的代码，我没有在这里粘贴。如果你想要它，请告诉我，但它足够相似

Sub File_Saver()
    Dim iFileCount As Integer
    Dim myWindow As Window
    Dim r As Integer

    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With

    For Each myWindow In Application.Windows
        If LCase(myWindow.Caption) Like LCase("CHL?ISS*") Then

            iFileCount = 1
            r = 21

            myWindow.Activate
            'Set Column
            c = B

            GoTo Continue
            Exit For
        End If
    Next myWindow

Answer 1

对于多个 Excel 实例，请查看以下答案： Can VBA Reach Across Instances of Excel?

这适用于 Excel 的一个实例：

Dim workBooks as Workbooks    
Dim book As Workbook
Set workBooks = Application.Workbooks
For Each book In workbooks
    If LCase(book.Name) Like LCase("CHL?ISS*") Then
        iFileCount = 1
        r = 21
        book.Activate
        c = B
        ' Not sure where the Continue: statement is
        GoTo Continue
Exit For
    End If
Next