Load qurey from website.

Set reference to Microsoft Forms 2.0 Object Library and Microsoft HTML Object Library
This gets you the table:

Sub ExcelForum()
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

If you go and play around with it, please note that the link is actually different from the one you posted

Just an Input..

Reference to Microsoft Forms 2.0 Object Library might not be available in the Post 2007 Version.

Below link will help you set it up just incase you run into an issue..

http://www.mrexcel.com/forum/excel-q...t-library.html

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

When i run code on excel in developer option i got this error

Check Post #3