VBA Excel - .Windowは開いているExcelのウィンドウを認識しません

Question

以下のコードは、ファイル名が命名規則に近いものであれば、開いているExcelファイルをループし、if文でコードを実行して、後で保存します

このコードはExcel 2003で動作しますが、Excelの各部ではなく、myWindow.Captionは5つではなく1つのファイル名しか表示されません。私は2010年のすべてのファイルをループするのに何が欠けていますか？

FYI - Forループの複数のインスタンスがありますが、すべて同じコードなので、ここに貼り付けられません。あなたがそれを望むなら、私を知ってみましょうが、それは十分に同じ

複数のExcelインスタンスの場合

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

の近くにあるこの答えを見てみましょう： Can VBA Reach Across Instances of Excel?

これは、Excelの1つのインスタンスのために働く：

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