Hent automatisk eksterne data fra celle

Du er ikke særlig konkret på, hvad der skal leveres i kolonne B, men her har du en lille snut kode, der henter information fra en hjemmeside

Sub HentInfo()
Dim oIE As SHDocVw.InternetExplorer
Dim sPage As String
Dim intStart, intSlut As Long
Dim Info As String
Set oIE = New SHDocVw.InternetExplorer
oIE.Navigate "http://www.dr.dk"
Do Until oIE.ReadyState = READYSTATE_COMPLETE
  DoEvents
Loop

sPage = oIE.Document.body.InnerHtml
intStart = InStr(1, sPage, "Vejret")
intSlut = InStr(intStart, sPage, "læs mere")
Info = Mid(sPage, intStart, intSlut - intStart + 8)
MsgBox Info
End Sub

Hej thor_ostergaard
Tak for svaret

Det der skal leveres i kolonne B er hentede data fra det der står i kolonne A

Altså hvis der i A1 står google.dk skal der i kolonne B1 hentes data fra google.dk

Men jeg skal kunne ændre denne url, det vil sige at der i makroen bare skal stå A1 sådan jeg kan ændre url'en og den henter data fra den nye url.

He he - ja, der har jeg godt gennemskuet, men "data fra google.dk" er stadig temmelig åbent. Du kan bruge ovenstående til at hente html koden bag en web-side - det er "data fra", men jeg har lidt svært ved at gennemskue om det er noget du kan bruge til noget.

Det er html koden fra siden, ja!

Men det er jo til DR.dk?
Det skulle gerne være til A1