Load qurey from website.

userform1 is blank form only. I checked form & its property the above library function being included already by default.

i added line after it start run . i found data not being recorded in excel sheet

Sub ExcelForum()
 Dim db As DAO.Database
Dim a As New MSForms.DataObject, b As New HTMLDocument

With CreateObject("WinHTTP.WinHTTPRequest.5.1")
.Open "GET", "http://ws.photon.info/public/app_old/database/solarmodule_en.aspx"
.Send
b.body.innerHTML = .responseText
End With

a.SetText b.getElementsByTagName("table")(5).outerHTML
a.PutInClipboard

ActiveSheet.Range("A1").PasteSpecial
End Sub

Private Sub UserForm_Click()

End Sub