Hello
I'm trying to build a database searching information in the web
through web queries but I really cannot get a good result using VBA.
The code is the following:

Sub ImportComments()

Dim QT As QueryTable

ConnectString = "URL;http://groups.google.com/group/
microsoft.public.excel.programming/browse_frm/month/2007-07"

Set QT = ActiveSheet.QueryTables.Add(Connection:=ConnectStr ing, _
Destination:=Range("A1"))

With QT
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.BackgroundQuery = False
.AdjustColumnWidth = True
.EnableRefresh = True
.RefreshStyle = xlOverwriteCells
.Refresh
End With

End Sub

If I proceed manually I can get any table.
Is there any way to make it with VBA?

Thanks!

Assuming you have your result. Record a macro while doing this:
select the first cell(a1) in the querydataimporteditselect tables
desiredimport
Look at the resulting macro

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"sea urchin" wrote in message
oups.com...
Hello
I'm trying to build a database searching information in the web
through web queries but I really cannot get a good result using VBA.
The code is the following:

Sub ImportComments()

Dim QT As QueryTable

ConnectString = "URL;http://groups.google.com/group/
microsoft.public.excel.programming/browse_frm/month/2007-07"

Set QT = ActiveSheet.QueryTables.Add(Connection:=ConnectStr ing, _
Destination:=Range("A1"))

With QT
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.BackgroundQuery = False
.AdjustColumnWidth = True
.EnableRefresh = True
.RefreshStyle = xlOverwriteCells
.Refresh
End With

End Sub

If I proceed manually I can get any table.
Is there any way to make it with VBA?

Thanks!