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
(E-Mail Removed)
"Will" <(E-Mail Removed)> wrote in message
news:5755B129-8018-4253-8944-(E-Mail Removed)...
>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
> (E-Mail Removed)
> "Will" <(E-Mail Removed)> wrote in message
> news:5755B129-8018-4253-8944-(E-Mail Removed)...
> >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" <(E-Mail Removed)> wrote in message
news:eXY%(E-Mail Removed)...
> 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
> (E-Mail Removed)
> "Will" <(E-Mail Removed)> wrote in message
> news:5755B129-8018-4253-8944-(E-Mail Removed)...
>>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
> > (E-Mail Removed)
> > "Will" <(E-Mail Removed)> wrote in message
> > news:5755B129-8018-4253-8944-(E-Mail Removed)...
> > >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" <(E-Mail Removed)> wrote in message
> news:eXY%(E-Mail Removed)...
> > 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
> > (E-Mail Removed)
> > "Will" <(E-Mail Removed)> wrote in message
> > news:5755B129-8018-4253-8944-(E-Mail Removed)...
> >>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" <(E-Mail Removed)> wrote in message
news:E61D8171-44CB-408F-8C72-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
>> news:eXY%(E-Mail Removed)...
>> > 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
>> > (E-Mail Removed)
>> > "Will" <(E-Mail Removed)> wrote in message
>> > news:5755B129-8018-4253-8944-(E-Mail Removed)...
>> >>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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:E61D8171-44CB-408F-8C72-(E-Mail Removed)...
>> 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" <(E-Mail Removed)> wrote in message
>>> news:eXY%(E-Mail Removed)...
>>> > 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
>>> > (E-Mail Removed)
>>> > "Will" <(E-Mail Removed)> wrote in message
>>> > news:5755B129-8018-4253-8944-(E-Mail Removed)...
>>> >>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" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
> > news:E61D8171-44CB-408F-8C72-(E-Mail Removed)...
> >> 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" <(E-Mail Removed)> wrote in message
> >>> news:eXY%(E-Mail Removed)...
> >>> > 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
> >>> > (E-Mail Removed)
> >>> > "Will" <(E-Mail Removed)> wrote in message
> >>> > news:5755B129-8018-4253-8944-(E-Mail Removed)...
> >>> >>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.
> >>> >
> >>>
> >>>
> >>>
> >
> >
>
>
>