Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Stock Prices

109 views
Skip to first unread message

Al

unread,
May 14, 2002, 5:28:27 PM5/14/02
to
Is there a way to get the current value of a stock into an
excel spreadsheet without looking it up and typing it in

Jason Morin

unread,
May 14, 2002, 5:55:39 PM5/14/02
to
Go through a search engine like Google (I keyed
in "download" and "stock" and "prices") and you'll find
plenty of offerings for real-time downloads of stock
prices (all for a nominal fee - I couldn't find any free
ones).

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

>.
>

Ron Rosenfeld

unread,
May 14, 2002, 5:43:24 PM5/14/02
to
On Tue, 14 May 2002 14:28:27 -0700, "Al" <aon...@austin360.com> wrote:

>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

Don Guillett

unread,
May 15, 2002, 9:46:55 AM5/15/02
to
Name a ws Data. Name a ws Symbols & create a button to fire this macro
placed in a module.
Start your symbol list in a6 on the symbols ws.Make sure something is in
a1,a2,a3,a4,a5. At least '(spacebar)

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...

0 new messages