AW: Daten aus einem Verzeichnis auslesen
tobias
Hallo
folgende Prozedur ist nur ein ungetestetes Beispiel. Variablennamen und programmierart könnten noch verbessert werden...
Sub konsolidieren(Pfad As String)
Dim NeuAPP As New Excel.Application, Tabelle As Worksheet
Dim Wert As Double, i As Long, AktivMapp As String, Zähler As Long
Dim Feld() As String, Fcount As Integer, NeuAPPMapp As String
ReDim Feld(0 To 6)
With Application.FileSearch
.LookIn = Pfad
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 1 Then
Workbooks.Add
Worksheets("Tabelle3").Delete
Worksheets("Tabelle2").Delete
Worksheets("Tabelle1").Name = "Daten"
AktivMapp = activeWorkbook.Name
for i = 1 To .FoundFiles.Count
NeuAPP.Workbooks.Open .FoundFiles(i)
For Each Tabelle In NeuAPP.ActiveWorkbook.Worksheets
Wert = Wert + Tabelle.Range("L55") ' oder Wert = Wert + Val(Tabelle.Range("L55"))'testen, je nach Formatierung
for Fcount = 1 To 6
Feld(Fcount) = Tabelle.Cells((Fcount + 16), 4)
next
NeuAPPMapp = NeuAPP.ActiveWorkbook.Name
Workbooks(AktivMapp).activate
For Fcount = 1 To 6
Worksheets("Daten").Cells((Zähler + Fcount), 1) = Feld(Fcount)
Next
Worksheets("Daten").Range("L55") = Wert
NeuAPP.Workbooks(NeuAPPMapp).Activate
Erase Feld
Zähler = Zähler + 6
Next
NeuAPP.ActiveWorkbook.Close false
Next
End if
End With
End Sub
mfg tobias