Hi,
Thank you for your answer.
The data of the web site is in tag div and have the structure like something that:
<div id="something">
<div id="databox">
<div class="FirstBox">
<p> MessageText </p>
<img src="img/image1.jpg">
</div>
<div class="FirstBox">
<p> MessageText </p>
<img src="img/image2.jpg">
</div>
<div class="FirstBox">
<p> MessageText </p>
<img src="img/image3.jpg">
</div>
</div>
</div>
I found on google many examples, like the following example, but it can not work on me.
Private Sub pullData_Click()
Dim x As Long, y As Long
Dim htm As Object
Set htm = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://website.html", False
.send
htm.body.innerHTML = .responsetext
End With
End Sub
If you can help me i will be thankful.
Thank you,
Dimitris
Bookmarks