Application File Search......Look In......
28.02.2004 14:53:03
André L.
Folgende Frage:
Ich kopiere mittels untenstehenden Codes
mir aus vielen Dateien(max31) die Daten in eine
"Auswertemappe". Nun ist es aber so, dass
die Dateien, manchmal zwei Blätter haben,
diese aber nicht kopiert werden.
Welchen Befehl muss ich einsetzen??
Sub DateienZusammenkopieren()
Dim Mappe As String
Dim i As Integer
Mappe = ActiveWorkbook.Name
Range("A2").Select
With Application.FileSearch
.NewSearch
.LookIn = "c:\Dokumente und Einstellungen\Andre\Desktop\Auswertung\"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Range("A11:J56").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
ActiveCell.Offset(45, 0).Select
Next i
End With
End Sub
Danke schon mal
Gruss André