
Originally Posted by
edanMimran
Basically i haven't done nothing yet.
i'm looking for any code that will allow me to copy the page source code into a field in the form so i can process the source code via access.
i know its possible, but i just never done it.
thanks,
Code:
Dim strAddress As String
Dim appInternet As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim intCount As Integer
Dim varOuter As Variant
strAddress = "http://google.com/"
Set appInternet = CreateObject("InternetExplorer.Application")
With appInternet
.Navigate strAddress
.Visible = True
While .Busy Or .ReadyState <> 4 Or .Busy = True: Wend
Set HTMLdoc = .Document
End With
For intCount = 0 To HTMLdoc.all.tags("HTML").length - 1
varOuter = HTMLdoc.all.tags("HTML").Item(intCount).outerHTML
Debug.Print varOuter
Next intCount