Can anybody tell me why I can't get the sendkey to work in this code. I put
the Stock symbol in the Active worksheet in cell A1. I just can't get the
file saved properly.


Sub GetStocks()
Const READYSTATE_LOADING = 1
Folder = "c:\Temp\"
URL1 = "http://ichart.finance.yahoo.com/table.csv?s="
URL2 = "&a=12&b=01&c=2007&d=01&e=01&f=2009&g=m&ignore=.cs v"

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

RowCount = 1
Do While Range("A" & RowCount) < ""
Stock = Range("A" & RowCount)
On Error Resume Next
Kill (Folder & Stock & ".csv")
On Error GoTo 0
'get web page
IE.Navigate2 URL1 & Stock & URL2
Do While IE.readystate < READYSTATE_LOADING
DoEvents
Loop

'Loop
Application.Wait (Now + TimeValue("0:00:05"))
AppActivate "File Download", True

'Alt S - Save File
Application.SendKeys "%S", True
'Alt n - Enter filename
Application.SendKeys "%n", True
Application.SendKeys _
(Folder & Stock & ".csv{ENTER}"), True



RowCount = RowCount + 1
Loop


End Sub

"Charles L. Snyder" wrote:


This retired EE Prof has hundreds of excel spreadsheets, all freely
downloadable, that will do what you want and mo

http://www.gummy-stuff.org/

cls