A
alvin Kuiper
hi
i have found this examble:
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
But get an error in
Info = Mid(sPage, intStart, intSlut - intStart + 8)
To bee honest i don't know what the script do all the way
regards
alvin
i have found this examble:
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
But get an error in
Info = Mid(sPage, intStart, intSlut - intStart + 8)
To bee honest i don't know what the script do all the way
regards
alvin