ワークブックをループするときに正しいワークシート名を取得できません

Question

ワークシート名を確認して複数のワークブックからデータを収集しようとしています。 しかし、ワークシート名（Raw Data）をチェックするためにコードを実行すると、結果が間違っています。コードはSheet1とSheet2のみを返します。以下 コードです：常にあなたからVBAコードを実行しているワークブック内のワークシートのコレクションをチェックし、あなたのために、それぞれの「はThisWorkbook」を通じて、あなたループため

Function WorksheetRAWExists(wsName As String) As Boolean 

Dim ws As Worksheet 
Dim ret As Boolean 

ret = False 
wsName = UCase(wsName) 
For Each ws In ThisWorkbook.Sheets 
    If UCase(ws.Name) = "RAW DATA" Then 
     ret = True 
     Exit For 
    End If 
Next 
WorksheetRAWExists = ret 

End Function 

Answer 1

これが起こります。あなたはすべての開いているブックにすべてのシートをループするために探しているなら

あなたがそうのような何かができる：

Sub test() 
Dim wbk As Workbook, ws As Worksheet 

For Each wbk In Workbooks 
    For Each ws In wbk.Worksheets 
     MsgBox ws.Name 
    Next ws 
Next wbk 

End Sub 

編集：

また、ワークブック名​​またはインデックスを渡すことができます（またはワークブック参照自体）を関数に渡し、すべての開いているワークブックをループすることが必要でない場合は、ワークブックコレクションの特定の参照を確認します。