VBAのIEエラーについて

最近の書き込み件数：今日 0件、昨日 0件
未読分：4件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#4 2014年12月26日(金)09時47分
From: 注射器

返事削除変更

根本的な解決ではないのですが、Sendkey操作でウインドウのファイル(F)-終了(X)と操作することで解決しました。

Message#3 2014年12月26日(金)09時45分
From: 注射器

返事削除変更

Option Explicit
Private objIE As Object
--------------------------------------------------------------
Sub IE起動()
Dim objShell As Object
Dim ADRES As String

Set objShell = CreateObject("Shell.Application")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
ADRES = "http://www.river.go.jp/nrpc0305gDisp.do?mode=&officeCode=22559&obsr..."
objIE.Navigate ADRES
wait

CloseIE

End Sub
------------------------------------------------------------------
Sub CloseIE()
objIE.Quit
Set objIE = Nothing
End Sub
----------------------------------------------------------------
Sub wait()
Application.wait Now + TimeValue("00:00:01")
End Sub

こんな感じで記述したのですが無理でした。
ページ中の閉じるボタンをクリックで閉じる方法でも良さそうですがわかりません。。。

Message#2 2014年12月26日(金)09時42分
From: VBAマスター

返事削除変更

閉じるコードが記述されていませんが、エラーが「オブジェクトが設定されていません」でしたら、IEのインスタンスを格納している変数をモジュールグローバルに変更します。

'例
Private objIE As Object

Sub IE起動()
'コード
End Sub

Public Sub CloseIE
objIE.Quit
Set objIE=Nothing
End Sub

Option Explicitの設定は必要です。

Message#1 2014年12月26日(金)09時34分
From: 注射器

返事削除変更

Excel VBAについて質問です。
Sub IE起動()

Dim objIE As Object

Set objShell = CreateObject("Shell.Application")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True 'IEウィンドウを表示
ADRES = "http://www.river.go.jp/nrpc0305gDisp.do?mode=&officeCode=22559&obsr..."
objIE.Navigate ADRES
wait

End Sub

これで開いたobjIEを閉じるためにobjIE.Quitで実行してもエラーで閉じれません。
どうすれば良いでしょうか？