オブジェクト変数またはWithブロック変数が設定されていません

質問

はじめまして質問させていただきます。

Webページからコピー＆ペーストしたものを必要な情報だけ
抜き出すものを作成中です。
1ページ目は成功していますが
2ページ目の objIE.Navigate url　の行で
実行時エラー'91'　オブジェクト変数またはwithブロック変数が設定されていません。とでてしまします。
解決策をご教授お願いします。
Dim objIE As Object
Dim url As String
Dim tai As String
Dim aku As String
Dim uot As String
Dim i As Integer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
x = 1
For i = 1 To 20
url = Worksheets("データ").Range("E" & i)
objIE.Navigate url
Do
If objIE.Busy = False And objIE.readyState = 4 Then Exit Do
Loop
objIE.ExecWB 17, 0
objIE.ExecWB 12, 0
Sheets.Add
ActiveSheet.Name = "1"
Range("A1").Select
ActiveSheet.PasteSpecial Format:="テキスト"
objIE.Quit: Set objIE = Nothing
tai = Worksheets("1").Range("A13")
aku = Worksheets("1").Range("A63")
uot = Worksheets("1").Range("A64")
Worksheets("データ").Select
Range("A" & i) = tai
Range("B" & i) = aku
Range("C" & i) = uot
Application.DisplayAlerts = False
Worksheets("1").Delete
Application.DisplayAlerts = True
Next i

回答No.1

hana-hana3 · ベストアンサー

＞ Set objIE = Nothing

これが何を意味するかが解れば解決かも。

お礼

解放ですね。
忘れてました。ありがとうございます。