Visual Basic para Aplicaciones - SELENIUM WEBDRIVER - IFRAME

Sub Test()

    Const link As String = "https://www.rosterresource.com/mlb-schedule-grid/"

    Dim posts As Object, post As Object, elem As Object, R&, C&

    With New ChromeDriver

        .Get link

        .SwitchToFrame .FindElementByCss("iframe", timeout:=5000)

        .SwitchToFrame .FindElementByCss("iframe#pageswitcher-content", timeout:=5000)

        For Each posts In .FindElementsByCss("table.waffle tr")

            For Each elem In posts.FindElementsByCss("td")

                C = C + 1: Cells(R + 1, C) = elem.Text

            Next elem

            R = R + 1: C = 0

        Next posts

        .Quit

    End With

end sub