Web Sayfası Kapatma

[Seyit Tiken]

Arkadaşlar Selamlar, Kolay Gelsin,
Açık olan bir web sayfasını, örnek olarak "www.excel.web.tr"'yi kapatabilir miyiz?, yani excel üzerinden düğmeye basacağız, ilgili web sitesi kapanacak, bu mümkün müdür?, teşekkür eder, sevgi ve saygılarımı sunuyorum.

 

[Levent Menteşoğlu]

Seyit bey aşağıdaki şekilde kapatabilirsiniz. Ancak excel.web.tr her zaman açık olsun.

Sub intexplorerkapat()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.Document) = "HTMLDocument" Then
If nesne.LocationURL = "[URL]http://www.google.com.tr/[/URL]" Then nesne.Quit
End If
Next
End Sub

 

[İhsan Tank]

Seyit bey aşağıdaki şekilde kapatabilirsiniz. Ancak excel.web.tr her zaman açık olsun.

kodu bankamıza kayıt ettim ama size katılıyorum excel.web.tr hiç bir zaman kapanmaması gereken yer diye düşünüyorum

 

[Seyit Tiken]

Levent Bey, Harikasınız, çok teşekkür ediyoruz, Excel'e şapka çıkarmak lazım. Sitemizin özünde Sevgi ve Saygı var, Allahın izniyle bu çizgide güçlenerek ilerleyecek. Sevgi ve saygılarımı sunuyorum.

Not : Levent Bey, şöyle bir şeyde yapılabilir mi? birden fazla web sitesi var diyelim, tüm web sitelerini bir seferde kapatabilir miyiz?

 

[Ömer]

Seyit Bey,

2. if şartını kaldırırsak olur sanırım. Bu şekilde denermisiniz..

Sub intexplorerkapat()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.Document) = "HTMLDocument" Then
    nesne.Quit
End If
Next
End Sub

.

 

[Seyit Tiken]

Ömer Bey, yanıtınız için çok teşekkür ediyorum, kod son derece mükemmel, yalnız şöyle bir durum var : Web Sitelerini kapatırken bir tane kalıyor, örnek olarak, dört tane web sitesi açık, kodu çalıştırdığımızda üç site kapanıyor biri kalıyor, ikinci sefer düğmeye bastığımızda son kalan site kapanıyor. Tek seferde bütün web siteleri kapatılabilir mi?, tekrar teşekkür ediyorum, kolay gelsin.

 

[dragon44760]

Seyit bey'den özür dileyerek benzer bir konuda soru sormak istiyorum. Örneğin bir internet explorer'da 5 tane değişik sayfa sekmelerde(sekmelerde açılmamış 5 ayrı sayfada olabilir) açık ve "http://www.excel.web.tr/" aktif durumda lakin açık olan "http://www.google.com.tr/" nasıl aktif hale getirebirim.

 

[Ömer]

Ömer Bey, yanıtınız için çok teşekkür ediyorum, kod son derece mükemmel, yalnız şöyle bir durum var : Web Sitelerini kapatırken bir tane kalıyor, örnek olarak, dört tane web sitesi açık, kodu çalıştırdığımızda üç site kapanıyor biri kalıyor, ikinci sefer düğmeye bastığımızda son kalan site kapanıyor. Tek seferde bütün web siteleri kapatılabilir mi?, tekrar teşekkür ediyorum, kolay gelsin.

Seyit Bey,

Bu şekilde denermisiniz. Kodlar alıntıdır..

Public Sub Kapat()
 
    Dim Shell As Object
    Dim IE As Object
    Dim i As Variant
 
    Set Shell = CreateObject("Shell.Application")
 
    i = Shell.Windows.Count
    Do While i > 0
        i = i - 1
        Set IE = Shell.Windows(i)
        If TypeName(IE.Document) = "HTMLDocument" Then IE.Quit
    Loop
 
End Sub

.

 

[Seyit Tiken]

Ömer Bey, teşekkür ediyorum, zahmet oldu, eve gidince deneyecem.

 

[dragon44760]

7'nci mesajdaki soruma bakabilecek var mı?
Yardımcı olacaklara şimdiden teşekürler...

 

[rcekinir]

Sub intexplorerkapat()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.Document) = "HTMLDocument" Then
nesne.Quit
End If
Next
End Sub


kodlarıyla Internet Explorer sayfalarını kapatıyor. Acaba kodları Chrome web sayfalarını kapatacak şekilde uyarlayabilir miyiz.