新聞財經娛樂♬資訊 News Economy

List few records from existing data and the expectge3d output.

jegajothy,

Is there a zipcode field in your 2nd Table? If there is then you can create a realationship on it. JC's suggestion will do it. However, if your 2nd table has no zipcode field on it, you need to create that field on it.

Sincerely,
Ed

You can add each of the tables in the query design window and create the relationship by dragging the field to be the key from one table to other.

Cheers
JC

I just scan your question, hope it help for quick  and using following simple for query to many tables you want

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://yourlinkwritehere, _
Destination:=Range("ai1"))
   ' .Name = "Quote: " & symb
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "2,4,6,8,10 ''Edit many tables here
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With