Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

796 / 76807

←次へ　｜　前へ→


	【81676】WEB取り込みの際にエラーが出たり出なかったり。

K.K - 21/3/7(日) 11:43 -


	引用なし

	パスワード

天気予報のWEBサイトをエクセルに書き出す目的で作りましたが、
「実行時エラー'91 オブジェクト変数またはWITHブロック変数が設定されていません。」
が出たり、出なかったりします。

以下その構文ですが、

Sub 天気予報取り込み()

Application.ScreenUpdating = False

　　Dim ie As InternetExplorer
　　Dim Doc As HTMLDocument
　　Dim ObjTag As Object
　　Dim i As Long
　　Dim n As Long
　　
　　Set ie = CreateObject("InternetExplorer.Application")
　　ie.Visible = False
　　ie.navigate "WEBサイトのURL"
　　Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
　　　　DoEvents
　　Loop
　　
　　Worksheets("天気").Select
　　Cells.ClearContents
　　Cells.NumberFormatLocal = "G/標準"
　　
　　
　　Set Doc = ie.document
　　For i = 696 To 936
　　　　If Doc.all(i).tagName = "TD" Or Doc.all(i).tagName = "TH" Then
　　　　　 n = n + 1
　　　　　　Cells(Int((n - 1) / 8) + 1, (n - 1) Mod 8 + 1) = Doc.all(i).innerText
　　　　End If
　　　 Next i
　　　　
　　Cells.EntireColumn.AutoFit
　　Cells.EntireRow.AutoFit
ie.Quit

　ActiveWorkbook.Save
　Application.ScreenUpdating = True

　
End Sub

一度マクロ実行すると、
If Doc.all(i).tagName = "TD" Or Doc.all(i).tagName = "TH" Then
の所で最初に書いたエラー(デバッグ?)がかかります。

そのまま「終了」を押してもう一度実行すると今度はちゃんと動いたりします。

考えられる異常が何かあればご示唆お願いします。
Windows10　excel2007です。
以前にこのファイルでクエリを使おうとしましたが、その名残がどこかでエラーを引き起こしているのでしょうか?

0 hits

▼

【81676】WEB取り込みの際にエラーが出たり出なかったり。 K.K 21/3/7(日) 11:43