[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
>