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

Воспроизведение вашего видео начнется через 35

↓СМОТРИТЕ ВИДЕО ↓ НА ЭТОМ САЙТЕ ↓БЕСПЛАТНО ↓


2 Просмотры

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

:2020-05-22T08:30:06+0000

Издатель
Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса 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/distance/?from=" & 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
Категория
Уроки ремонта онлайн
Комментариев нет.