VBAで複数のブックを処理する場合は、どのブックにマクロを入れるのかを書いて下さい。
下記は画像上のブックに入れるマクロで、下のブックは選択するようにしてあります。
Sub Sample()
Dim fname As Variant
Dim wb As Workbook
Dim sh1 As Worksheet, sh2 As Worksheet
Dim tbl As Variant
Dim c As Integer
Dim r As Long
Dim ix As Integer
Application.ScreenUpdating = False
Set sh1 = Worksheets("Sheet1")
With sh1
tbl = Range("C5:D" & .Cells(Rows.Count, "C").End(xlUp).Row)
c = Month(.Range("F2")) * 4 + 4
End With
fname = Application.GetOpenFilename("Excelファイル(*.xls*),*.xls*", MultiSelect:=False)
If fname = "False" Then Exit Sub
Set wb = Workbooks.Open(fname)
Set sh2 = wb.Worksheets("Sheet1")
With sh2
For r = 8 To .Cells(Rows.Count, "A").End(xlUp).Row
For ix = 1 To UBound(tbl)
If .Range("A" & r) = tbl(ix, 2) And .Range("C" & r) = tbl(ix, 1) Then
sh1.Cells(ix + 4, c) = .Range("L" & r)
Exit For
End If
Next ix
Next r
End With
wb.Close
Application.ScreenUpdating = True
End Sub
