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