F
festdaddy
I am trying to automatically save a list of web pages using the
following code:
Sub navigate_to_a_link_and_save_it()
Dim ie As SHDocVw.InternetExplorer
Dim ieDoc As Object
Set ie = New SHDocVw.InternetExplorer
For rw = 4 To 285
URL = ActiveSheet.Cells(rw, 1) 'a list of links, as text
ie.Visible = True
ie.Navigate URL
Do Until ie.ReadyState = READYSTATE_COMPLETE And Not ie.Busy
DoEvents
Loop
ie.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER
'why does this still prompt me?
Next rw
End Sub
I'm trying to get it to save the file with the default name and file
type. Is it possible to use saveas with out being prompted, and if not,
how might I automate hitting the enter button when the saveas window
pops up? And is it possible to assign a name for the file to be saved
as?
following code:
Sub navigate_to_a_link_and_save_it()
Dim ie As SHDocVw.InternetExplorer
Dim ieDoc As Object
Set ie = New SHDocVw.InternetExplorer
For rw = 4 To 285
URL = ActiveSheet.Cells(rw, 1) 'a list of links, as text
ie.Visible = True
ie.Navigate URL
Do Until ie.ReadyState = READYSTATE_COMPLETE And Not ie.Busy
DoEvents
Loop
ie.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER
'why does this still prompt me?
Next rw
End Sub
I'm trying to get it to save the file with the default name and file
type. Is it possible to use saveas with out being prompted, and if not,
how might I automate hitting the enter button when the saveas window
pops up? And is it possible to assign a name for the file to be saved
as?