Option Explicit
Public Sub GPE()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ChonO As Object, ChonF As Object, pFile, Path, ShMain As Worksheet
Dim fil As Object, Wb As Workbook, Sh As Worksheet, WbMain As Workbook
Dim Arr, dArr, I As Long, J As Long, K As Long
pFile = ActiveWorkbook.Name
Set WbMain = ActiveWorkbook
Set ShMain = WbMain.Sheets("Sheet1")
dArr = ShMain.Range("B9", ShMain.Range("B9").End(4)).Resize(, 11).Formula
Path = ThisWorkbook.Path & "\"
Set ChonO = CreateObject("Scripting.FileSystemObject")
Set ChonF = ChonO.GetFolder(Path)
For Each fil In ChonF.Files
If InStr(1, fil.Name, pFile) < 1 Then
Set Wb = Workbooks.Open(fil.Path)
Set Sh = Wb.Sheets(1)
Arr = Sh.Range("C56:C60").Value
K = K + 1
dArr(K, 1) = ChonO.GetBaseName(fil)
dArr(K, 3) = Arr(1, 1)
dArr(K, 4) = Arr(2, 1)
dArr(K, 6) = Arr(3, 1)
dArr(K, 8) = Arr(4, 1)
dArr(K, 10) = Arr(5, 1)
Workbooks(fil.Name).Close
End If
Next fil
ShMain.Range("B9", ShMain.Range("B9").End(4)).Resize(, 11) = dArr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
