Yahoo Chart Into Excel
 

..... dubt on this code
but why the macro not paste the chart intothe sheet???????

Sub Tester()
Dim ie As New InternetExplorer
sURL = "http://finance.yahoo.com/"
ie.navigate sURL
Do While ie.readyState < READYSTATE_COMPLETE
Loop
ie.Visible = True
Base01 = "http://ichart.yahoo.com/z?s="
Base02 = "AAA"
LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
sURL = Base01 & Cells(i, 1) & Base02
GetImage sURL, ie
Stop
Next i
ie.Quit
Set ie = Nothing
End Sub
Sub GetImage(sURL, ie)
ie.navigate sURL
Do While ie.readyState < READYSTATE_COMPLETE
Loop
End Sub


--
sal21


------------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php...fo&userid=2040
View this thread: http://www.excelforum.com/showthread...hreadid=380034