Sub Datenholen()
    Dim fs, f, f1, fc, vdummy
    Dim vPfad As String
 
    vPfad = "C:\VBArchiv\" 'ÄNDERN!
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(vPfad)
    Set fc = f.Files
 
    For Each f1 In fc
 
        Set vdummy = Workbooks.Open(vPfad & f1.Name)
 
        vdummy.Sheets(1).UsedRange.Cells.Copy
 
        ThisWorkbook.Sheets(1).Range("A" & ThisWorkbook.Sheets( _
          1).UsedRange.Rows.Count).PasteSpecial xlValue
 
        vdummy.Saved = True
        vdummy.Close
    Next
 
 
End Sub