XML数据读取失败

lqh123109

标签对.xml
<?xml version="1.0" encoding="UTF-8"?>
<cteProc xmlns="http://www.somesite.com" versao="3.00">
<CTe xmlns="http://www.somesite.com">
  <infCte Id="an id" versao="3.00">
    <ide>
     <cUF>23</cUF>
     <cCT>00000557</cCT>
     <CFOP>"6932"</CFOP>
     <natOp>some text </natOp>
     <mod>57</mod>
    </ide>
    <compl>
      <xObs>TEXT</xObs>
      <mod>507</mod>
    </compl>
  </infCte>
</CTe>
</cteProc>


Sub SelectIssueSubjectExample()
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim xmlNode As MSXML2.IXMLDOMNode
    ' 创建DOMDocument对象
    Set xmlDoc = New MSXML2.DOMDocument60
    ' 加载XML文档
    xmlDoc.Load ("D:\标签对.xml")

    ' 使用XPath表达式选择<issue>节点下的<subject>节点
    Set xmlNode = xmlDoc.SelectSingleNode("//infCte/ide")

    ' 检查是否找到了节点
    If Not xmlNode Is Nothing Then
        Debug.Print xmlNode.text
    Else
        Debug.Print "Node not found."
    End If
End Sub

奇怪，VBA中不能正常获取，有哪位研究过？

Yalishanda30

没有问题啊

perfect131

Yalishanda30 发表于 2024-10-12 07:46
没有问题啊

那是你用的30 不是 60
3 以上都用xpath

ZHLK

一句代码就行
ActiveWorkbook.XmlImport URL:="D:\标签对.xml", ImportMap:=Nothing, Overwrite:=True,Destination:=Range("$A$1")

perfect131

ZHLK 发表于 2024-10-12 09:01
一句代码就行
ActiveWorkbook.XmlImport URL:="D:\标签对.xml", ImportMap:=Nothing, Overwrite:=True,Des ...

人家想要解析xml 你直接txt方式读取xml啊

ZHLK

明知道1+1=2，非得求证1+1=2