<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显示出来。
思路:用split函数将xml分割,如resulttmp=split(str1,“PRODUCT_NAME=”)此时数组resulttmp(1)="11" PRODUCT_VERSION="x" DESC=……然后再用PRODUCT_VERSION=分割,分割后的数组(0)即为“11”