Obaj kod bi mogao da posluzi, u neku ruku radi posao. Neko ko se bolje razumije u VBA mogao bi da doradi kod.
Code:
Sub copy_files()
Dim FSO As Object, Folder As Object, file As Object
Dim copyFrom As Workbook
Dim wksCopyTo As Worksheet, wksCopyFrom As Worksheet
Dim rngCopyTo As Range, rngCopyFrom As Range
Set wksCopyTo = ThisWorkbook.Sheets(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\temp")
For Each file In Folder.Files
If LCase(Right(file.Name, 4)) = ".xls Then
Set copyFrom = Workbooks.Open("C:\temp\" & file.Name)
Set wksCopyFrom = copyFrom.Sheets(1)
Set rngCopyFrom = wksCopyFrom.Range("a1")
Set rngCopyFrom = wksCopyFrom.Range(rngCopyFrom, _
rngCopyFrom.SpecialCells(xlCellTypeLastCell))
Set rngCopyTo = wksCopyTo.Range("a1").SpecialCells(xlCellTypeLastCell)
If rngCopyTo.Address <> wksCopyTo.Range("a1").Address Then
Set rngCopyTo = wksCopyTo.Cells(rngCopyTo.Row + 1, 1)
End If
rngCopyFrom.Copy
wksCopyTo.Paste rngCopyTo
Application.CutCopyMode = False
copyFrom.Close False
End If
Next file
End Sub