problem with VBA web query

[sea urchin]

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:=ConnectString, _
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!

 

[Don Guillett]

Assuming you have your result. Record a macro while doing this:
select the first cell(a1) in the query>data>import>edit>select tables
desired>import
Look at the resulting macro