Passing IP address from Excel to a Web site Locator
Here is one way of reading the body text of a web page, you can pass the
webtx string looking for the values and related text as required. You need
to make a reference to Microsoft Office Object Library.
Private sURL As String, webtx As string
Private ie As Object
Sub WebLink()
Set ie = CreateObject("InternetExplorer.Application")
sURL = "http://www.xyz..com"
ie.Navigate sURL
'wait for response
Do Until Not ie.Busy And ie.ReadyState = 4
DoEvents
Loop
' get html page body text
webtx = ie.Document.body.innertext
ie.Visible = True
'close ie and remove memory references
ie.Quit
Set ie = Nothing
End Sub
Cheers
Nigel
"Richard Buttrey" wrote in
message ...
I have an Excel spreadsheet which collects the IP address logs from my
broadband router and analyses them in a pivot table. (Number of
occurrences and port attacked)
I'd like to develop the spreadsheet a bit further, by passing each IP
address in turn to one of the many IP address locator web sites, and
read back the results to the spreadsheet.
Is this possible, and can anyone suggest the sort of VBA code I might
need to tackle this?
Many thanks,
__
Richard Buttrey
Grappenhall, Cheshire, UK
__________________________
|