VBAの追加

質問

同じ様な場所からデータを取り出す時、欲しい情報はWebTables＝"5"でK3に「5」を入力しておきますが、たまに1つか2つくらい場所違いにより欲しい情報はWebTables＝"4"の時が存在します。
l3(エル3）に「4」を入力しておいて、WebTables =5に欲しくない情報が入っている場合はWebTables =4を使用するという命令を追加したいと思います。
下記右側のようにセルに「メーカー」の文字が入っていればそのままWebTables =5を使い、「メーカー」の文字が入っていなければWebTables =4を実行　と考えております。
また、それ以外の方法でも構いませんのでお願い致します。

Dim i As Long
Dim myAddress As String
lastrow = ActiveSheet.Range("A3").End(xlDown).Row
d = 50
For i = 3 To lastrow

myAddress = Range("B" & i).Value

Dim bbb As String
bbb = Range("K3").Value

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & myAddress, Destination:=Range("B" & d + 1))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "" & bbb
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

d = Range("B65536").End(xlUp).Row
Next i

　　　　　　　　　　　　　　　　　　　　WebTables =5の場合
　　　　　　　　　　　　　　　　　　　　正しく欲しい情報
　　　　　　　　　　　　　　　　　　　　111111111111111111 　　　　　　　　メーカー1111111111
　　　　　　　　　　　　　　　　　　　　111111111111111111 　　　　→　　 11111111111111111
　　　　　　　　　　　　　　　　　　　　111111111111111111　　　　　　　　 11111111111111111
WebTables =4の場合
正しく欲しい情報　　　　　　欲しくない情報が入っている
111111111111111111　　　　　222222222222222222
111111111111111111　　　　　222222222222222222
111111111111111111　　　　　222222222222222222

回答No.1

mitarashi

直接目的のシートに取り込むと、「外れ」の時のUndoが面倒なので、テンポラリのシートに取り込んで、「メーカー」の文字を検索し、ヒットすれば目的のシートに貼り付け、外れなら、テンポラリシートをクリアし、テーブルの番号を変更して再試行する様にしてはいかがでしょうか。

ウェブクエリを用いず、直接IEを制御してTableの中味を判断して取り込む方法もあるそうです。
http://ie.vba-ken3.jp/sample/002/2009-03-16.html