Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса 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("
" & 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://vk.com/realxls
Да и просто подписывайтесь - люблю, когда растут цифры ;-)
