Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read Content From A Website
hi all,
i want to read the dynamic content of a website.. i.e., Open http://www.thebulliondesk.com/ in that website at the very top there is a table kind of thing showing Prices for Gold Price and Silver Price. i want to read the prices of gold and silver (dynamic prices)from that website and use them in my application. is it any way possible to do so, and if so can u plz guide me how to do it.. thanks for the help in advance. i tried saving the page's content in a .txt fromat but those dynamic values were not there in the .txt file. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read Content From A Website
Hi Pramod,
Open http://www.thebulliondesk.com/ in that website at the very top there is a table kind of thing showing Prices for Gold Price and Silver Price. i want to read the prices of gold and silver (dynamic prices)from that website and use them in my application. is it any way possible to do so, and if so can u plz guide me how to do it.. Data, get external data, new web query is the way to go I guess. Regards, Jan Karel Pieterse Excel MVP http://www.jkp-ads.com Member of: Professional Office Developer Association www.proofficedev.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read Content From A Website
hi Jan,
i tried doing it.. it showed an error saying that :"the query does not return any value" i tried exporting the whole page into excel and as u can see in the web page there are colums showinf bid-ask-(+/-)-LDN, but the cells do not show the values or the bid and ask column, as i think they r dynamic values. so is there any other possibility to read the data. thanks 4 the reply JAN "Jan Karel Pieterse" wrote: Hi Pramod, Open http://www.thebulliondesk.com/ in that website at the very top there is a table kind of thing showing Prices for Gold Price and Silver Price. i want to read the prices of gold and silver (dynamic prices)from that website and use them in my application. is it any way possible to do so, and if so can u plz guide me how to do it.. Data, get external data, new web query is the way to go I guess. Regards, Jan Karel Pieterse Excel MVP http://www.jkp-ads.com Member of: Professional Office Developer Association www.proofficedev.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read Content From A Website
Pramod,
The code below worked for me: Regards, David Miller Function GetPrices() Dim ie As Object, _ l, J As Long, _ r As Range Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .navigate "http://www.thebulliondesk.com/" & _ "RHS_CHARTS.aspx?Chart=Fix" Do Until .readystate = 4 DoEvents Loop With .document.all For l = 0 To .Length If .Item(l).classname = "td" Then Set r = Range("A65536").End(xlUp).Offset(1, 0) Select Case .Item(l).innertext Case "Gold" For J = 0 To 5 r.Offset(0, J).Value = .Item(l + J).innertext Next J Case "Silver" For J = 0 To 5 r.Offset(0, J).Value = .Item(l + J).innertext Next J GoTo PricesExit End Select End If Next End With End With PricesExit: Set r = Nothing Set ie = Nothing End Function |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read Content From A Website
HI Dave
the piece of code u provided i tried pating it in a module in a n excel sheet and then in workbook_open i called that function, by which it opened internet explorer and showed the webpage pointing in the code. but i want the data in the excel sheet.. and am i going the right way in executing the following code provided by you. else guide me throught the steps. thanks Pramod Mehta "Dave Miller" wrote: Pramod, The code below worked for me: Regards, David Miller Function GetPrices() Dim ie As Object, _ l, J As Long, _ r As Range Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .navigate "http://www.thebulliondesk.com/" & _ "RHS_CHARTS.aspx?Chart=Fix" Do Until .readystate = 4 DoEvents Loop With .document.all For l = 0 To .Length If .Item(l).classname = "td" Then Set r = Range("A65536").End(xlUp).Offset(1, 0) Select Case .Item(l).innertext Case "Gold" For J = 0 To 5 r.Offset(0, J).Value = .Item(l + J).innertext Next J Case "Silver" For J = 0 To 5 r.Offset(0, J).Value = .Item(l + J).innertext Next J GoTo PricesExit End Select End If Next End With End With PricesExit: Set r = Nothing Set ie = Nothing End Function |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing Content in one coulumn using given content in another | Excel Worksheet Functions | |||
How to transpose formulas from column content to row content. | Excel Worksheet Functions | |||
How to read text content of AS400 screen | Excel Programming | |||
How can a file be converted from Read-Only to Read/Write | Excel Discussion (Misc queries) |