тут оказалась немного другая беда.. правильно вот так
Set nodeChild = nodeChild.NextSibling
но в моем случае, что то ему не понравилось и пришлось сделать ход конем..
Set nodeChild = nodeChild.NextSibling
но в моем случае, что то ему не понравилось и пришлось сделать ход конем..
Код:
If elt.hasChildNodes Then
Set nodeChild = elt.FirstChild
Do Until nodechild.IsNull
q=q+1
If nodeChild.NodeName="tablecolumn" Then
Set nodeChild = elt.RemoveChild(nodeChild)
End If
Set nodeChild = elt.FirstChild
Print "q " + Cstr(q)
If q>100 Then Exit Do
Loop
End If
