<mainnote>
<subnote>
</subnote>
<subnote>
<subnote>
</mainnote>
Dim wsXml As Worksheet
Dim xmlDoc As Object
Dim objDOM, n, nodes, subNodes As Object, ns, i, j
Set objDOM = CreateObject("MSXML.DOMDocument")
objDOM.Load (ThisWorkbook.Path & "\xxxxxx.xml")
objDOM.async = False
strPath = Left(strPath, Len(strPath) - Len(strCbf) - 12)
Set ns =objDOM.SelectNodes("//mainnote//subnote")
Dim k
For i = 1 Tons.Length

这篇博客探讨了如何使用Excel VBA进行XML文件的操作,包括读取和写入XML数据。通过实例展示了如何创建一个工作表来处理XML内容,并利用VBA的内置功能进行数据交互。
最低0.47元/天 解锁文章
480

被折叠的 条评论
为什么被折叠?



