shahin
Active Member
Using "GET" request you can do that in far more easier way:
Same results!!! Ain't it?
Code:
Sub central_bank()
Dim http As New XMLHTTP60, html As New HTMLDocument
Dim tbl As Object, tRow As Object, tCel As Object
Dim ArgumentStr As String
ArgumentStr = "searchEntity=FundServiceProvider&searchType=Name&searchText=®isters=6%2c29%2c44%2c45"
With http
.Open "GET", "http://registers.centralbank.ie/FundSearchResultsPage.aspx?" & ArgumentStr, False
.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
.send
html.body.innerHTML = .responseText
End With
Set tbl = html.getElementsByTagName("table")(1)
For Each tRow In tbl.getElementsByTagName("tr")
For Each tCel In tRow.getElementsByTagName("td")
If Not InStr(tCel.innerText, "Page") > 0 Then
c = c + 1: Cells(x + 1, c) = tCel.innerText
End If
Next tCel
c = 0
x = x + 1
Next tRow
End Sub
Same results!!! Ain't it?