Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Mark...Since you haven't provided the url, I'm not exactly sure what you're trying to do. But perhaps the following construction can achieve what you want in a much faster and more economical fashion than using the query method...Ron
Note: IE-Tools-Internet Options-Security-Internet-Custom Level-Miscellaneous-set "Access data sources across domains" to "Enable" to prevent "Access Denied" errors. Sub Test() my_url = "http://www.your_url.com" Set my_obj = CreateObject("MSXML2.XMLHTTP") my_obj.Open "GET", my_url, False my_obj.send my_var = my_obj.responsetext Set my_obj = Nothing ' now you can use "instr" and "mid" to extract the information you ' want from the source code which is contained in my_var End Sub |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() "ron" wrote in message ... Mark...Since you haven't provided the url, I'm not exactly sure what you're trying to do. But perhaps the following construction can achieve what you want in a much faster and more economical fashion than using the query method...Ron Note: IE-Tools-Internet Options-Security-Internet-Custom Level-Miscellaneous-set "Access data sources across domains" to "Enable" to prevent "Access Denied" errors. Sub Test() my_url = "http://www.your_url.com" Set my_obj = CreateObject("MSXML2.XMLHTTP") my_obj.Open "GET", my_url, False my_obj.send my_var = my_obj.responsetext Set my_obj = Nothing ' now you can use "instr" and "mid" to extract the information you ' want from the source code which is contained in my_var End Sub cool, I'll play with that Thanks Mark |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() "ron" wrote in message ... Mark...Since you haven't provided the url, I'm not exactly sure what you're trying to do. But perhaps the following construction can achieve what you want in a much faster and more economical fashion than using the query method...Ron Note: IE-Tools-Internet Options-Security-Internet-Custom Level-Miscellaneous-set "Access data sources across domains" to "Enable" to prevent "Access Denied" errors. Sub Test() my_url = "http://www.your_url.com" Set my_obj = CreateObject("MSXML2.XMLHTTP") my_obj.Open "GET", my_url, False my_obj.send my_var = my_obj.responsetext Set my_obj = Nothing ' now you can use "instr" and "mid" to extract the information you ' want from the source code which is contained in my_var End Sub Hey Ron, I finally got around to trying that (got busy with other stuff) it works great, thanks fwiw the url is similar to http://download.finance.yahoo.com/d/...&f=l1vhgd1rm4n where the parts "....AAPL+EZCH+BIDU+ARUN+....." can be any series of stock tickers and the tags after &f= are any list of yahoo finance tags see for more info http://www.gummy-stuff.org/Yahoo-data.htm thanks mark |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Save 60% on Data Entry, Data Conversion, Data Processing Services byOffshore-Data-Entry | Excel Programming | |||
Save 60% on Data Entry, Data Conversion, Data Processing Services byOffshore-Data-Entry | Excel Programming | |||
Reliable Data Conversion,Data Formats and Data Entry Services by DataEntry India | Excel Programming | |||
Data Entry Online, Data Format, Data Conversion and Data EntryServices through Data Entry Outsourcing | Excel Discussion (Misc queries) | |||
Excel Macro for taking data external data and populating it on a sheet and deleting unwanted data | Excel Programming |