İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Google axtarış nəticələrini Excel-də iş səhifəsinə necə yerləşdirmək olar?

Bəzi hallarda, Google-da bəzi əhəmiyyətli açar söz axtarışları etmək və məqalənin başlığı və köprüsünü ehtiva edən bir iş səhifəsində üst axtarış nəticə qeydini saxlamaq lazımdır. Bu məqalə, Google axtarış nəticələrini hüceyrələrdə verilən açar sözlər əsasında iş səhifəsinə yerləşdirmək üçün VBA metodunu təqdim edir.

Google axtarış nəticələrini VBA kodu ilə iş səhifəsinə yerləşdirin


Google axtarış nəticələrini VBA kodu ilə iş səhifəsinə yerləşdirin


Göstərilən ekranındakı sütun A siyahısında axtarış etmək üçün lazım olan açar sözlərdən istifadə edərək, bu açar sözlərin google axtarış nəticələrini VBA kodu ilə müvafiq sütunlara yerləşdirmək üçün aşağıdakıları yerinə yetirin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > Modules. Sonra VBA kodunu kod pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: google axtarış nəticələrini iş səhifəsinə yerləşdirin

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools dialoq qutusunda, aradığınız açar sözləri olan hüceyrələri seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Ardından başlıq və bağlantılar daxil olmaqla bütün axtarış nəticələri, əsas sözlər əsasında müvafiq sütun hüceyrələrinə yerləşdirilir. Ekran görüntüsünə baxın:


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    karmapala · 8 days ago
    The same here.

    I follow the code, by copy it then paste the code in Excel VBA module. But after running, nothing happen, column B and C still empty but there is no error though.
  • To post as a guest, your comment is unpublished.
    Gary Swann · 2 months ago
    Hi, I've followed the points to be able to pull information from a google search based on keywords and it's not bringing any results though, I've emailed support and I've been advised to put a post here because they can't help me.
    • To post as a guest, your comment is unpublished.
      Adam · 1 months ago
      I have not been able to pull anything from google either. I followed instructions exactly.