Вопросы Теги

Excel + поисковая система?

действительно ли там каким-либо путем является программа электронной таблицы (как Excel), может связаться с поисковой системой (как Google или WolframAlpha?)

Идеальный метод был бы макросом Excel, который мог попросить подавать результаты возврата и поисковая система. Просто количество хитов было бы достаточно.

Почти лучше всего была бы поисковая система, которая могла импортировать файлы типа .csv и сохранить результаты.

Кто-либо знает о таком продукте?

0
задан 19.06.2010, 19:02

2 ответа

Да. Это возможно. Я успешно автоматизировал Internet Explorer в Excel для получения погоды авиации в лист Excel. Поиск на Google для автоматизации Internet Explorer и Вы захотите повторно настроить innertext с тем, что Вы ищете. Это - выборка того кода для получения погоды авиации и полевого повышения для конкретного аэропорта. Код написан в VBA. Можно загрузить файл CSV в Excel и затем цикл через записи, выполняющие макрос для результатов.

On Error GoTo errHandler
Dim adPost() As Byte, strPage As String
Set ie = CreateObject("InternetExplorer.Application")
'ie.Visible = True

adPost = StrConv("station_ids=" & strAirport & "&std_trans=1, ", vbFromUnicode)

ie.navigate "http://aviationweather.gov/adds/metars/index.php", , , adPost, _
  "Content-Type: application/x-www-form-urlencoded" & vbCrLf

Do While ie.busy: DoEvents: Loop
Do While ie.ReadyState <> 4: DoEvents: Loop

Dim strText As String, strElevation As String, strAPName As String, strAirportInfo As String

strText = ie.document.body.innertext

Debug.Print strText
strText = Right(strText, Len(strText) - InStr(1, strText, strAirport) + 1)

ie.navigate "http://www.airnav.com/airport/" & strAirport
Do While ie.busy: DoEvents: Loop
Do While ie.ReadyState <> 4: DoEvents: Loop
ie.Visible = True

strAirportInfo = ie.document.body.innertext
strElevation = Left(strAirportInfo, 500)
strAPName = Left(strElevation, 150)
If InStr(1, strElevation, "Elevation") > 0 Then
  strElevation = Right(strElevation, Len(strElevation) - InStr(1, strElevation, "Elevation") + 1)
  strElevation = Left(strElevation, InStr(1, strElevation, "."))
  strElevation = Left(strElevation, InStr(1, strElevation, " ft.") - 1)
  strElevation = Right(strElevation, Len(strElevation) - InStr(1, strElevation, " "))
Else
  strElevation = ""
End If

Debug.Print strAPName
If InStr(1, strAPName, strAirport) > 0 Then
  strAPName = Right(strAPName, Len(strAPName) - InStr(1, strAPName, strAirport) - 3)
  strAPName = Left(strAPName, InStr(1, strAPName, "GOING TO") - 1)
  strAPName = Trim(Replace(strAPName, vbCrLf, " "))
Else
  strAPName = strAirport
End If
2
ответ дан 24.11.2019, 06:53

У них есть что-то, что чрезвычайно близко и позволяет экспорт: http://www.google.com/squared

Если это не вполне, что Ваш поиск, то решением wbeard, при требовании кодирования, является очень хороший ответ

0
ответ дан 24.11.2019, 06:53

Теги

Похожие вопросы