De: tim williams <saxifrax@pacbell.net>
À: HANK B 9 <hankb9@aol.com>
Objet: Re: update stock prices?
Date : samedi 29 juillet 2000 08:28

This works for a list of stock symbols beginning at A2.

Tim.


Sub URL_Get_Query()
Dim URL1 As String
Dim tempo As Worksheet,webdata as worksheet, rngList As Range


baseURL = "URL;http://quote.pathfinder.com/money/quote/qc?symbols="

set webdata=thisworkbook.sheets("webdata")
set rngList = webdata.Range("A2", [A2].End(xlDown))


set tempo = ThisWorkbook.Sheets.Add
webdata.Activate
Application.ScreenUpdating = False

For Each c In rngList

URL1 = baseURL & c.Value
With tempo.QueryTables.Add(Connection:=URL1, Destination:=tempo.Range("A1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With

c.Offset(0, 2).Value = tempo.Range("E13").Value

Application.ScreenUpdating = True
Application.ScreenUpdating = False
tempo.UsedRange.Delete
Next c


Application.DisplayAlerts = False
tempo.Delete

End Sub


HANK B 9 wrote:
> 
> hi- i would like to update stock prices in a excel97 sheet from somewhere, like
> yahoo, say every 5mins or so, but i would like this to occur in the background
> so all i see is my excel sheet. do i need to use some sort of scripting for
> this?
> anyone suggest the best possible way to go about this?
> i do use a program called MEDVED QUOTE TRACKER at present but then i have to
> copy all the info into my spreadsheets. i'm just trying to make that task a
> little easier.
>            thanks in advance hankb9@aol.com
> 