▲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」カテゴリの記事
- ▲VBScript(文字列をクリップボードへコピー)(2010.02.21)
- VBA雑記帳0107(2016.01.07)
- VBA雑記帳1213_2(2015.12.13)
- VBA雑記帳1213(2015.12.13)
- ▲VBScript(複数のIEを一気に終了する)(2010.11.06)
コメント
« ■Word VBA(検索文字列の行を選択) | トップページ | ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) »
平陽凛様、始めまして。
「VBA IE 全て閉じる」で検索していて辿り着きました。
なかなかいいコードが見つからなかったのですが、こちらのコードを試してみたところ、完璧に動作いたしました(嬉)。
For~Eachの中を
「b = oWinS.LocationURL
If InStr(b, "finance.google") <> 0 Then」
としたところ、ほぼ思い通りの結果(グーグルファイナンスのページのみ全て閉じる)となり、本当に感謝しております。ありがとうございました。
投稿: TH69 | 2017年11月22日 (水) 15時42分
TH69様
こんばんは、平陽凛です。
わざわざコメント頂きありがとうございます。
私のコードがお役に立って良かったです。
ご自分でカスタマイズされているようで、
素晴らしいですね。
投稿: 平陽凛 | 2017年11月29日 (水) 23時00分