Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro Problem
I have a macro that seems to run exceptionally long and uses 100% of CPU. Is
there something wrong or is it just the website? Any help is appreciated. Sub MacroKeep() For xNum = 1 To 5 Var3 = "URL;http://www.license.state.tx.us/ABProjectRegistrationOnline/ABProjectPrintConfirmationGeneral.aspx?strWhereURL =ABDataSearch&strProjNum=EABPRJ" Var4 = ActiveSheet.Range("b" & xNum) With ActiveSheet.QueryTables.Add(Connection:=Var3 & Var4, Destination:=Range("a1")) .WebFormatting = xlNone .WebSelectionType = xlSpecifiedTables .WebTables = "5" .Refresh BackgroundQuery:=False Range("a1:a5").Copy Range("c" & xNum).PasteSpecial Transpose:=True Range("a1:a5").ClearContents End With Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Worksheet Functions | |||
I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Discussion (Misc queries) | |||
Problem with macro | Excel Discussion (Misc queries) | |||
Problem with Macro | Excel Discussion (Misc queries) | |||
Macro Problem | Excel Worksheet Functions |