blocks|key|1568009|text|谢谢你的指点。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1568010|我不知道这是不是解决这个问题的最好方法，但以下是我是如何让它工作的。我在VBA中引用了Microsoft+XML+v2.6DLL，然后下面的代码片段给出了所需的值|1568011|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|code-block|syntax|javascript|1568012|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Thanks for the pointers.
I don't know, whether this is the best approach to the problem or not, but here is how I got it to work.
I referenced the Microsoft XML, v2.6 dll in my VBA, and then the following code snippet, gives me the required values
 
<pre class="lang-vb prettyprint-override"><code>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(&quot;X&quot;).Text
Debug.Print point.selectSingleNode(&quot;Y&quot;).Text
</code></pre>

blocks|key|1783001|text|这是一个使用FeedDemon+OPML文件的opml解析器示例：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1783002|Sub+debugPrintOPML()

'+http://msdn.microsoft.com/en-us/library/ms763720(v=VS.85).aspx
'+http://msdn.microsoft.com/en-us/library/system.xml.xmlnode.selectnodes.aspx
'+http://msdn.microsoft.com/en-us/library/ms256086(v=VS.85).aspx+'+expressions
'+References:+Microsoft+XML

Dim+xmldoc+As+New+DOMDocument60
Dim+oNodeList+As+IXMLDOMSelection
Dim+oNodeList2+As+IXMLDOMSelection
Dim+curNode+As+IXMLDOMNode
Dim+n+As+Long,+n2+As+Long,+x+As+Long

Dim+strXPathQuery+As+String
Dim+attrLength+As+Byte
Dim+FilePath+As+String

FilePath+=+"rss.opml"

xmldoc.Load+CurrentProject.Path+&+"\"+&+FilePath

strXPathQuery+=+"opml/body/outline"
Set+oNodeList+=+xmldoc.selectNodes(strXPathQuery)

For+n+=+0+To+(oNodeList.length+-+1)
++++Set+curNode+=+oNodeList.Item(n)
++++attrLength+=+curNode.Attributes.length
++++If+attrLength+>+1+Then+'+or+2+or+3
++++++++Call+processNode(curNode)
++++Else
++++++++Call+processNode(curNode)
++++++++strXPathQuery+=+"opml/body/outline[position()+=+"+&+n+%2B+1+&+"]/outline"
++++++++Set+oNodeList2+=+xmldoc.selectNodes(strXPathQuery)
++++++++For+n2+=+0+To+(oNodeList2.length+-+1)
++++++++++++Set+curNode+=+oNodeList2.Item(n2)
++++++++++++Call+processNode(curNode)
++++++++Next
++++End+If
++++++++Debug.Print+"----------------------"
Next

Set+xmldoc+=+Nothing

End+Sub

Sub+processNode(curNode+As+IXMLDOMNode)

Dim+sAttrName+As+String
Dim+sAttrValue+As+String
Dim+attrLength+As+Byte
Dim+x+As+Long

attrLength+=+curNode.Attributes.length

For+x+=+0+To+(attrLength+-+1)
++++sAttrName+=+curNode.Attributes.Item(x).nodeName
++++sAttrValue+=+curNode.Attributes.Item(x).nodeValue
++++Debug.Print+sAttrName+&+"+=+"+&+sAttrValue
Next
++++Debug.Print+"-----------"

End+Sub|code-block|syntax|javascript|1783003|这是一个多层文件夹树(Awasu，NewzCrawler)：|1783004|...
Call+xmldocOpen4
Call+debugPrintOPML4(Null)
...

Dim+sText4+As+String

Sub+debugPrintOPML4(strXPathQuery+As+Variant)

Dim+xmldoc4+As+New+DOMDocument60
'Dim+xmldoc4+As+New+MSXML2.DOMDocument60+'+?
Dim+oNodeList+As+IXMLDOMSelection
Dim+curNode+As+IXMLDOMNode
Dim+n4+As+Long

If+IsNull(strXPathQuery)+Then+strXPathQuery+=+"opml/body/outline"

'+http://msdn.microsoft.com/en-us/library/ms754585(v=VS.85).aspx
xmldoc4.async+=+False
xmldoc4.loadXML+sText4
If+(xmldoc4.parseError.errorCode+<>+0)+Then
+++Dim+myErr
+++Set+myErr+=+xmldoc4.parseError
+++MsgBox+("You+have+error+"+&+myErr.reason)
Else
'+++MsgBox+xmldoc4.xml
End+If

