Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default 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

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to retrieve the yahoo symbols into excel? Eric Excel Discussion (Misc queries) 1 April 18th 10 06:30 AM
How to get the quote from yahoo into excel? Eric Excel Discussion (Misc queries) 2 August 7th 07 12:46 PM
How to get the quote from yahoo into excel? Eric Excel Discussion (Misc queries) 1 August 7th 07 12:32 PM
How do I email an excel file via yahoo? Carol Excel Discussion (Misc queries) 1 July 29th 06 01:59 AM
How do I to see ¨yahoo! charts¨ on my excel worksheet? visualinvestor Excel Discussion (Misc queries) 0 July 24th 06 07:35 PM


All times are GMT +1. The time now is 01:41 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"