|
Ich habe einen anderen Weg gefunden - quasi von hinten durch die Brust ins Auge, aber es läuft perfekt.
Sub XLM()
Dim ThisFolder As String
Dim ThisFile As String
ThisFolder = "C:\XML"
ThisFile = Dir(ThisFolder & "\*.xml")
'Kontrolle ob eine Datei vorhanden ist
If Dir(ThisFolder & "\*.xml") = "" Then
MsgBox "ordner leer"
Exit Sub
End If
'öffnen der Quelldatendatei
Do While ThisFile <> ""
Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
ThisFile = Dir
Loop
'Kopieren des Messwerts ins Formblatt
Range("AD3").Select
Selection.Copy
ActiveWindow.Close
ActiveSheet.Paste
'Löschen der Quelldatendatei
ChDir ("C:\XML")
Kill "*.xml"
End Sub
Erstmal wird im Zielordner geschaut, ob eine Datei vorhanden ist. Wenn nein kommt eine Messagesbox. Ansonsten wird die Datei in Excel geöffnet, der Wert kopiert und in die eigentliche Datei eingefügt. Zu guter letzt wird die XML-Datei danach gelöscht.
Vielen Dank für die Hilfen.
VG und ein schönes Wochenende
Jens
|