Web Sayfası Kapatma

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,059
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Seyit bey aşağıdaki şekilde kapatabilirsiniz. Ancak excel.web.tr her zaman açık olsun. :)

Kod:
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Seyit Bey,

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

Kod:
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Ö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.
 
Katılım
30 Mart 2008
Mesajlar
280
Excel Vers. ve Dili
Microsoft Office Excel 2003, Türkçe
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.
 
Son düzenleme:

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Ö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..

Kod:
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Ömer Bey, teşekkür ediyorum, zahmet oldu, eve gidince deneyecem.
 
Katılım
30 Mart 2008
Mesajlar
280
Excel Vers. ve Dili
Microsoft Office Excel 2003, Türkçe
7'nci mesajdaki soruma bakabilecek var mı?
Yardımcı olacaklara şimdiden teşekürler...
 
Katılım
7 Temmuz 2004
Mesajlar
82
Excel Vers. ve Dili
Office 2016 Türkçe
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.
 
Üst