Batch stock info lookup in Excel 2003

Hi,

What about getting yahoo quotes with following code

Sub GetYQuotes()
   Base01 = "http://finance.yahoo.com/d/quotes.csv?s="
   Base02 = "&f=sl1d1t1c1ohgv&e=.csv"
   sURL = ""
   SymString = ""
   
   LastRow = Cells(65536, 1).End(xlUp).Row
   
   For i = 1 To LastRow
       SymString = SymString & Cells(i, 1) & " "
   Next i
   sURL = Base01 & SymString & Base02
   Workbooks.Open sURL
   Set rngSource = Cells(1).CurrentRegion
   x = rngSource.Rows.Count
   y = rngSource.Columns.Count
   With ThisWorkbook.Sheets(1)
       Set rngDest = Range(.Cells(1, 1), .Cells(x, y))
   End With
   rngDest.Value = rngSource.Value
   ActiveWorkbook.Close SaveChanges:=False
End Sub

HTH
Carim

Thank you! I had NO IDEA that Yahoo Finance had the Rank in Class. I'll give it a try!

Thanks again!

JonB

You are more than welcome ...

Have Fun ... and Profits ... !!!

Carim

Um, ok. Now my noob status is showing.

Where do I get this Yahoo Quotes stuff? Is it an add-in for Excel? And where do I put this code? And, lastly, is there a tutorial on using it?

I've used Excel to do LOTS of calculations before, but NEVER something like this.

Thanks for all your help!

JonB

Hi JonB,

A couple of remarks ...
1. This is not an add-in, it is a simple macro to be saved in a standard module
2. It retrieves prices and volume info, as lon as stock symbols are located in column A
3. It does not bring back rankings ... this calculation would have to done at the worksheet level ...

HTH
Cheers
Carim