ウェブクエリのマクロが不正な時がある

質問

お世話になります、
エクセルにウェブクエリのマクロを組み込んで動かしたら
実行結果がＯＫの場合と駄目な場合があります。
ヤフーの株価ランキングから４ページ分をシートに
落とす処理なのですが７～８回に一度くらいページ
があるのに株価表示がないような落ち方をします。
ＩＥ６で実行しています。
ソースは
'1-4Loop処理
For i = 1 To UBound(urls)

'ワークシート追加
Worksheets("Sheet1").Select

Worksheets.Add before:=Worksheets(ActiveSheet.Name)

'名前を設定
ActiveSheet.Name = "rank" & i

'webクエリ取得対象シートをアクティブ
Set ws = Worksheets("rank" & i)

ws.Activate

'QueryTableがなければ追加する
If ws.QueryTables.Count = 0 Then

'QueryTableの設定
With ws.QueryTables.Add("URL;", ws.Range("A1"))

.RefreshStyle = xlOverwriteCells

.AdjustColumnWidth = False

.WebSelectionType = xlAllTables

.WebFormatting = xlWebFormattingNone

.WebTables = "17"

End With

End If
With ws.QueryTables(1)

.Connection = urls(i)

.BackgroundQuery = True

.Refresh BackgroundQuery:=False

End With
Next

宜しくお願いいたします。

回答No.2

DOUGLAS_ · ベストアンサー

[回答番号：No.1] の DOUGLAS_ です。

　そもそも、
＞株価表示がないような落ち方をします。
とお書きなのは、マクロ実行後に、いくつかのシートが１行目に

1 / 36 ページを表示（合計：1767件）[ 前の50件 | 次の50件 ]

のような文字列だけが表示される、ということかなと存じまして、前回答を書きました。

　この場合、[ツール バー] - [外部データ] の [データの更新] をクリックすると他のワークシートと同様の内容を読み込むようですので、

＞毎回、取得するしかない
ということでしたら、

Next

の前に

If Range("A1") <> "順位" And Range("A1") <> "コード" Then
　ws.QueryTables(1).Refresh BackgroundQuery:=False
End If

とでもおまじないを書いておくといかがでしょうか？

お礼

アドバイス有難うございました、
If Range("A1") <> "順位" And Range("A1") <> "コード" Then
　ws.QueryTables(1).Refresh BackgroundQuery:=False
End If
教えて頂いた方法を参考に解決しました。
お世話様でした。

回答No.1

DOUGLAS_

お示しのコードは、
＞ヤフーの株価ランキングから４ページ分をシートに落とす処理
ですよね。

　毎度毎度、新たなシートを作成して、その処理をしていらっしゃるのでしょうか？

＞７～８回に一度くらいページがあるのに株価表示がないような落ち方をします。
　この際、マクロで毎度の更新処理をするのではなくて、上記マクロは１回だけ実行しておいて、そのブックを保存し、開いた時に、[外部データ] の [すべて更新] が行なわれるように、ブックモジュール に

Private Sub Workbook_Open()
　ActiveWorkbook.RefreshAll
End Sub

と書いておくか、それでもダメなら、[ツール バー] - [外部データ] の [すべて更新] をクリックしてみられたらいかがでしょうか？

補足

説明不足で申し訳ありません、
処理に当たって取得するランキング形式
（値上がり率、値下がり率・・・）を
選択できる形式にしているので念の為
毎回削除する仕様にしています。
毎回、取得するしかないと思うのですが、
何か良いお考えがあれば宜しくお願いいたします。