2017年12月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            

« ■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」カテゴリの記事

コメント

平陽凛様、始めまして。
「VBA IE 全て閉じる」で検索していて辿り着きました。

なかなかいいコードが見つからなかったのですが、こちらのコードを試してみたところ、完璧に動作いたしました(嬉)。

For~Eachの中を
「b = oWinS.LocationURL
If InStr(b, "finance.google") <> 0 Then」
としたところ、ほぼ思い通りの結果(グーグルファイナンスのページのみ全て閉じる)となり、本当に感謝しております。ありがとうございました。

TH69様
こんばんは、平陽凛です。
わざわざコメント頂きありがとうございます。
私のコードがお役に立って良かったです。
ご自分でカスタマイズされているようで、
素晴らしいですね。

コメントを書く

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

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