Jump to content

hectormendozas

Members
  • Posts

    6
  • Joined

  • Last visited

About hectormendozas

  • Birthday October 13

Profile information

  • Gender
    Hombre
  • Localización:
    Mexico

Converted

  • Campos
    ,
  • Mi versión de Excel:
    0,2

Recent Profile Visitors

437 profile views

hectormendozas's Achievements

  1. Buenas tardes!A través del presente requiero de su valioso apoyo para saber como utilizar la Referencia XML V6.0 Ya que el siguiente código me funciona correctamente con la versión 3.0, y me gustaría saber como actualizar para que funcione de la misma manera. Codigo XML v3.0 Option Explicit 'Variables de Lectura de archivos XML Private DocumentoXML As MSXML2.DOMDocument Private ListaNodos As MSXML2.IXMLDOMNodeList Private Nodo As MSXML2.IXMLDOMNode Function CargaXML(RutaXML As String) Set DocumentoXML = New DOMDocument DocumentoXML.Load (RutaXML) End Function Function Comprobante(Ruta As String, Dato As String) CargarXML (Ruta) Set ListaNodos = DocumentoXML.SelectNodes("/cfdi:Comprobante") For Each Nodo In ListaNodos Comprobante = Nodo.Attributes.getNamedItem(Dato).Text Next Nodo End Function Codigo XML v6.0 Option Explicit Private DocumentoXML As MSXML2.DOMDocument60 Private ListaNodos As MSXML2.IXMLDOMNodeList Private Nodo As MSXML2.IXMLDOMNode Public Ruta As String Function CargarXML(Ruta As String) Set DocumentoXML = New MSXML2.DOMDocument60 DocumentoXML.Load (Ruta) End Function Function Comprobante(Ruta As String, Dato As String) CargarXML (Ruta) Set ListaNodos = DocumentoXML.SelectNodes("/cfdi:Comprobante") ' ListaNodos(1).SelectSingleNode(Dato).Text For Each Nodo In ListaNodos Comprobante = Nodo.Attributes.getNamedItem(Dato).Text Next Nodo End Function por su atención valioso apoyo y respuesta muchas gracias. Adjunto archivos para pruebas Importar XML version 3 y 6.xlsm 4660375.xml 4723915.xml 4736042.xml Factura.xml
  2. Buenas tardes! A través del presente requiero de su apoyo para saber como poder eliminar un mensaje de Outlook enviado con Excel VBA, que una vez ejecutada la macro y quede en la bandeja de enviados lo elimine con esta misma macro. por su atención apoyo y respuesta muchas gracias.
  3. Hola alexander, esta genial tu aporte de creador de formularios pero a mi me manda un error y ya instale (mscomctl.ocx
    ) y me sigue mandando el mismo error, tal vez tengo que hacer algo mas??

     

    por tu apoyo muchas gracias

     

    1. AlexanderS

      AlexanderS

      Hola @hectormendozas , si pudieras indicar que error te da.

      Saludos

×
×
  • Create New...

Important Information

Privacy Policy