webscraping

Public Sub fintables() Dim XMLreq As New MSXML2.XMLHTTP60 Dim HTMLdoc As New MSHTML.HTMLDocument Dim baglan As String Dim a As Integer baglan = "https://fintables.com/son-bilancolar" XMLreq.Open "get", baglan, False XMLreq.send If XMLreq.Status <> 200 Then...