einen wert aus einer xml-datei benötige. wie mache ich das? kann man sowas mit einem makro lösen? d. h. z. b. button mit "Wert holen", dann kommt der datei-dialog und ich muss die xml-datei auswählen? der name von dem wert ist immer gleich.
Sub ReadXmlValue()
Dim varName As Variant
Dim objDom As Object
Dim objNode As Object
varName = Application.GetOpenFilename("XML-Datei (*.xml),*.xml,Alle Dateien,*.*")
If varName = False Then Exit Sub
Set objDom = CreateObject("MSXML2.DOMDocument")
If objDom.Load(varName) Then
Set objNode = objDom.selectSingleNode("//LISTPRICE")
If Not objNode Is Nothing Then
Range("A1").Value = objNode.Text
End If
End If
Set objNode = Nothing
Set objDom = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen