Sub Go_To_Site()
Dim fn$
Const BaseUrl$ = "http://map.mossvet.ru:51/"
With CreateObject("internetexplorer.application")
.navigate ""
.document.parentWindow.execScript "document.write(encodeURI('" & [A1] & "'))", "JavaScript"
GotoUrl .Application, BaseUrl & "AddressDetail.php?Address=" & .document.body.innertext
fn = "(" & .document.body.querySelector("tr").onclick & ")(0)"
GotoUrl .Application, BaseUrl
.document.parentWindow.execScript fn, "JavaScript"
.Visible = 1
End With
End Sub
Sub GotoUrl(ByRef ie As Object, url$, Optional timeout% = 5)
Dim t!
ie.navigate url
t = Timer
Do
DoEvents
If Timer - t >= timeout Then
MsgBox "Timeout!", 16
Stop
End If
Loop Until ie.ReadyState = 4
End Sub