code05.md

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private objIE As InternetExplorer
Sub main()
    Set objIE = New InternetExplorer
    Dim url
    Dim baseUrl

    baseUrl = "https://play.google.com"
    url = baseUrl & "/store/apps/collection/topgrossing"
    objIE.Visible = True
    objIE.Navigate2 (url)

    '읽기 완료 대기
    While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
        DoEvents
        Sleep 100
    Wend

    Dim objDoc As HTMLElementCollection
    Set objDoc = objIE.document
    Dim element As IHTMLElement
    Dim title
    Dim path
    Dim row

    row = 1
    For Each element In objDoc.getElementsByClassName("card no-rationale square-cover apps small")
        title = element.Children(0).Children(2).Children(1).innerText
        path = element.Children(0).Children(2).Children(1).getAttribute("href")
        Worksheets(1).Cells(row, 1) = title
        Worksheets(1).Cells(row, 2) = baseUrl & path
        row = row + 1
    Next element

    objIE.Quit
    Set objIE = Nothing
End Sub