excel - VBA querytables loop placing retrieved data in not correct cells -


i'm creating little macro retrieve data website has table in rows of 30.

the problem when loop, every iteration of loop places data column @ right instead of below. mean, query retrieves data columns q until row 30. when next iteration want gets columns q row 31 61.

thing places columns r to... xx until row 30. guess issue might on destination:=range...

sub extract_data_table() ' ' extract_data_table macro   ' = 1 41 x = 1 41 z = (x * 30) - 29 worksheets("nhl_results_rs").select worksheets("nhl_results_rs").activate mystr = "url;http://www.nhl.com/stats/game?fetchkey=20062allsatall&viewname=summary&sort=gamedate&gp=1&pg=" & x  activesheet.querytables.add(connection:= _     **mystr, destination:=range("$a$1"))**     '.commandtype = 0     .name = _     "game?fetchkey=20062allsatall&viewname=summary&sort=gamedate&gp=1&pg=1_2"     .fieldnames = true     .rownumbers = false     .filladjacentformulas = false     .preserveformatting = true     .refreshonfileopen = false     .backgroundquery = true     .refreshstyle = xlinsertdeletecells     .savepassword = false     .savedata = true     .adjustcolumnwidth = true     .refreshperiod = 0     .webselectiontype = xlspecifiedtables     .webformatting = xlwebformattingnone     .webtables = "3"     .webpreformattedtexttocolumns = true     .webconsecutivedelimitersasone = true     .websingleblocktextimport = false     .webdisabledaterecognition = false     .webdisableredirections = false     .refresh backgroundquery:=false end  next x  end sub

could of help?

you correct in assuming problem lies in destination. have never used command, after brief experimenting i've deducted if destination occupied, paste data in nearest suitable space right of original destination.

to bypass this, should add offset destination range, based on iterator, x in example.

what did this:

destination:=range("$a$1").offset((x - 1) * 31, 0))

this work, you'll notice repeating column headers, guess you'll need experiment .fieldnames bit well.


Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture ...
Read more