Google arama sonuçlarını Excel'deki çalışma sayfasına nasıl doldurabilirim?
Bazı durumlarda, Google'da bazı önemli anahtar kelime araması yapmanız ve en iyi arama sonucu kaydını, makalenin başlığını ve köprüsünü içeren bir çalışma sayfasında tutmanız gerekebilir. Bu makale, google arama sonuçlarını hücrelerdeki belirli anahtar kelimelere göre bir çalışma sayfasına doldurmaya yardımcı olacak bir VBA yöntemi sağlar.
Google arama sonuçlarını çalışma sayfasına VBA kodu ile doldurun
Google arama sonuçlarını çalışma sayfasına VBA kodu ile doldurun
Aşağıda gösterilen ekran görüntüsü gibi A sütunundaki listeyi aramanız gereken anahtar kelimeleri varsayarsak, lütfen bu anahtar kelimelerin google arama sonuçlarını VBA kodu ile ilgili sütunlara doldurmak için aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modül. Ardından VBA kodunu kopyalayıp kod penceresine yapıştırın.
VBA kodu: Google arama sonuçlarını çalışma sayfasına doldurun
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 Sub3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusu, lütfen arayacağınız anahtar kelimeleri içeren hücreleri seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından, başlıklar ve bağlantılar dahil tüm arama sonuçları, anahtar kelimelere dayalı olarak karşılık gelen sütun hücrelerinde doldurulur. Ekran görüntüsüne bakın:
İlgili yazılar:
- Çalışma Kitabı açıkken belirtilen verilerle birleşik giriş kutusu nasıl doldurulur?
- Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?
- Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
