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

Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса Excel чтобы получить желаемое. Function GetHTTPResponse(ByVal sURL As String) As String On Error Resume Next Set oXMLHTTP = CreateObject(““) 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 Неспокойно... В vk отъезжаю понемногу И совсем немного в телегу Лучше подписаться пока не потерялись совсем. Напишите в WhatsApp.