EXCEL vba操作及查询XML文件里面的内容,高手请进讨论。

<VENDOR1>
<VENDOR2 IDNUMBER="lka">
<PRODUCTINFO PRODUCT_NAME="11" PRODUCT_VERSION="x" DESC="11" CISCO_PN="ada" VENDOR_PN="asd" SN="asd" PASSFAIL="asd1" STATION_NAME="nn" DATETIME="2017/05/27 T11:52:06" OPERATOR="333" TESTAREA="01" MISC="">
</PRODUCTINFO>
</VENDOR2>
</VENDOR1>

如上是一个444.xml文件,我想在EXCEL VBA里面加载这个文件,怎么获取PRODUCTINFO 这个节点里面PRODUCT_NAME属性的值“11”呢?找了相关资料,加载XML文件是用不是用如下代码:
Set xDoc = CreateObject("Microsoft.XMLDOM")
xDoc.async = False
xDoc.Load ("D:\444.xml")

请问后面的代码需要怎么写?我想把获取的“11”值赋值给变量"A1",msgbox显示出来。
最新回答
是态度

2024-04-17 02:57:54

思路:用split函数将xml分割,如resulttmp=split(str1,“PRODUCT_NAME=”)
此时数组resulttmp(1)="11" PRODUCT_VERSION="x" DESC=……

然后再用PRODUCT_VERSION=分割,分割后的数组(0)即为“11”
钢铁不是铁

2024-04-17 04:35:36

用vba的数组来写,会快很多