VBA çalışıyorum, ve bir dize örneğin ayrıştırmak istiyor

<PointN xsi:type='typens:PointN' 
xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' 
xmlns:xs='http://www.w3.org/2001/XMLSchema'>
    <X>24.365</X>
    <Y>78.63</Y>
</PointN>

ve iki ayrı tamsayı değişkenleri X Ve Y değerleri.

Ben çalışma alanını yüzünden VB6 ve VBA girmiş olduğum XML geldiğinde bir acemi değilim.

Bunu nasıl yapabilirim?

İşaretçiler için teşekkür ederiz.

Bu sorun için en iyi yaklaşım olup olmadığını bilmiyorum, ama ben işe aldım. Microsoft XML, v2 değinmiştim.Benim VBA ve aşağıdaki kod parçacığını, 6 dll bana gereken değerleri verir

Dim objXML As MSXML2.DOMDocument

    Set objXML = New MSXML2.DOMDocument

    If Not objXML.loadXML(strXML) Then  'strXML is the string with XML'
        Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason
    End If

Dim point As IXMLDOMNode
Set point = objXML.firstChild

Debug.Print point.selectSingleNode("X").Text
Debug.Print point.selectSingleNode("Y").Text