Jump to content

fjaimes04

Members
  • Posts

    5
  • Joined

  • Last visited

  • Country

    Colombia

Profile information

  • Gender
    Hombre

Converted

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

fjaimes04's Achievements

  1. con estas líneas de código en la ventana inmediato leo todo el contenido del xml, incluso el de la cdata, pero como haría para pasar dicho contenido en formato tabular a excel??🙄 Sub TestXML3() Dim XDoc As Object Set XDoc = CreateObject("MSXML2.DOMDocument") XDoc.async = False: XDoc.validateOnParse = False XDoc.Load (ThisWorkbook.Path & "\ad09004905940102100002111.xml") 'Get Document Elements Set lists = XDoc.DocumentElement 'Traverse all elements 2 branches deep For Each listNode In lists.ChildNodes Debug.Print "---Email---" For Each fieldNode In listNode.ChildNodes Debug.Print "[" & fieldNode.BaseName & "] = [" & fieldNode.Text & "]" Next fieldNode Next listNode Set XDoc = Nothing End Sub Agradezco su ayuda
  2. Saludos me sale error 99, que no se la variable del objeto with no se ha establecido. Alguna sugerencia
  3. Hola a todos los que me puedan ayudar a resolver este problema. Buscando encontré este un código que lee archivos xml de un directorio seleccionado para luego pasarlo a una hoja de excel, el problema surgió cuando quise copiar todo el código en un archivo nuevo y proceder a testear, ya he revisado que tenga estén habilitadas las mismas referencias de las librerías, pero nada que encuentro el detalle. Una parte del código me daba interrupción en esta línea "ruta = LCase(CreateObject([explorador]).BrowseForFolder(0, "selecciona la carpeta a procesar", 0, "").items.Item.Path)" y luego consultando hice este cambio "ruta = LCase(CreateObject("shell.application").BrowseForFolder(0, "selecciona la carpeta a procesar", 0, "").Items.Item.Path) " y funcionó , pero luego volvió a parar en la línea "With CreateObject([openFile])". Si corro el archivo que original ejecuta todo bien. Pero la idea era hacerle unos cambios para adaptarlo a mis necesidades. Adjunto la carpeta donde se encuentran los archivos para prueba. Mil gracias al que me de una mano, la idea es seguir aprendiendo test de lectura xml.rar
×
×
  • Create New...

Important Information

Privacy Policy