wieso meckert der PC bei foldendem Code: 'Typen unverträglich:'Range'
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
With xlSheet.QueryTables.Add(Connection="TEXT;C:\down.txt", Destination _
=Range("A1"))
Gruss, Moritz