vba对xml文件解析

Sub delete() Dim i As Long Dim nSpace As Long Dim ItemCode As String '代码 Dim ItemV