Startseite Inhaltsverzeichnis Nutzungsbedingungen Datenschutz Impressum Weitere Informationen

CODE-SCHNIPSEL

Änderungen in mehreren Dateien automatisch vornehmen

VBA und Makros • Codeschnipsel • Dateien aktualisieren

Ausgangslage ... Was tut der Codeschnipsel?

Ein immer wieder beliebtes Thema: Das Durchführen von Änderungen in mehreren Arbeitsmappen / Dateien und das vollautomatisch. Hierzu habe ich ein kleines Beispiel geschrieben. Einfach entsprechend anpassen und schon haben Sie eine Automatisierung Ihres Updatevorganges realisiert.

VBAVBA Codeschnipsel
XLSQuelltext zur Verwendung mit Microsoft® Excel®

Der Quelltext ...

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_multidateiupdate.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************


' ACHTUNG: ALLE DATEIEN IN DEM ANGEGEBENEN PFAD WERDEN UNWIDERRUFLICH GEÄNDERT!
' DENKEN SIE IMMER AN EINE AUSREICHENDE DATENSICHERUNG!!!

Public Sub OVBAde_MultiDateiUpdate()
  Dim oSourceBook As Object
  Dim sPfad As String
  Dim sDatei As String
    
    Application.ScreenUpdating = False 'Das "Flackern" ausstellen
    
    'Schritt 1: Schleife über alle Excel Dateien in einem Verzeichnis
    sPfad = "C:\TEST\Sammlung\"
    sDatei = Dir(CStr(sPfad & "*.xl*")) 'Alle Excel Dateien
    
    Do While sDatei <> ""
    
        'Schritt 2: Öffnen der Datei und Datenübertragung
        Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, False) 'nur lesend öffnen
        
        'Änderungen durchführen, als Beispiel Zelle A1 mit "Hallo" befüllen
        oSourceBook.Sheets("Tabelle1").Cells(1, 1).Value = "Hallo"
        
        'Schritt 3: Datei speichern und wieder zu machen und nächste Schleifenrunde
        Application.DisplayAlerts = False
        oSourceBook.Close True 'speichern
        Application.DisplayAlerts = True
        
        'Nächste Datei
        sDatei = Dir()
    Loop
    
    Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
    
    'Variablen aufräumen
    Set oSourceBook = Nothing
End Sub

Anmerkungen und Hinweise ...

ACHTUNG: Alle Dateien im angegebenen Pfad werden UNWIDERRUFLICH geändert!
DENKEN SIE IMMER AN EINE AUSREICHENDE DATENSICHERUNG!!!


Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Es gelten die Nutzungsbedingungen von Online-VBA.de.
TOTOP
ANZEIGE