webe bağlanırken Automation error hatası

[Orion1]

Merhaba
internette kodla veri yazarken işim bittikten sonra ie yi elle browserin çarpısından kapatıyorum.
Sonrasında kodla tekrar açmak istediğimde aşağıdaki satırda hata veriyor ve Automation error hatası verip çalışmıyor.Ancak 2-3 denemeden sonra açılıyor.İlgilenen arkadaşlara teşekkür ederim.

Set IE = CreateObject("InternetExplorer.Application")

 

[askm]

Explorerı çarpıdan kapatmayın. Quıt komutunu kullanın. Hata vermesi açık olarak algıladığı için

 

[Asri]

Merhaba
internette kodla veri yazarken işim bittikten sonra ie yi elle browserin çarpısından kapatıyorum.
Sonrasında kodla tekrar açmak istediğimde aşağıdaki satırda hata veriyor ve Automation error hatası verip çalışmıyor.Ancak 2-3 denemeden sonra açılıyor.İlgilenen arkadaşlara teşekkür ederim.

Set IE = CreateObject("InternetExplorer.Application")

İşleme başlamadan önce IE leri kapatmakda çözüm olabilir.
Denedim kapatma işlemi yapıyor.

findandterminate "IExplore.exe"

Sub FindAndTerminate(ByVal strProcName As String) 
    Dim objWMIService, objProcess, colProcess 
    Dim strComputer, strList 
    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" _ 
    & strComputer & "\root\cimv2") 
    Set colProcess = objWMIService.ExecQuery _ 
    ("Select * from Win32_Process Where Name = '" & strProcName & "'") 
    If colProcess.Count > 0 Then 
        For Each objProcess In colProcess 
            objProcess.Terminate 
        Next objProcess 
    End If 
End Sub

 

[Erdem Akdemir]

Merhaba,

Kodun en başına aşağıdaki satırı eklemekte çözüm olur.

Shell "taskkill /f /im iexplore*"

 

[Orion1]

Sayın askm.Asri ve kuvari yardımlarınız için teşekkür ederim.
Sayın askm;
İEyi kodlarla açıyorum ama kod ile kapatmıyorum.Açıldıktan sonra kullanıcı orada bazı işlemleri manuel olarak yapıyor ve çarpıdan kapatıyor.
Sayın kuvari;
Sizin yazdığınız kodda visible = true olduğu zaman hata veriyor.False yaptıktan sonrada activex createobject compenant hatası veriyor.
Sayın Asri;
Sizin kodlarınız sorunsuz çalıştı.Onu kullanıcağım sanırım.
Tekrar teşekkürler ederim,iyi çalışmalar dilerim.

 

[halit3]

Evren Bey Merhaba
Belki bu kodlarda işinize yarayabilir.

Sub Kapat1()
Set uygulama = CreateObject("Shell.Application")
For Each nesne In uygulama.Windows
If TypeName(nesne.document) = "HTMLDocument" Then
nesne.Visible = True
nesne.Quit
End If
Next
End Sub

Sub kapat2()

Dim objShell As Object
Dim ie As Object
Set objShell = CreateObject("Shell.Application").Windows
If objShell.Count > 0 Then
For Each ie In objShell
'ie.FullName
With ie
If .LocationURL = "http://www.excel.web.tr" Then
MsgBox .LocationURL
ie.Quit
End If
End With
Next ie
End If
End Sub

 

[Orion1]

Halit bey merhaba.
Yardımınız için teşekkür ederim.
Maalesef verdiğiniz her 2 prosedürde hata verdi.
İyi çalışmalar dilerim.