Seeing that some of them will let you download directly
into financial software packages like Quicken, I'm sure
you can do a download directly into Excel. Or if not, at
least download something like comma delimited/text file
and then import that into Excel.
HTH
Jason
Atlanta, GA
>.
>
>Is there a way to get the current value of a stock into an
>excel spreadsheet without looking it up and typing it in
For Excel 2002 there is an Add-In which can be obtained from Microsoft
(MSNStockQuote.Functions). This adds a bunch of functions that can obtain
various aspects of a stock quote.
For earlier versions, there are web queries -- also listed at the MS site.
--ron
Sub GetStockQuotes()
'Queries Yahoo for list of symbols in Column A on WorkSheet "Symbols".
'Yahoo only allows 200 symbols per shot. Splits into 200 symbols lots.
'Dumps data into "Data" WorkSheet & Parses data
'AddSheetsFromRange ' Macro to Add New sheets for each symbol added
Dim intI As Integer
Dim intJ As Integer
Dim rngF As Range
Dim rngFilter As Range
Dim strFilter() As String
Dim strURL As String
Application.ScreenUpdating = False
Sheets("Symbols").Select
intCount = 0
intJ = 0
ReDim strFilter(intJ)
Set rngFilter = Range(Cells(4, 1), Cells(4, 1).End(xlDown))
For Each rngF In rngFilter
strFilter(intJ) = strFilter(intJ) & rngF.Value & "+"
intCount = intCount + 1
If intCount > 199 Then
intJ = intJ + 1
ReDim Preserve strFilter(intJ)
intCount = 0
End If
Next rngF
Sheets("Data").Select
Cells.Delete
For intI = 0 To intJ
strURL = "http://quote.yahoo.com/d/quotes.csv?s=" & strFilter(intI)
& "&f=sl1d1+1c1ohgv&e=.csv"
'MsgBox strURL
With ActiveWorkbook.Worksheets("Data").QueryTables.Add( _
Connection:="URL;" & strURL,
Destination:=Worksheets("Data").Cells(intI * 200 + 1, 1))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Next intI
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False
Columns("A:J").AutoFit
Columns("d:e").EntireColumn.Delete
[a2].Select
Sheets("SYMBOLS").Select
'====SORT SYMBOLS LIST
' Rows("5:" & [SymbolsList].Rows.Count + 3).Sort Key1:=Range("A5"),
Order1:=xlAscending
Application.ScreenUpdating = True
End Sub
--
Don Guillett
SalesAid Software
don...@281.com
"Al" <aon...@austin360.com> wrote in message
news:2eaf01c1fb8e$497819a0$2ae2...@hosting.microsoft.com...