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

Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса Excel чтобы получить желаемое. On Error Resume Next .Open "GET", sURL, False .send End With End Function Function km(FromCity As String, ToCity As String) НачальныйТекст = "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 Хочется еще? Да и просто подписывайтесь - люблю, когда растут цифры ;-)