Excel Web Sayfası açılış hk

[mozdem]

Merhabalar
1- İnternet Sayfası Örneğin 12 saniyeiçinde açılmaz ise İnternet Explorer Kapansın
(Ben "Do While evn.BusyoEvents: Loop" döngü arasına kodlar yazmak istedimsede başaramadım)
2- Web sayfası görüntülenir ise, kaç saniye içinde açıldı.


Bu 2 soruya cevap aradım ancak bulamadım.
Tüm herkese çok teşekkür ederim

'**************** KODLAR AŞAĞIDA *************************

Sub int_gir()

'--------- Sayfa açılışı Değişken Tanımlama --------------

Dim int_ad As String

'-------- İnternet Sayfası Kapatma için değişken Tanımlaması
Dim Shell As Object
Dim IE As Object
Dim i As Variant
'------------------------------------------------

int_ad = Range("C1")

Set evn = CreateObject("internetexplorer.application")
evn.Visible = True

evn.Navigate int_ad

'*********** İNTERNET SAYFA AÇILIŞI BEKELEME SÜRESİ
'** Sayfa açılıncaya kadar beklesin. Ancak sayfa 15 saniyede açılmaz ise
'** İnternet Sayfası kapansın

Do While evn.Busy:

DoEvents: Loop

Do While Not evn.ReadyState = 4: DoEvents: Loop
'-------------------------------------------------
Application.Wait Now + TimeValue("00:00:5")
Set evn = Nothing
'---------------------------------------------------
'********* İNTERNET EXPLORER KAPANACAK -*************
'** İnternet Sayfası kapansın

Kapat:

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

'---------------------------------------------------

Application.Wait Now + TimeValue("00:00:3")

End Sub

 

[snx111]

sayac =sayac +1
if sayac >= 36000 then mgxbox "süre aşıldı"

veya x= timer
if x + 12 < timer then ....