Ayuda para macro

2 envíos / 0 nuevos
Último envío
Oscarbm
Imagen de Oscarbm
Offline
última acción: Hace 4 meses 3 semanas
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!!

Pedro Pérez (no verificado)
Imagen de Pedro Pérez
Ayuda para macro

Lo siguiente:

 

On Error Resume Next

For Each nodo In listanodos

 

Para saltar los errores