William Hindman
dejpolsys at hotmail.com
Fri Jun 10 17:06:41 CDT 2005
..oops ...wrong link ...should have been: http://www.vbaexpress.com/forum/archive/index.php?t-3484.html William ----- Original Message ----- From: "William Hindman" <dejpolsys at hotmail.com> To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Sent: Friday, June 10, 2005 5:53 PM Subject: Re: [AccessD] Automating - IE6 - File Save As > http://www.vbaexpress.com/forum/archive/index.php?t-863.html > ..hth > > William > > ----- Original Message ----- > From: "Drawbridge, Jack: #CIO - BPI" <Drawbridge.Jack at ic.gc.ca> > To: "Access Developers discussion and problem solving" > <accessd at databaseadvisors.com> > Sent: Friday, June 10, 2005 4:54 PM > Subject: RE: [AccessD] Automating - IE6 - File Save As > > >> Have had no responses with original post. I believe it is a question of >> automating IE, and how to get to CommonDialog in order to do the File >> Save As. >> >> IE does a fantastic job of removing relative links and downloading a >> clean set of files when using the File Save As webpage complete option. I >> do not want to do the File saves manually. There must be a means to >> automate this in VBA??? >> >> Any advice/help on this would be greatly appreciated. >> >> Thanks, >> >> jack >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Drawbridge, >> Jack: #CIO - BPI >> Sent: Thursday, June 2, 2005 3:01 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] A2K talking to IE6 - File Save As >> >> >> 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 >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com >