IEを閉じる

Internet Explorer（IE）のウィンドウを閉じるサンプルコードです。標準モジュールに以下のコードを追加して、IEStartEndプロシージャを実行します。IEStartEndプロシージャを実行すると、IEが起動して5秒後に終了します。

サンプルコード

【動作確認日】2014年2月11日
【動作確認環境】Windows XP SP3・Excel 2007・Internet Explorer 8

'IEを起動・終了する
Sub IEStartEnd()
    Dim objIE As Object

    'IE起動
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True

    '5秒停止
    Call WaitFor(5)

    'IE終了
    objIE.Quit

    Set objIE = Nothing
End Sub

'指定した秒だけ停止する関数
Function WaitFor(ByVal second As Integer)
    Dim futureTime As Date

    futureTime = DateAdd("s", second, Now)

    While Now < futureTime
       DoEvents
    Wend
End Function

'IEを起動・終了する

Sub IEStartEnd()

Dim objIE As Object

'IE起動

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True

'5秒停止

Call WaitFor(5)

'IE終了

objIE.Quit

Set objIE = Nothing

End Sub

'指定した秒だけ停止する関数

Function WaitFor(ByVal second As Integer)

Dim futureTime As Date

futureTime = DateAdd("s", second, Now)

While Now < futureTime

DoEvents

Wend

End Function

解説

サンプルの内容はIEを起動すると同じです。IEのウィンドウを閉じるために、IEオブジェクトのquitメソッドを使用しています。そして最後は生成したIEオブジェクトを破棄し、プログラムを終了します。

基礎からはじめるVBA

Microsoftのプログラミング言語、VBA（Visual Basic for Applications）の基礎を解説します。プログラミング初心者の方が対象です。

サンプルコード

解説

スポンサーリンク