XML-Dateien mit Excel öffnen und Fehlerausgabe
23.06.2005 15:54:42
Helmut
ich habe wieder mal eine Frage:
Der Micha hat mir da vor ca. 2 Tagen schon recht viel weitergeholfen.
Ich wollte in einem Verzeichnis eine XML-Datei öffnen-Daraus wird ein Wert zwischen 2 Strings (Tags) ausgelesen-Dieser Wert wird dann in eine Zelle ins Excel-File ausgegeben.
Wenn das File im Verzeichnis nicht vorhanden ist, wird eine Fehlermeldung ausgegeben.
Das funktioniert auch gut mit einem Klick auf einen Button in Excel.
Was ich nun möchte ist das (nacheinander) Öffnen und Auslesen von 3 XML-Dateien mit einem Mausklick auf den Button; also ich möchte dasselbe wie oben beschrieben, nur mit 3 Dateien und 3 verschiedenen Fehlermeldungen, wenn die Dateien nicht im Verzeichnis sind.
Ich denke, dass ich eine Fehlermeldung bekomme, weil die "Exit Sub" dazwischen sind; wegnehmen verbaut mir aber die Möglichkeit 3 verschiedene Fehlermeldungen zu bekommen.
Ich bitte euch um eine genaue Scriptangabe und hoffe auf eure Hilfe.
Hier der Teil, der für eine Datei super funktioniert:
Private Sub CommandButton5_Click()
' Öffnet die XML-Files mit den angelegten Werten und gibt diese in das Excel-File in die entsprechenden Zellen aus
Dim s As String
Const b = "<EPREIS>"
Const c = "</EPREIS>"
Open "Q:\Auto.xml" For Binary As #1
s = Space(LOF(1))
Get #1, , s
Close #1
On Error GoTo Fehler
Worksheets("Tabelle1").Range("D52") = Mid(s, InStr(s, b) + Len(b), InStr(InStr(s, b), s, c) - InStr(s, b) - Len(b))
Exit Sub
Fehler: MsgBox "Kein Preis des Autos gefunden!", vbExclamation
End Sub
Danke im Voraus!
LG
Helmut