Ayuda para macro

1 post / 0 nuevos
Oscarbm
Imagen de Oscarbm
Offline
última acción: Hace 3 semanas 3 días
alta: 18/06/2018 - 19:42
Puntos: 25
Ayuda para macro

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!!