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

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
>
>
>

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
(E-Mail Removed)
"namenorg" <(E-Mail Removed)> wrote in message
news:47D4DBD6-243B-4157-B351-(E-Mail Removed)...
> 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
>
>
>