Парсинг сайтов в Excel. Выкачиваем расстояния макросом VBA
Парсинг сайтов в Excel. Выкачиваем расстояния макросом VBA
Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса 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.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
Настройка парсинга расстояний с сайта своими руками. Достаточно простенького макроса 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.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