VBA: Probleem met het invoegen van html in Excel

[tossy]

Hey allemaal,

Ik ben bezig om een tooltje te schrijven voor een spel.
De bedoeling is dat ik de html code uit de pagina ga halen, deze wegschrijf in excel en dan deze gegevens ga analyseren.

Hier volgt mijn code:
Sub Test()
On Error Resume Next

Const ForWriting = 2

strURL = "http://www.godsoccer.com/nl/jugador.php?id_jugador=60543"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, False
objHTTP.Send

ActiveCell.Value = objHTTP.ResponseText
objFile.Close
End Sub


"Overtollige code mag er uitgefilterd worden."
De html code komt eigenlijk perfect in de cell die daartoe bestemd is, maar niet op de manier die ik het wil. Wanneer ze in de cell komt krijg ik tekst te zien. Wanneer je copy paste wordt layout mee gekopiëerd en dat is eigenlijk wel noodzakelijk. Momenteel verschijnt alles in 1 cell, terwijl het heel handig zou zijn die in meerdere te verkrijgen.

url 1: geeft aan hoe het momenteel in excel komt
url 2: is hoe het zou moeten zijn
url 2 vergt input van de gebruiker en dit wil ik net niet.

http://vancleynenbreugel.nl/Knipsel.JPG
http://vancleynenbreugel.nl/Knipsel2.JPG

thanks

 

[Wigi]

En heb je al eens externe data opgehaald via een web query? Want dat is tenslotte toch hetgeen je doet?

 

[tossy]

en wat mag ik me voorstellen bij een webquery?
eventueel een verwijzing naar een topic zou leuk zijn?

alvast bedankt voor je reply

 

[Wigi]

In versie 2003 staat dat bij Data > Import external data > New webquery (of analoge benamingen in het Nederlands). In 2007 weet ik het niet, maar vermoedelijk in het lint in de tab Data of zo.

Wigi

 

[Warme bakkertje]

http://www.helpmij.nl/forum/showpost.php?p=2631970&postcount=2

 

[snb]

of

Sub Macro15()
  With ActiveSheet.QueryTables.Add("URL;""http://www.godsoccer.com/nl/jugador.php?id_jugador=60543""", Range("A19"))
    .Refresh False
  End With
End Sub

 

[Warme bakkertje]

Zonder extra deeltekens rond http ....... doet hij het wel

Sub Macro15()
  With ActiveSheet.QueryTables.Add("URL;http://www.godsoccer.com/nl/jugador.php?id_jugador=60543", [A1])
    .Refresh False
  End With
End Sub

 

[tossy]

Allen bedankt, via een webquery heb ik de gegevens in mijn excel kunnen verkrijgen zoals ze nodig zijn!

thanks!

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost (rechts onderaan de pagina)

 

[tossy]

Zet je de vraag dan nog even op opgelost (rechts onderaan de pagina)

done