Как да попълня резултатите от търсенето с Google в работен лист в Excel?
В някои случаи може да се наложи да извършите важно търсене по ключови думи в Google и да запазите записа на най-добрите резултати от търсенето в работен лист, който включва заглавието и хипервръзката на статията. Тази статия предоставя VBA метод за подпомагане на попълването на резултатите от търсенето с Google в работен лист въз основа на зададени ключови думи в клетки.
Попълване на резултатите от търсенето с Google в работен лист с VBA код
Попълване на резултатите от търсенето с Google в работен лист с VBA код
Да предположим, че ключовите думи, от които се нуждаете, за да търсите, са в колона А, както е показано на екранната снимка по-долу, моля, направете следното, за да попълните резултатите от търсенето с Google на тези ключови думи в съответните колони с VBA код.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, моля щракнете Поставете > Модули. След това копирайте и поставете VBA код в прозореца на кода.
VBA код: попълване на резултатите от търсенето с Google в работен лист
Sub xmlHttp()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Dim url As String
Dim xRtnStr As String
Dim I As Long, xLastRow As Long
Dim xmlHttp As Object, xHtml As Object, xHtmlLink As Object
On Error Resume Next
Set xRg = Application.InputBox("Please select the keywords you will search in Google:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg.Rows.Count
Set xRg = xRg(1)
For I = 0 To xLastRow - 1
url = "https://www.google.co.in/search?q=" & xRg.Offset(I) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "Content-Type", "text/xml"
xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
xmlHttp.send
Set xHtml = CreateObject("htmlfile")
xHtml.body.innerHTML = xmlHttp.ResponseText
Set xHtmlLink = xHtml.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
xRtnStr = Replace(xHtmlLink.innerHTML, "<EM>", "")
xRtnStr = Replace(xRtnStr, "</EM>", "")
xRg.Offset(I, 1).Value = xRtnStr
xRg.Offset(I, 2).Value = xHtmlLink.href
Next
Application.ScreenUpdating = True
End Sub
3. Натисни F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel диалогов прозорец, моля, изберете клетките, съдържащи ключови думи, които ще търсите, и след това щракнете върху OK бутон. Вижте екранна снимка:
Тогава всички резултати от търсенето, включително заглавия и връзки, се попълват в съответните клетки на колони въз основа на ключови думи. Вижте екранна снимка:
Още по темата:
- Как да попълня разгъващ се списък с определени данни при отворена работна книга?
- Как да попълвам автоматично други клетки при избиране на стойности в падащия списък на Excel?
- Как да попълвам автоматично други клетки при избиране на стойности в падащия списък на Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!