Excel総合相談所 135

[0090 名無しさん＠そうだ選挙にいこう 2019/05/09(木) 08:55:55.57]

>>87
とりあえず前半だけ
IEを全部閉じる
後半は俺には高度すぎて無理だ

Sub CloseAllIe()
　　Dim oSA As Object
　　Dim oWT As Object
　　Set oSA = CreateObject("shell.Application")
　　For i = oSA.Windows.Count To 1 Step -1
　　　　Set oWT = oSA.Windows(i - 1)
　　　　If TypeName(oWT) = "IWebBrowser2" Then oWT.Quit
　　Next
End Sub