Web Sayfalarından İstediğim Sayfayı Kapatma

[askm]

Hayırlı geceler. İnternet Explorer ile açılmış 3-4 tane web sayfası açık ise bunlardan istediğim sayfayı kapatabilir miyim.Örneğin yan yana sekmelerde A, B,C,D sayfaları açık ise. B sayfasını nasıl kapatırım.
Birde D sayfasını aktif edip esc tuşuna nasıl basarım

 

[halit3]

kırmızı yere arana sayfaya ait içerir isimi yaz kodu çalıştır.

Sub kapat()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.Document) = "HTMLDocument" Then
If nesne.LocationURL Like "*" & "[COLOR="Red"]excel[/COLOR]" & "*" Then
MsgBox nesne.LocationURL
nesne.Quit
Exit For
End If

End If
Next
End Sub

 

[askm]

Halit bey ilginiz için teşekkürler. Yalnız For Each içerisine hiç girmeden direkt döngüden çıkıyor. Nesne değeri empty oluyor.

 

[halit3]

Benim bilgisayarımda
işletim sistemi windows7
Tarayıcı explorer 9
2003 ofis sistemi
yüklü bununla deniyorum işlemi yapıyor.

 

[askm]

Benim bilgisayarda office 2016 64 bit, Tarayıcı explorer 11 işletim sistemi 2007 mevcut.

 

[netkit]

Selam;
office 2016 32bit, Tarayıcı explorer 11 işletim sistemi w10 64 bit çalışıyor

 

[askm]

Dim ile tanımlama yapınca çalıştı. Teşekkür ediyorum.