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.

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.

Thanks that helps a lot.

This puts the table in A1 of the sheet "Data", can it be adapted to the
current selected cell?

"Don Guillett" wrote:

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.

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.

I have tried working with the Destination to make it the current cell. This
did not work: Destination:=ActiveSheet.Cells(ActiveCell))


"Will" wrote:

Thanks that helps a lot.

This puts the table in A1 of the sheet "Data", can it be adapted to the
current selected cell?

"Don Guillett" wrote:

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.

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.

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.

That didn't work either under testing, but this did:

Dim rng As Range
Set rng = ActiveCell
With ActiveWorkbook.ActiveSheet _
.QueryTables.Add(Connection:="URL;mytargetpage", _
Destination:=rng)
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With

Mike F
"Mike Fogleman" wrote in message
m...
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.

Mike - Thanks. That did it.

"Mike Fogleman" wrote:

That didn't work either under testing, but this did:

Dim rng As Range
Set rng = ActiveCell
With ActiveWorkbook.ActiveSheet _
.QueryTables.Add(Connection:="URL;mytargetpage", _
Destination:=rng)
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With

Mike F
"Mike Fogleman" wrote in message
m...
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.