Добрый день! Нужна помощь, есть задание, http://fssprus.ru/, на главной странице указан контактный номер телефона для сообщения о коррупции, как с помощью VBA перейти на указанную страничку и отобразить значение (номер телефона), но без указания кода города в ячейке A1?
Уровень знания VBA начальный, и переходов и тем более отображения данных с сайта, делать не умею.
Sub korup()
Dim XMLHTTP As Object
Dim URL, txt, outstr, txt2 As String
Dim n, k As Long
URL = "http://fssp.gov.ru/"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", URL, False
XMLHTTP.SEND
If XMLHTTP.Status = 200 Then
txt = XMLHTTP.responseText
Else
Range("A1") = "Нет соединение с интернетом"
End If
n = InStr(1, txt, "tel:")
k = InStr(n, txt, "href")
txt2 = Mid(txt, n, k - n)
'outstr = Mid(txt2, 6, 15) ' с кодом города
outstr = Mid(txt2, 12, 9) ' без кода города
Range("A1") = outstr
Set XMLHTTP = Nothing
End Sub