[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