Destination:=.ActiveCell)
We were trying to do things to two different worksheets:
With ActiveWorkbook.ActiveSheet _ 'Activesheet
and then tried to
Destination:=Worksheets("sheet1").ActiveCell) 'Sheet1
Now we need:
With ActiveWorkbook.ActiveSheet _
..QueryTables.Add(Connection:="URL;mytargetpage", _
Destination:=.ActiveCell)
Mike F
"Will" wrote in message
...
Thanks Mike
But that does not seem to work Here is my full code
With ActiveWorkbook.ActiveSheet _
.QueryTables.Add(Connection:="URL;mytargetpage", _
Destination:=Worksheets("sheet1").ActiveCell)
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
"Mike Fogleman" wrote:
Destination:=Worksheets("Data").Activecell)
Mike F
"Don Guillett" wrote in message
...
Here's an example
With ActiveWorkbook.Worksheets("Data").QueryTables.Add( _
Connection:="URL;" & your_url,
Destination:=Worksheets("Data").Cells(1, 1))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Will" wrote in message
...
I need to build an addin application that creates a brand new web query
in
the target cell / cell range. I know how to modify, refresh, but not
create
a brand new query. I intend to provide a choice of several data page
queries.