« ■Word VBA(検索文字列の行を選択) | トップページ | ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) »

2010年11月 6日 (土)

▲VBScript(複数のIEを一気に終了する)

VBスクリプトネタ第2弾です。
最近IEを一気にたくさん開いておこなう作業が多くて、終了する際に一画面一画面閉じていたのですが
いい加減面倒くさくなったので一気に閉じるVBSを作成してみました。
IEにはWordのように一気に閉じる機能がないようなので自作しました。
テキストエディタに張り付けて、ショートカットファイルをツールバーの「クイック起動」に置いておけば、即座
にIEを終了することができます。お試しあれ。
ほぼこのままVBAにしても実行できます。

Option Explicit

Dim lVal
Dim oWinS
Dim objShell
Dim objWindowsShell

Set objShell = CreateObject("Shell.Application")
Set objWindowsShell = objShell.Windows()

Dim a
Dim i
ReDim a(0)
For Each oWinS In objWindowsShell
    If InStr(LCase(oWinS.FullName), "iexplore.exe") > 0 Then
        i = i + 1
        ReDim Preserve a(i)
        Set a(i) = oWinS
    End If
Next
For i = 1 To UBound(a)
    a(i).Quit
Next

Set oWinS = Nothing
Set objShell = Nothing
Set objWindowsShell = Nothing
WScript.Quit

« ■Word VBA(検索文字列の行を選択) | トップページ | ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) »

VBScript」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

« ■Word VBA(検索文字列の行を選択) | トップページ | ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) »