XML Dateien einlesen mit Schleife
08.02.2020 08:30:57
Werner
ich möchte über das Entwicklertool mehrer XML Dateien einlesen. (800 und mehr)
Mit dem Makro Rekorder sieht das dann so aus:
Sub Daten_zuordnen_und_einlesen()
' Daten_zuordnen_und_einlesen Makro
' Datein zuordnen und einlesen
ActiveWorkbook.XmlMaps.Add( _
"G:\Service\Kunden\Kunde_201353_12839.KUNDE", "Kunde").Name = _
"Kunde_Zuordnung"
ActiveWorkbook.XmlMaps("Kunde_Zuordnung").Import URL:= _
"G:\Service\Kunden\Kunde_201353_12839.KUNDE"
ActiveWorkbook.XmlMaps("Kunde_Zuordnung").Import URL:= _
"G:\Service\Kunden\Kunde_201353_13225.KUNDE"
End Sub
Das sind nur 2 der über 800, wie bringt man das in eine Schleife, die Dateien enden alle mit KUNDE.
So wäre sicher gestellt dass wenn Kunden dazu kommen diese auch eingelesen werden.
Danke schon mal im Voraus
Gruß Werner