Alle Excel-Dateien eines Ordners öffnen, bearbeiten und ohne zu speichern schliessen

Um aus einem vorgegebenen Pfad alle Exceldateien weiter zu verarbeiten nutze ich das nachstehende Codegerüst von Max (Nepumuk). Option Explicit Public Sub Alle_Dateien() '//deklarationen Dim strFileName As String Dim objWorkbook As Workbook '//Errorhandler initialisieren On Error GoTo err_exit '//erste Excelmappe suchen - Ordner anpassen !!! strFileName = Dir$("D:\Eigene Dateien\Eigene Tabellen\*.xls", vbNormal) '//wenn eine Excelmappe gefunden wurde If strFileName <> "" Then '//Schleife starten Do '//Excelmappe öffnen Set objWorkbook = Workbooks.Open(Filename:=strFileName) '//Hier kommt jetzt dein Code '//Excelmappe schließen - ohne zu speichern = False / mit speichern = True objWorkbook.Close SaveChanges:=False '//nächste Excelmappe suchen strFileName = Dir$ '//wird keine Mappe mehr gefunde Schleife verlassen Loop Until strFileName = "" End If Exit Sub err_exit: MsgBox "Fehler " & CStr(Err.Number) & vbLf & vbLf & _ Err.Description, vbCritical, "Fehlermeldung" End Sub

So kann man sich zB Werte der verschiedenen Dateien in eine zusammenfassenden Datei wegschreiben.Share on Facebook

Read more http://vba-codeschnipsel.de/alle-excel-dateien-eines-ordners-offnen-bearbeiten-und-ohne-zu-speichern-schliessen/