Avatar billede -zonic- Nybegynder
08. marts 2012 - 16:14 Der er 6 kommentarer

Læs xml url indhold ind i excel via VBA?

Hej,

jeg vil gerne automatisere processen med at få indholdet af følgende xml fil ind i excel.. Dvs. jeg skal bruge innertexten fra de forskellige tags og de skal i nogle specifikke celler

http://vatid.eu/check/BE/0828639227/DK/10403782

Jeg har læst nogle guides på området, men synes stadig jeg er helt blank i, hvordan jeg kan få det til at virke.. er der nogen der kan give mig et kode eksempel jeg kan smide i min VBA og så se at den rent faktisk læser data ind og smider det i mit excel ark, så jeg har noget at arbejde ud fra?

På forhånd MANGE tak!!
Avatar billede arne_v Ekspert
09. marts 2012 - 01:57 #1
MSXML.DOMDocument kan godt loade fra en URL !
Avatar billede -zonic- Nybegynder
09. marts 2012 - 08:09 #2
jeg har brug for et kode eksempel for at komme i gang, desværre :-/ Jeg synes jeg har prøvet alt muligt men intet virker.. jeg får alle mulige fejl.. og så er jeg virkelig VBA novice... :-(
Avatar billede tjp Mester
09. marts 2012 - 14:36 #3
Til inspiration (sakset fra http://msdn.microsoft.com/en-us/library/aa468547.aspx )

Sub testXML()
  Dim objXML As MSXML2.DOMDocument60, myErr
  Set objXML = CreateObject("Msxml2.DOMDocument.6.0")
  objXML.async = False
  objXML.Load ("http://vatid.eu/check/BE/0828639227/DK/10403782")
 
  If objXML.parseError.ErrorCode <> 0 Then
      Set myErr = objXML.parseError
      Debug.Print "You have error " + myErr.reason
  Else
      DisplayNode objXML.ChildNodes, 0
  End If
End Sub

Sub DisplayNode(ByRef Nodes, ByVal Indent)
  Dim xNode
  Indent = Indent + 2

  For Each xNode In Nodes
      If xNode.NodeType = NODE_TEXT Then
        Debug.Print Space$(Indent) & xNode.ParentNode.nodeName & _
            ":" & xNode.NodeValue
      End If

      If xNode.HasChildNodes Then
        DisplayNode xNode.ChildNodes, Indent
      End If
  Next xNode
End Sub
Avatar billede tjp Mester
09. marts 2012 - 14:39 #4
Bemærk 'objXML.async = False', hvilket stopper programmet indtil Load returnerer. Ellers er der ikke så meget at udskrive... :-)
Avatar billede -zonic- Nybegynder
17. september 2014 - 09:05 #5
tjp, vil du smide et svar :-)
Avatar billede tjp Mester
17. september 2014 - 10:18 #6
Jamen, det vil jeg da! Du kom videre? :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat