-
-
Posts
-
-
-
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 -
By karrakilla · Posted
Perdona LeandroA, perfecto...Muchísimas gracias por todo. Un Saludo -
Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\STOCK.xlsm" Workbooks.Open ThisWorkbook.Path & "\STOCK.xlsm" 'Abre la copia With ActiveWorkbook .Sheets(2).Delete .Sheets(1).Delete .Save '<-- Guarda la copia después de eliminar las hojas .Close '<-- Cierra la copia después de guardarla End With
-
-
Recently Browsing
No registered users viewing this page.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now