Summe aus mehreren Dateien

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub N30() Dim Pfad As String, Dateiname As String Dim Twb As Workbook Set Twb = ThisWorkbook Pfad = "C:\DeinPfad\" 'Backslash am Ende wichtig Dateiname = Dir(Pfad & "*.xlsx") 'wenn es .xlsx-Dateien sind Application.ScreenUpdating = False Do While Dateiname "" Workbooks.Open FileName:=Pfad & Dateiname With Workbooks(Dateiname) Twb.Sheets("Tabelle1").Range("A1") = CDbl(Twb.Sheets("Tabelle1").Range("A1")) + . _ Sheets("Tabelle1").Range("N30") 'hier nur die Tabellennamen und Zielzelle anpassen .Close savechanges:=False End With Dateiname = Dir() Loop End Sub

@Torsten:
Vielen Dank für die Mühen des Codes. Der funktioniert auch sehr gut und simpel.
Leider haben sich bei über 10.0000 Dateien auch einige eingeschlichen, die das Format nicht halten, sodass ein "Indexfehler" erscheint. Kann man noch etwas zur Fehlerbehebung einbauen?
Und kann man das öffnen jeder Datei verhindern, um die Zeit des Vorgangs zu verkürzen?
Vielen Dank, es funktioniert aber grundsätzlich sehr gut!
@Günther:
Eine stark anonymisierte Testdatei finden Sie hier:
https://www.herber.de/bbs/user/131805.xls
Der Aufbau der Datei ist immer identisch, sodass einfach der Wert in "N30" verändert werden kann und es neu gespeichert werden kann (=mehrere Dateien).
Da mich die Art von Power Query auch interessiert, bzw. ob es mit Power Query funktionieren würde.
Danke & Gruß
Philip

Dann koennte man das so abfangen. Der Code sucht nach dem Blattnamen. Wenn das nicht vorhanden ist, gehts einfach weiter zur naechsten Datei.
Das Oeffnen der Dateien muss leider sein, aber ich hab das hier geloest, indem ich diese in einer extra Excel Instanz im Hintergrund oeffne. Dadurch ist das nicht mehr sichtbar und geht, hoffe ich etwas schneller.


Sub N30()
Dim Pfad As String, Dateiname As String, Quelle As String, Ziel As String
Dim Twb As Workbook
Dim ws As Worksheet
Set Twb = ThisWorkbook
Quelle = "Quelltabellenname"     'hier den Namen der gesuchten Tabelle eingeben
Ziel = "Zieltabellenname"   'hier den Namen der Tabelle, wohin kopiert wird
Pfad = "C:\DeinPfad\"      'Backslash am Ende wichtig
Dateiname = Dir(Pfad & "*.xlsx")    'wenn es .xlsx-Dateien sind, sonst Endung anpassen
Application.ScreenUpdating = False
Do While Dateiname  ""
With CreateObject("Excel.Application")
With .Workbooks.Open(Pfad & Dateiname)
For Each ws In .Sheets
If ws.Name = Quelle Then
Twb.Sheets(Ziel).Range("A1") = CDbl(Twb.Sheets(Ziel).Range("A1")) + . _
Sheets(Quelle).Range("N30")
End If
Next ws
Dateiname = Dir()
End With
.Quit
End With
Loop
End Sub

Probier mal und lass mich wissen, was du denkst.
Gruss Torsten

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe aus mehreren Dateien

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread