VBAのIEエラーについて 削除
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 こんな感じで記述したのですが無理でした。 ページ中の閉じるボタンをクリックで閉じる方法でも良さそうですがわかりません。。。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。