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!
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!