Парсинг сайтов в Excel. Выкачиваем расстояния макросом VBA

Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса Excel чтобы получить желаемое.

Function GetHTTPResponse(ByVal sURL As String) As String
On Error Resume Next
Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With oXMLHTTP
.Open "GET", sURL, False
.send
GetHTTPResponse = .responseText
End With
Set oXMLHTTP = Nothing
End Function

Function km(FromCity As String, ToCity As String)
текст = GetHTTPResponse("https://www.avtodispetcher.ru/distanc..." & FromCity & "&to=" & ToCity)
НачальныйТекст = "totalDistance"
Начало = InStr(1, текст, НачальныйТекст) + Len(НачальныйТекст) + 2
Подстрока = Mid(текст, Начало, 50)
Конец = InStr(1, Подстрока, "/span") - 2
km = Mid(текст, Начало, Конец)
End Function

Sub РасчетРасстояний()
i = 2
While Cells(i, 1) неравно ""
Cells(i, 3) = km(Cells(i, 1), Cells(i, 2))
i = i + 1
Wend
End Sub

Хочется еще?
Вот мой телеграмм канал: https://t.me/TrueExcel

Контакт для связи: https://t.me/Pavel_Taranukha

https://vk.com/realxls
https://dzen.ru/real_excel
https://vc.ru/u/2288927-realnyy-eksel

Да и просто подписывайтесь - люблю, когда растут цифры ;-)