编辑XML格式Excel VBA

Question

我需要使用新值更新“简单” XML文件并以新名称保存。对于测试，我仅尝试更新一个值。但是使用下面的代码我得到一个错误：

运行时错误'91'：对象变量或未设置块变量的情况>>

VBA：

Sub XMLTest()
Dim myVar As String, pathToXML As String
Dim xmlDoc As Object, xmlRoot As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    pathToXML = "C:\Users\Path_to_XML\PJMeasurements.xml" '<--- Update path

    Call xmlDoc.Load(pathToXML)
    Set xmlRoot = xmlDoc.getElementsByTagName("ns0:MeasurementsSO").Item(0) '<--- Is this correct?
    myVar = "9999-9999999" '<--- Update value
    xmlRoot.SelectSingleNode("SalesOrderNo").Text = myVar

    Call xmlDoc.Save(pathToXML)
End Sub
这是XML：

<ns0:MeasurementsSO xmlns:ns0="http://update.DocumentTypes.Schema.PJ Measurement.Xml">
  <SalesOrderNo>23482-4612310</SalesOrderNo>
  <Weight>83</Weight>
  <Volume>0,03</Volume>
  <Numberofcolli>1</Numberofcolli>
</ns0:MeasurementsSO>

我需要使用新值更新“简单” XML文件并以新名称保存。对于测试，我仅尝试更新一个值。但是使用下面的代码，我得到一个错误：运行时错误'91'：对象...

Answer 1

您需要添加名称空间：

Answer 2

发现了我的错误。