Wie fülle ich Google-Suchergebnisse in Excel in ein Arbeitsblatt ein?
In einigen Fällen müssen Sie möglicherweise eine wichtige Stichwortsuche in Google durchführen und den Datensatz mit den besten Suchergebnissen in einem Arbeitsblatt aufbewahren, das den Titel und den Hyperlink des Artikels enthält. Dieser Artikel enthält eine VBA-Methode zum Auffüllen von Google-Suchergebnissen in ein Arbeitsblatt, das auf bestimmten Schlüsselwörtern in Zellen basiert.
Füllen Sie die Google-Suchergebnisse mit VBA-Code in das Arbeitsblatt ein
Füllen Sie die Google-Suchergebnisse mit VBA-Code in das Arbeitsblatt ein
Angenommen, die Schlüsselwörter, die Sie für die Suche in der Liste in Spalte A benötigen (siehe Abbildung unten), gehen Sie wie folgt vor, um die Google-Suchergebnisse dieser Schlüsselwörter in die entsprechenden Spalten mit VBA-Code zu füllen.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Füllen Sie die Google-Suchergebnisse in das Arbeitsblatt ein
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld bitte die Zellen aus, die die zu durchsuchenden Schlüsselwörter enthalten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Anschließend werden alle Suchergebnisse, einschließlich Titel und Links, basierend auf Schlüsselwörtern in die entsprechenden Spaltenzellen eingetragen. Siehe Screenshot:
In Verbindung stehende Artikel:
- Wie fülle ich ein Kombinationsfeld mit den angegebenen Daten in der geöffneten Arbeitsmappe?
- Wie fülle ich andere Zellen automatisch aus, wenn ich Werte in der Excel-Dropdown-Liste auswähle?
- Wie fülle ich andere Zellen automatisch aus, wenn ich Werte in der Excel-Dropdown-Liste auswähle?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!