View Single Post
  #15   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Stock prices into excel

Capturing each stock on a separate sheet is NOT efficient. Join the group
and get my file (Yahoo multiple quotes) which updates a long list of symbols
"lickety split". Or, send me a PRIVATE email and I will email to you. Never
mind, I sent a copy to the address you gave below.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ryguy7272" wrote in message
...
Probably, the most sensible way to do it is to capture data for each stock
on
a ea separate sheet (that's how I do it). make the sheet name the name of
the stock. You can refresh all data in all sheets easily. Take a look at
this resource:
http://www.cpearson.com/excel/OnTime.aspx

Regards,
Ryan--

It can get very technical. If you want more information email me at:
(remove the xxx part).

--
RyGuy


"Jon Peltier" wrote:

That's an email address, see the "at" sign? I imagine if you send an
email,
you'd receive information on how to access the group.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. -
http://PeltierTech.com
_______


"Andreas Ingo" wrote in message
...
how do I go to ???

One stock ticker would be ATCO A


"Don Guillett" wrote:


This code would have to be modified to loop from a list of
tickersdelete
the defined names created each timeand also be modified to use ONTIME
to
update when desired. Did you try my free file or the yahoo portfolio I
suggested.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Andreas Ingo" wrote in
message
...

I found this code on this website, it works quite well except that I
do
not
know how to get it to update regularly, everyt 5 minutes or so, and
how
I
apply this code when I want to have more than one stock. Now, when I
run
the
macro it only updates one stock while the second stock is left
blank.
Someone?:


Rows("2:65536").Select
Selection.ClearContents
Range("A1").Select

With
ActiveSheet.QueryTables.Add(Connection:="URL;http://finance.yahoo.com/q?s="
&
Range("A1"), Destination:=Range("A2"))
.Name = "q?s=" & Range("A1")
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """table1"",""table2"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With



"Andreas Ingo" wrote:

I would really appreciate if someone could help me with some code
that
makes
excel import stock prices from a home page on an intra-daily basis,
e.g.
every 5th or 10th minute. I do not want to have time series data,
it
is
enough if one cell is updated each time with the current price.

Furthermore I would like excel to give a pop-up/notice every time a
cell
in
the sheet is larger/less than a specific trigger which always is a
number. It
is important that the pop-up always will be seen, i.e. so it does
not
lay
behind other windows.

I would really appreciate if someone could help me with this.

/Andreas