excel - How to make multiple requests to Yahoo Finance to get around the 200 stock limit? -

-

i have developed excel sheet (with online tutorial) pulls stock information yahoo finance. here code have far: 

private sub btnrefresh_click() dim w worksheet: set w = activesheet dim last integer: last = w.range("a1000").end(xlup).row if last = 1 exit sub dim symbols string dim integer = 2 200     symbols = symbols & w.range("a" & i).value & "+" next symbols = left(symbols, len(symbols) - 1)  dim url string: url = "http://finance.yahoo.com/d/quotes.csv?s=" & symbols & "&f=sl1w1t8ee8rr5s6j4m6kjp5" dim http new winhttprequest http.open "get", url, false http.send  dim resp string: resp = http.responsetext dim lines variant: lines = split(resp, vbnewline) dim sline string = 0 ubound(lines)     sline = lines(i)     if instr(sline, ",") > 0         values = split(sline, ",")         w.cells(i + 2, 4).value = values(1)         w.cells(i + 2, 5).value = right(replace(values(2), chr(34), ""), 7)         w.cells(i + 2, 7).value = values(3)         w.cells(i + 2, 8).value = values(4)         w.cells(i + 2, 10).value = values(5)         w.cells(i + 2, 11).value = values(6)         w.cells(i + 2, 12).value = values(7)         w.cells(i + 2, 13).value = values(8)         w.cells(i + 2, 14).value = values(9)         w.cells(i + 2, 15).value = values(10)         w.cells(i + 2, 16).value = values(11)         w.cells(i + 2, 17).value = values(12)         w.cells(i + 2, 18).value = values(13)     end if next w.cells.columns.autofit end sub

the problem having if have more 200 stock tickers in column a, comes error because cannot make request has more 200 ticker symbols. question how can modify code request information first 200 stocks put in data, move next 200 stocks , put in data , on until has gone through every symbol?

this version of function break requests maximum of 100 symbols @ time. results symbols collected resp before proceeding next phase.

note earlier response has bug: results symbols 200+ overwrite results first batch of symbols.

    private sub btnrefresh_click()     dim w worksheet: set w = activesheet     dim last integer: last = w.range("a1000").end(xlup).row     if last = 1 exit sub     dim symbols string     dim resp string     dim integer     dim url string     dim http winhttprequest     resp = ""     symbols = ""     = 2 last         if symbols <> "" symbols = symbols & "+"         symbols = symbols & w.range("a" & i).value         if mod 100 = 1 or = last       ' @ 100 symbols @ time             url = "http://finance.yahoo.com/d/quotes.csv?s=" & symbols & "&f=sl1w1t8ee8rr5s6j4m6kjp5"             set http = new winhttprequest             http.open "get", url, false             http.send             resp = resp & http.responsetext             symbols = ""         end if     next     dim lines variant: lines = split(resp, vbnewline)     '' remaining code unchanged

...tom


Comments

Post a Comment

Popular posts from this blog

python - mat is not a numerical tuple : openCV error -

-
i have write down code showing error ma not getting it: please help: showing mat not numerical tuple: import cv import cv2 capture = cv2.videocapture("j.3gp") while(1): _, frame1 = capture.read() grayimage1 = cv2.cvtcolor(frame1, cv2.color_bgr2gray) _, frame2 = capture.read() grayimage2 = cv2.cvtcolor(frame2, cv2.color_bgr2gray) differenceimage = cv2.absdiff(grayimage1,grayimage2) thresholdimage = cv2.threshold(differenceimage,25,255,cv2.thresh_binary) cv2.imshow("difference image", differenceimage) cv2.imshow("threshold image", thresholdimage) cv2.imshow("image", frame1) k = cv2.waitkey(30) & 0xff error arising : ----------------------------------------------------------------------------------------- traceback (most recent call last): file "desk.py", line 15, in <module> cv2.imshow("threshold image", thresholdimage) typeerror: mat not numerical tuple
Read more

c# - MSAA finds controls UI Automation doesn't -

-
i'm working on automating windows application. i'm using teststack white framework. i've hit problem. program has 'window' object cannot see inside of. white shows no controls inside of it. inspect.exe shows no controls inside of either when running in ui automation mode. if switch inspect msaa see controls inside fine. there anyway me use msaa c# handle on these controls? if can identify msaa functions need, can use p/invoke call them c#. here's example article doing msaa: http://www.codeproject.com/articles/38906/ui-automation-using-microsoft-active-accessibility also, pinvoke.net can used identify iaccessible (msaa) functions: http://www.pinvoke.net/search.aspx?search=iaccessible&namespace=[all] here's answer along lines: msaa com-based? finally, alternative p/invoke, might able use tlbimp.exe create wrapper assembly oleacc.dll, , access msaa functions through it. i'm not sure if works msaa, it's worth try. as e
Read more

wordpress - .htaccess: RewriteRule: bad flag delimiters -

-
pulling hair out on one. have following .htaccess file custom redirects in addition wordpress's default settings. when tested on local wamp server worked fine after moving production i'm not getting rewriterule: bad flag delimiters error in server log , after while site goes down internal server error any appreciated. in advance! <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^rockford_weddings___welcome\.html$ /wedding/ [r=301,l] rewriterule ^blog/?$ /journal/ [r=301,l] rewriterule ^blog/(.*)$ /$1 [r=301,l] rewriterule ^portraitinvestment/?$ /portraitinvestment\.pdf [r=301,l] rewriterule ^weddinginvestment/?$ /weddinginvestment\.pdf [r=301,l] rewriterule ^holidaycards2014/?$ /holidaycards2014\.pdf [r=301,l] </ifmodule> # begin wordpress <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^index\.php$ - [l] rewritecond %{request_filename} !-f rewritecond %{request_filename} !-d rewriterule . /index.php [l] </
Read more