Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса 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("www.avtodispet..." & 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
Хочется еще?
Вот мой телеграмм канал: t.me/TrueExcel
Контакт для связи: t.me/Pavel_Tar...
realxls
dzen.ru/real_e...
vc.ru/u/228892...
Да и просто подписывайтесь - люблю, когда растут цифры ;-)
28 сен 2024