Set+oNodeList+=+xmldoc4.selectNodes(strXPathQuery)

For+n4+=+0+To+(oNodeList.length+-+1)
++++Set+curNode+=+oNodeList.Item(n4)
++++Call+processNode4(strXPathQuery,+curNode,+n4)
Next

Set+xmldoc4+=+Nothing

End+Sub

Sub+processNode4(strXPathQuery+As+Variant,+curNode+As+IXMLDOMNode,+n4+As+Long)

Dim+sAttrName+As+String
Dim+sAttrValue+As+String
Dim+x+As+Long

For+x+=+0+To+(curNode.Attributes.length+-+1)
++++sAttrName+=+curNode.Attributes.Item(x).nodeName
++++sAttrValue+=+curNode.Attributes.Item(x).nodeValue
++++'If+sAttrName+=+"text"
++++Debug.Print+strXPathQuery+&+"+::+"+&+sAttrName+&+"+=+"+&+sAttrValue
++++'End+If
Next
++++Debug.Print+""

If+curNode.childNodes.length+>+0+Then
++++Call+debugPrintOPML4(strXPathQuery+&+"[position()+=+"+&+n4+%2B+1+&+"]/"+&+curNode.nodeName)
End+If

End+Sub

Sub+xmldocOpen4()

Dim+oFSO+As+New+FileSystemObject+'+Microsoft+Scripting+Runtime+Reference
Dim+oFS
Dim+FilePath+As+String

