PDA

View Full Version : How to get the data back from website to excel



clif
05-27-2015, 07:05 PM
How to get the data back from website to excel by using VBA without using excel built in function external link?

Since i search the website by input text





<td>Charge 6/2015</td><td>$1,000.00</td>












Dim wb As Workbook
Dim ws As Worksheet
Dim a As Integer
Dim ie As Object
Set wb = ThisWorkbook
Set ws = wb.Sheets("Supplier")
For a = 305 To 314
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate ws.Cells(3, 1)
While ie.Busy: DoEvents
Wend
Do
Loop Until Not (ie.Busy)

ie.document.all("<td>Charge 6/2015").Value

End Sub



How to get the the value next to the search?


I mean i search <td>Charge 6/201</td> and get $1,000.00 back to excel ?

Anyone know how to wirte the code?

Thank you very muhc!