Buenas tardes, pido su valiosa coolaboración para el siguiente proyecto que estoy realizando:
Set documentoxml = New DOMDocument
documentoxml.Load (ActiveCell.Value)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante")
For Each nodo In listanodos
With ActiveCell
ActiveCell.Offset(0, 1) = nodo.Attributes.getNamedItem("Folio").Text
End With
El proyecto es un tipo lector de archivos XML relacionados a facturas electrónicas, el problema que se me presentó es que hay XML que tienen el dato de "FOLIO" como nodo hijo del nodo cfdi:Comprobante y hay otros que simplemente no los tienen y cuando se presenta uno que no tiene dicho nodo la macro lanza el siguiente error:
Se ha producido el error "91" en tiempo de ejecución:
Variable de objeto o bloque Whit no establecido
Y VBA me selecciona la siguiente linea:
ActiveCell.Offset(0, 1) = nodo.Attributes.getNamedItem("Folio").Text
¿Existe alguna forma de instruirle a excel que si el nodo no llegase a existir le dé valor 0 a la celda?
Gracias por su apoyo!!
Lo siguiente:
On Error Resume Next
For Each nodo In listanodos
Para saltar los errores