FilePath+=+"rss_awasu.opml"
Set+oFS+=+oFSO.OpenTextFile(CurrentProject.Path+&+"\"+&+FilePath)
sText4+=+oFS.ReadAll
oFS.Close

End+Sub|1783005|或者更好：|1783006|Sub+xmldocOpen4()

Dim+FilePath+As+String

FilePath+=+"rss.opml"

'+function+ConvertUTF8File(sUTF8File):
'+http://www.vbmonster.com/Uwe/Forum.aspx/vb/24947/How-to-read-UTF-8-chars-using-VBA
'+loading+and+conversion+from+Utf-8+to+UTF
sText8+=+ConvertUTF8File(CurrentProject.Path+&+"\"+&+FilePath)

End+Sub|1783007|但我不明白，为什么每次都要加载xmldoc4。|1783008|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|Y|8|@]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

This is an example OPML parser working with FeedDemon opml files:

 

<pre class="lang-vb prettyprint-override"><code>Sub debugPrintOPML()

' http://msdn.microsoft.com/en-us/library/ms763720(v=VS.85).aspx
' http://msdn.microsoft.com/en-us/library/system.xml.xmlnode.selectnodes.aspx
' http://msdn.microsoft.com/en-us/library/ms256086(v=VS.85).aspx ' expressions
' References: Microsoft XML

Dim xmldoc As New DOMDocument60
Dim oNodeList As IXMLDOMSelection
Dim oNodeList2 As IXMLDOMSelection
Dim curNode As IXMLDOMNode
Dim n As Long, n2 As Long, x As Long

Dim strXPathQuery As String
Dim attrLength As Byte
Dim FilePath As String

FilePath = "rss.opml"

xmldoc.Load CurrentProject.Path &amp; "\" &amp; FilePath

strXPathQuery = "opml/body/outline"
Set oNodeList = xmldoc.selectNodes(strXPathQuery)

For n = 0 To (oNodeList.length - 1)
 Set curNode = oNodeList.Item(n)
 attrLength = curNode.Attributes.length
 If attrLength &gt; 1 Then ' or 2 or 3
 Call processNode(curNode)
 Else
 Call processNode(curNode)
 strXPathQuery = "opml/body/outline[position() = " &amp; n + 1 &amp; "]/outline"
 Set oNodeList2 = xmldoc.selectNodes(strXPathQuery)
 For n2 = 0 To (oNodeList2.length - 1)
 Set curNode = oNodeList2.Item(n2)
 Call processNode(curNode)
 Next
 End If
 Debug.Print "----------------------"
Next

Set xmldoc = Nothing

End Sub

Sub processNode(curNode As IXMLDOMNode)

Dim sAttrName As String
Dim sAttrValue As String
Dim attrLength As Byte
Dim x As Long

attrLength = curNode.Attributes.length

For x = 0 To (attrLength - 1)
 sAttrName = curNode.Attributes.Item(x).nodeName
 sAttrValue = curNode.Attributes.Item(x).nodeValue
 Debug.Print sAttrName &amp; " = " &amp; sAttrValue
Next
 Debug.Print "-----------"

End Sub
</code></pre>

This one takes multilevel trees of folders (Awasu, NewzCrawler):

<pre class="lang-vb prettyprint-override"><code>...
Call xmldocOpen4
Call debugPrintOPML4(Null)
...

Dim sText4 As String

Sub debugPrintOPML4(strXPathQuery As Variant)

Dim xmldoc4 As New DOMDocument60
'Dim xmldoc4 As New MSXML2.DOMDocument60 ' ?
Dim oNodeList As IXMLDOMSelection
Dim curNode As IXMLDOMNode
Dim n4 As Long

If IsNull(strXPathQuery) Then strXPathQuery = "opml/body/outline"

' http://msdn.microsoft.com/en-us/library/ms754585(v=VS.85).aspx
xmldoc4.async = False
xmldoc4.loadXML sText4
If (xmldoc4.parseError.errorCode &lt;&gt; 0) Then
 Dim myErr
 Set myErr = xmldoc4.parseError
 MsgBox ("You have error " &amp; myErr.reason)
Else
' MsgBox xmldoc4.xml
End If

Set oNodeList = xmldoc4.selectNodes(strXPathQuery)

For n4 = 0 To (oNodeList.length - 1)
 Set curNode = oNodeList.Item(n4)
 Call processNode4(strXPathQuery, curNode, n4)
Next

Set xmldoc4 = Nothing

End Sub

Sub processNode4(strXPathQuery As Variant, curNode As IXMLDOMNode, n4 As Long)

Dim sAttrName As String
Dim sAttrValue As String
Dim x As Long

For x = 0 To (curNode.Attributes.length - 1)
 sAttrName = curNode.Attributes.Item(x).nodeName
 sAttrValue = curNode.Attributes.Item(x).nodeValue
 'If sAttrName = "text"
 Debug.Print strXPathQuery &amp; " :: " &amp; sAttrName &amp; " = " &amp; sAttrValue
 'End If
Next
 Debug.Print ""

If curNode.childNodes.length &gt; 0 Then
 Call debugPrintOPML4(strXPathQuery &amp; "[position() = " &amp; n4 + 1 &amp; "]/" &amp; curNode.nodeName)
End If

End Sub

Sub xmldocOpen4()

Dim oFSO As New FileSystemObject ' Microsoft Scripting Runtime Reference
Dim oFS
Dim FilePath As String

FilePath = "rss_awasu.opml"
Set oFS = oFSO.OpenTextFile(CurrentProject.Path &amp; "\" &amp; FilePath)
sText4 = oFS.ReadAll
oFS.Close

End Sub
</code></pre>

or better:

<pre class="lang-vb prettyprint-override"><code>Sub xmldocOpen4()

Dim FilePath As String

FilePath = "rss.opml"

' function ConvertUTF8File(sUTF8File):
' http://www.vbmonster.com/Uwe/Forum.aspx/vb/24947/How-to-read-UTF-8-chars-using-VBA
' loading and conversion from Utf-8 to UTF
sText8 = ConvertUTF8File(CurrentProject.Path &amp; "\" &amp; FilePath)

End Sub
</code></pre>

but I don't understand, why xmldoc4 should be loaded each time.

blocks|key|1783059|text|您可以使用XPath查询：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1783060|Dim+objDom+As+Object++++++++'//+DOMDocument
Dim+xmlStr+As+String,+_
++++xPath+As+String

xmlStr+=+_
++++"<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>"

Set+objDom+=+CreateObject("Msxml2.DOMDocument.3.0")+++++'//+Using+MSXML+3.0

'/*+Load+XML+*/
objDom.LoadXML+xmlStr

'/*
'+*+XPath+Query
'+*/++++++++

'/*+Get+X+*/
xPath+=+"/PointN/X"
Debug.Print+objDom.SelectSingleNode(xPath).text

'/*+Get+Y+*/
xPath+=+"/PointN/Y"
Debug.Print+objDom.SelectSingleNode(xPath).text|code-block|syntax|javascript|1783061|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You can use a XPath Query: 

 

<pre class="lang-vb prettyprint-override"><code>Dim objDom As Object '// DOMDocument
Dim xmlStr As String, _
 xPath As String

xmlStr = _
 "&lt;PointN xsi:type='typens:PointN' " &amp; _
 "xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' " &amp; _
 "xmlns:xs='http://www.w3.org/2001/XMLSchema'&gt; " &amp; _
 " &lt;X&gt;24.365&lt;/X&gt; " &amp; _
 " &lt;Y&gt;78.63&lt;/Y&gt; " &amp; _
 "&lt;/PointN&gt;"

Set objDom = CreateObject("Msxml2.DOMDocument.3.0") '// Using MSXML 3.0

'/* Load XML */
objDom.LoadXML xmlStr

'/*
' * XPath Query
' */ 

'/* Get X */
xPath = "/PointN/X"
Debug.Print objDom.SelectSingleNode(xPath).text

'/* Get Y */
xPath = "/PointN/Y"
Debug.Print objDom.SelectSingleNode(xPath).text
</code></pre>

blocks|key|1783143|text|这是一个解析包含结构钢形状数据的MicroStation+Triforma+XML文件的短子。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1783144|'location+of+triforma+structural+files
'c:\programdata\bentley\workspace\triforma\tf_imperial\data\us.xml

Sub+ReadTriformaImperialData()
Dim+txtFileName+As+String
Dim+txtFileLine+As+String
Dim+txtFileNumber+As+Long

Dim+Shape+As+String
Shape+=+"w12x40"

txtFileNumber+=+FreeFile
txtFileName+=+"c:\programdata\bentley\workspace\triforma\tf_imperial\data\us.xml"

Open+txtFileName+For+Input+As+#txtFileNumber

Do+While+Not+EOF(txtFileNumber)
Line+Input+#txtFileNumber,+txtFileLine
++++If+InStr(1,+UCase(txtFileLine),+UCase(Shape))+Then
++++++++P1+=+InStr(1,+UCase(txtFileLine),+"D=")
++++++++D+=+Val(Mid(txtFileLine,+P1+%2B+3))

++++++++P2+=+InStr(1,+UCase(txtFileLine),+"TW=")
++++++++TW+=+Val(Mid(txtFileLine,+P2+%2B+4))

++++++++P3+=+InStr(1,+UCase(txtFileLine),+"WIDTH=")
++++++++W+=+Val(Mid(txtFileLine,+P3+%2B+7))

++++++++P4+=+InStr(1,+UCase(txtFileLine),+"TF=")
++++++++TF+=+Val(Mid(txtFileLine,+P4+%2B+4))

++++++++Close+txtFileNumber
++++++++Exit+Do
++++End+If
Loop
End+Sub|code-block|syntax|javascript|1783145|从这里你可以使用这些值在MicroStation+2d中绘制形状，或者在3d中绘制形状并将其挤出到实体中。|1783146|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Here is a short sub to parse a MicroStation Triforma XML file that contains data for structural steel shapes.

 

<pre class="lang-vb prettyprint-override"><code>'location of triforma structural files
'c:\programdata\bentley\workspace\triforma\tf_imperial\data\us.xml

Sub ReadTriformaImperialData()
Dim txtFileName As String
Dim txtFileLine As String
Dim txtFileNumber As Long

Dim Shape As String
Shape = "w12x40"

txtFileNumber = FreeFile
txtFileName = "c:\programdata\bentley\workspace\triforma\tf_imperial\data\us.xml"

Open txtFileName For Input As #txtFileNumber

Do While Not EOF(txtFileNumber)
Line Input #txtFileNumber, txtFileLine
 If InStr(1, UCase(txtFileLine), UCase(Shape)) Then
 P1 = InStr(1, UCase(txtFileLine), "D=")
 D = Val(Mid(txtFileLine, P1 + 3))

 P2 = InStr(1, UCase(txtFileLine), "TW=")
 TW = Val(Mid(txtFileLine, P2 + 4))

 P3 = InStr(1, UCase(txtFileLine), "WIDTH=")
 W = Val(Mid(txtFileLine, P3 + 7))

 P4 = InStr(1, UCase(txtFileLine), "TF=")
 TF = Val(Mid(txtFileLine, P4 + 4))

 Close txtFileNumber
 Exit Do
 End If
Loop
End Sub
</code></pre>

From here you can use the values to draw the shape in MicroStation 2d or do it in 3d and extrude it to a solid.

blocks|key|1568242|text|添加引用项目->引用Microsoft+XML，6.0，您可以使用示例代码：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1568243|++++Dim+xml+As+String

++++xml+=+"<root><person><name>Me+</name>+</person>+<person>+<name>No+Name+</name></person></root>+"
++++Dim+oXml+As+MSXML2.DOMDocument60
++++Set+oXml+=+New+MSXML2.DOMDocument60
++++oXml.loadXML+xml
++++Dim+oSeqNodes,+oSeqNode+As+IXMLDOMNode

++++Set+oSeqNodes+=+oXml.selectNodes("//root/person")
++++If+oSeqNodes.length+=+0+Then
+++++++'show+some+message
++++Else
++++++++For+Each+oSeqNode+In+oSeqNodes
+++++++++++++Debug.Print+oSeqNode.selectSingleNode("name").Text
++++++++Next
++++End+If+|code-block|syntax|javascript|1568244|注意xml节点//root/person与//Root/Person不同，selectSingleNode("Name").text与selectSingleNode("name").text也不相同|1568245|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Add reference Project->References Microsoft XML, 6.0 and you can use example code:

 

<pre class="lang-vb prettyprint-override"><code> Dim xml As String

 xml = "&lt;root&gt;&lt;person&gt;&lt;name&gt;Me &lt;/name&gt; &lt;/person&gt; &lt;person&gt; &lt;name&gt;No Name &lt;/name&gt;&lt;/person&gt;&lt;/root&gt; "
 Dim oXml As MSXML2.DOMDocument60
 Set oXml = New MSXML2.DOMDocument60
 oXml.loadXML xml
 Dim oSeqNodes, oSeqNode As IXMLDOMNode

 Set oSeqNodes = oXml.selectNodes("//root/person")
 If oSeqNodes.length = 0 Then
 'show some message
 Else
 For Each oSeqNode In oSeqNodes
 Debug.Print oSeqNode.selectSingleNode("name").Text
 Next
 End If 
</code></pre>

be careful with xml node //Root/Person is not same with //root/person, also selectSingleNode("Name").text is not same with selectSingleNode("name").text

blocks|key|1783247|text|通常，当您不想启用宏时，不使用VBA进行解析会更容易。这可以通过replace函数来完成。在单元格B1和C1中输入起始节点和结束节点。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1783248|Cell+A1:+{your+XML+here}
Cell+B1:+<X>
Cell+C1:+</X>
Cell+D1:+=REPLACE(A1,1,FIND(A2,A1)%2BLEN(A2)-1,"")
Cell+E1:+=REPLACE(A4,FIND(A3,A4),LEN(A4)-FIND(A3,A4)%2B1,"")|code-block|syntax|javascript|1783249|结果行E1将包含您解析的值：|1783250|Cell+A1:+{your+XML+here}
Cell+B1:+<X>
Cell+C1:+</X>
Cell+D1:+24.365<X><Y>78.68</Y></PointN>
Cell+E1:+24.365|1783251|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Often it is easier to parse without VBA, when you don't want to enable macros. This can be done with the replace function. Enter your start and end nodes into cells B1 and C1.

<pre><code>Cell A1: {your XML here}
Cell B1: &lt;X&gt;
Cell C1: &lt;/X&gt;
Cell D1: =REPLACE(A1,1,FIND(A2,A1)+LEN(A2)-1,"")
Cell E1: =REPLACE(A4,FIND(A3,A4),LEN(A4)-FIND(A3,A4)+1,"")
</code></pre>

And the result line E1 will have your parsed value:

<pre><code>Cell A1: {your XML here}
Cell B1: &lt;X&gt;
Cell C1: &lt;/X&gt;
Cell D1: 24.365&lt;X&gt;&lt;Y&gt;78.68&lt;/Y&gt;&lt;/PointN&gt;
Cell E1: 24.365
</code></pre>

I work in VBA, and want to parse a string eg



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

and get the X &amp; Y values into two separate integer variables.

I'm a newbie when it comes to XML, since I'm stuck in VB6 and VBA, because of the field I work in.

How do I do this?

How to parse XML using vba

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

我在VBA工作，想解析一个字符串，例如<PointN xsi:type='typens:PointN' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema'> <X>24....

问如何使用vba解析XML
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何使用vba解析XMLEN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何使用vba解析XML
EN