#11
|
|||
|
|||
And in case anyone was offended by my post , Your Integrity ,Honesty and Generosity is well known by myself Shaun.
I just figured you either missed or forgot The Elk Input. And now I'ld like to get the Program I use , to cut down from 30 seconds to 5 seconds. Has anyone looked at Shauns Code and worked out why the Massive Gain in wasted time is acheived? Or is 5 seconds the correct time , and Shaun had an error in his programming that was causing it to take so long at 30 seconds? |
#12
|
|||
|
|||
Oh i know why it has changed by the way the input is done, i can replicate this now i know what it is doing.
If you put your excel web query in the forum i can do it for you. |
#13
|
|||
|
|||
See if this one can be speeded up.
With ActiveSheet.QueryTables.Add(Connection:= _ "URL;https://edog.grv.org.au/webwiz/wwiz.asp?wwizmstr=WWIZ.DOG.INFO2&STATE=V&SORT.FLAG=D&FROM.DD=01&FROM.MM=01&FROM.YYYY=1986&TO.DD=03&TO.MM=08&TO.YYYY=2011&PLACE=ALL&TRACK=ALL&DIST=ALL&DOG=bootmaker", _ Destination:=Range("A1")) .Name = "GRV" .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 = "5" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With |
#14
|
|||
|
|||
At the top of a Module put these 2 macros
Code:
You only need these once in the module then you can add as many different web queries as you want. Then add this to your macro. Code:
Just adjust to your needs. |
Thread Tools | Search this Thread |
Display Modes | |
|
|