I use the query tables method to get from Yahoo.
X = [quotes!a65536].End(xlUp).Row
For Each c In Sheets("quotes").Range(Cells(5, 1), Cells(X, 1))
symbols = symbols & "+" & c
Next
URLAddress = "
http://finance.yahoo.com/d/quotes.csv?s="
mystringend = symbols & "&f=snd1t1l1ohgpv&e=.csv"
qurl = URLAddress + mystringend
With Sheets("Data").QueryTables.Add(Connection:="URL;" & qurl, _
Destination:=Sheets("Data").Range("b2"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
--
Don Guillett
SalesAid Software
(e-mail address removed)
Sam said:
How does one pull stock quotes automatically into excel 2000. There is a
add-in function available for 2002 and 2003. It does not seem to work with
excel 2000.