Excel VBAのQueryTablesのプロパティについて

Excel2000においてQueryTablesを使用して、Webからデータの取り込みを行っております。

その際、「WebTables」プロパティにWeb上のtableIDを指定してデータ取得をしています。

しかし、web上にtableIDの全く異なるtableが複数ある場合、
Excel2016において同じコードを作動させると、「WebTables」プロパティが認識しないようで、全てのtableの値を取得されてしまいます。
※「WebSelectionType」は「xlSpecifiedTables」に設定しています。

おそらくバージョン違いによる認識の違いかと思われますが、
Excel2016においてどのように指定すれば、tableが複数ある場合でも1つのテーブルの値を取得できるでしょうか？

Excel2000では以下のプログラムで取得しております。

With Workbooks(WBKNm).Sheets(WkShName).QueryTables.Add(Connection:= _
    "URL;"http://" & GETDATAURL & "?ExecKubun="あいうえお" , Destination:=Workbooks(WBKNm).Sheets(WkShName).Range("A1"))
    .Name = "QueryName"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "QueryWebTable"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .Refresh BackgroundQuery:=False
    .Parent.Names(.Name).Delete
    .Delete
End With