Google arama sonuçlarını Excel’deki bir çalışma sayfasına nasıl doldurabilirsiniz?
Bazı durumlarda, Google’da belirli anahtar kelimelerle arama yapmanız ve bu aramanın en üstteki sonucunu (makale başlığı ve bağlantısını içeren kaydı) bir çalışma sayfasında saklamanız gerekebilir. Bu makale, hücrelerde belirtilen anahtar kelimelere göre Google arama sonuçlarını çalışma sayfanıza otomatik olarak getiren bir VBA yöntemi sunar.
VBA kodu ile Google arama sonuçlarını çalışma sayfasına doldurma
VBA kodu ile Google arama sonuçlarını çalışma sayfasına doldurma
Aşağıdaki ekran görüntüsünde gösterildiği gibi, sütun A’da Arama listesinde yer alması gereken anahtar kelimeleriniz olduğunu varsayalım. Bu anahtar kelimelerin Google arama sonuçlarını ilgili sütunlara VBA koduyla doldurmak için aşağıdaki adımları izleyin.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın. Ardından VBA kodunu kod penceresine kopyalayıp yapıştırın.
VBA kodu: Google arama sonuçlarını çalışma sayfasına doldurma
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. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusunda, aramak istediğiniz anahtar kelimeleri içeren hücreleri lütfen seçin, ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Başlıklar ve bağlantılar dahil tüm arama sonuçları, anahtar kelimelere göre ilgili sütun hücrelerine yerleştirilir. Ekran görüntüsüne göz atın:
İlgili makaleler:
- Çalışma kitabı açıldığında, birleşik kutuyu belirtilen verilerle nasıl doldurabilirsiniz?
- Excel’de bir açılır listeden değer seçildiğinde diğer hücrelerin otomatik olarak nasıl doldurulacağını?
- Excel’de bir açılır listeden değer seçildiğinde diğer hücrelerin otomatik olarak nasıl doldurulacağını?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar