C:\etwas\test\sample1\results
C:\etwas\test\sample2\results
C:\etwas\test\sample3\results
....
C:\etwas\test\sample1000\results<strong></strong>
<strong>Ich weiß allerdings nicht wie ein allgemeiner loop für eine solche Struktur funktioniert.
Hier das Makro, vielen Dank fürs anschauen im Voraus</strong>
Public
Sub
Alle_Dateien()
Dim
strFileName
As
String
Dim
objWorkbook
As
Workbook
On
Error
GoTo
err_exit
strFileName = Dir$(
"C:\etwas\test\*.csv"
, vbNormal)
If
strFileName <>
"testresults.csv"
Then
Do
Set
objWorkbook = Workbooks.Open(Filename:=strFileName)
Worksheets(
"Tabelle1"
).Cells.Copy
With
Worksheets(
"Zwischenspeicher"
)
.Cells.PasteSpecial Paste:=xlPasteValues
.Cells.PasteSpecial Paste:=xlPasteFormats
End
With
Application.CutCopyMode =
False
Worksheets(
"Auswertung"
).Rows(
"3:3"
).
Select
Selection.Copy
Worksheets(
"Auswertung"
).Range(
"A"
& Cells(Rows.Count, 2).
End
(xlUp).Row + 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
objWorkbook.Close SaveChanges:=
False
strFileName = Dir$
Loop
Until
strFileName =
""
End
If
Exit
Sub
err_exit:
MsgBox
"Fehler "
&
CStr
(Err.Number) & vbLf & vbLf & _
Err.Description, vbCritical,
"Fehlermeldung"
End
Sub