Google 검색 결과를 Excel 워크시트에 채우는 방법은 무엇입니까?

어떤 경우에는 Google에서 중요한 키워드 검색을 수행하고 기사의 제목과 하이퍼링크를 포함하는 워크시트에 상위 검색 결과 기록을 보관해야 할 수도 있습니다. 이 문서에서는 셀에 주어진 키워드를 기반으로 Google 검색 결과를 워크시트에 채우는 데 도움이 되는 VBA 방법을 제공합니다.

VBA 코드를 사용하여 Google 검색 결과를 워크시트에 채우기

VBA 코드를 사용하여 Google 검색 결과를 워크시트에 채우기

아래 스크린샷과 같이 검색해야 할 키워드가 열 A에 나열되어 있다고 가정할 때, 이러한 키워드에 대한 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 코드를 실행하는 키입니다. 팝업에서 Excel 용 Kutools 대화 상자에서 검색하려는 키워드가 포함된 셀을 선택한 다음 클릭하십시오. OK 단추. 스크린 샷보기 :

제목과 링크를 포함한 모든 검색 결과는 키워드에 따라 해당 열 셀에 채워집니다. 스크린샷 참조:

관련 기사 :

• 통합 문서 열기에서 지정된 데이터로 콤보 상자를 채우는 방법은 무엇입니까?
• Excel 드롭 다운 목록에서 값을 선택할 때 다른 셀을 자동으로 채우는 방법은 무엇입니까?
• Excel 드롭 다운 목록에서 값을 선택할 때 다른 셀을 자동으로 채우는 방법은 무엇입니까?