You can easily download an HTML page by using the Internet Transfer Control (INet). Here’s a reusable routine that uses this control to download the HTML page at the specified URL and optionally save it to a local file. In either case the routine returns the contents of the page as a string:
' Return the contents of an HTML page at a given URL' and optionally save it to a file'' uses an Internet Transfer Control,' that must be passed in the first argumentFunction GetHTMLPage(INet As INet, ByVal URL As String, _ Optional FileName As String) As String Dim fnum As Integer ' cancel any pending operation INet.Cancel ' set protocol to HTTP INet.Protocol = icHTTP ' get the page GetHTMLPage = INet.OpenURL(URL) ' save to a file, if requested If FileName <> "" Then fnum = FreeFile Open FileName For Output As #fnum Print #fnum, GetHTMLPage; Close #fnum End If End Function
