Drawbridge, Jack: #CIO - BPI
Drawbridge.Jack at ic.gc.ca
Thu Jun 2 14:00:48 CDT 2005
Looking for help/advice or sample code to open IE6 from code in A2K. Am interested in how to do a File| Save As Webpage, Complete. We have a database of 60000 companies and want to put extracts of selected 100-500 companies (html and graphics etc) onto a CD for use with Offline Browser. Can not figure out how to get to IE6 File | Save As. I have some code to open a page with IE browser and save all the links on the page. Any help would be appreciated. TIA jack '---- CODE to GET the Links from a given page ---- '--------------------------------------------------------------------------------------- ' Procedure : GetLinks ' DateTime : 2005-06-02 14:19 ' Author : ' Purpose : get all links from a named webpage URL '--------------------------------------------------------------------------------------- ' Sub GetLinks() ' ** need to set a reference to ' ** Microsoft Internet Controls Dim IeApp As InternetExplorer Dim sURL As String Dim IeDoc As Object Dim i As Long 'Create new instance of IE Set IeApp = New InternetExplorer 'May wish to make IeApp visible 'apparently some things don't work 'unless it's visible IeApp.Visible = False 'define the page to open sURL = "www.diligens.com" 'navigate to the page based on URL IeApp.Navigate sURL 'Pause until the webpage is completely loaded Do Loop Until IeApp.ReadyState = READYSTATE_COMPLETE 'Create instance of Document object Set IeDoc = IeApp.Document 'Loop through the document's links collection. For i = 0 To IeDoc.links.Length - 1 Debug.Print IeDoc.links(i).href Next i 'Clean up Set IeApp = Nothing Set IeDoc = Nothing End Sub