Как вернуться к основному файлу при открытии нескольких файлов

Question

Я хочу проверить, существуют ли какие-либо значения в других файлах и нужно ли изменить перекрывающуюся ячейку в моем основном файле - например, добавить 1 для каждого X - но без закрытия другого файла, который только что открылся.

Sub ex12()
Dim StdPr As String
Set myrng = Range("B5:P13")

StdPr = Dir("C:\ex12\*.xls")
Do While StdPr <> ""

Workbooks.Open ("C:\ex12\" & StdPr)
  For Each cl In myrng
      If cl.Value = "X" Then
         ' the missing line #
      End If
  Next
     Workbooks(StdPr).Close savechanges:=False
     StdPr = Dir
Loop


 End Sub

Answer 1

Примерно так:

Sub ex12()

    Dim StdPr As String, wb as workbook
    dim shtMaster as worksheet

    set shtMaster = thisworkbook.sheets("Master")   'for example

    StdPr = Dir("C:\ex12\*.xls")
    Do While StdPr <> ""

        Set wb = Workbooks.Open("C:\ex12\" & StdPr)
        For Each cl In wb.worksheets(1).Range("B5:P13").Cells
              If cl.Value = "X" Then
                  with shtMaster.Range(cl.address())
                      .value = .value +1
                  End with   
              End If
        Next
        wb.Close savechanges:=False
        StdPr = Dir()
    Loop

 End Sub