copy query table data
 

when i run the following macro i get the data from the website, but when i
try to copy it to another location i get the following: "ExternalData_55:
Getting Data €¦"

how can i get the macro to wait for the data to be imported before copying?

any help is greatly appreciated - here is macro:

Sub MacroTest1()

With
ActiveSheet.QueryTables.Add(Connection:="URL;http://www.license.state.tx.us/ABProjectRegistrationOnline/ABProjectPrintConfirmationGeneral.aspx?strWhereURL =ABDataSearch&strProjNum=EABPRJA8800466", Destination:=Range("a1"))
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "5"
.Refresh
End With
Range("a1").Copy
Range("b1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True

End Sub

copy query table data
 

simply, you can use a " Wait " function

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime


"namenorg" 來函：

when i run the following macro i get the data from the website, but when i
try to copy it to another location i get the following: "ExternalData_55:
Getting Data €¦"

how can i get the macro to wait for the data to be imported before copying?

any help is greatly appreciated - here is macro:

Sub MacroTest1()

With
ActiveSheet.QueryTables.Add(Connection:="URL;http://www.license.state.tx.us/ABProjectRegistrationOnline/ABProjectPrintConfirmationGeneral.aspx?strWhereURL =ABDataSearch&strProjNum=EABPRJA8800466", Destination:=Range("a1"))
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "5"
.Refresh
End With
Range("a1").Copy
Range("b1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True

End Sub

copy query table data
 

Changing to backgroundquery:=false will cure your immediate problem.
However, I suspect you have more. Contact me privately if desired

Sub MacroTest1()

With
ActiveSheet.QueryTables.Add(Connection:="URL;http://www.license.state.tx.us/ABProjectRegistrationOnline/ABProjectPrintConfirmationGeneral.aspx?strWhereURL =ABDataSearch&strProjNum=EABPRJA8800466",
Destination:=Range("a1"))
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "5"
'.Refresh
.Refresh BackgroundQuery:=False
End With

Range("a1").Copy Range("b1")

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"namenorg" wrote in message
...
when i run the following macro i get the data from the website, but when i
try to copy it to another location i get the following: "ExternalData_55:
Getting Data €¦"

how can i get the macro to wait for the data to be imported before
copying?

any help is greatly appreciated - here is macro:

Sub MacroTest1()

With
ActiveSheet.QueryTables.Add(Connection:="URL;http://www.license.state.tx.us/ABProjectRegistrationOnline/ABProjectPrintConfirmationGeneral.aspx?strWhereURL =ABDataSearch&strProjNum=EABPRJA8800466",
Destination:=Range("a1"))
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "5"
.Refresh
End With
Range("a1").Copy
Range("b1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True

End Sub