Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Uyarılar için bildiğim sadece bu kod var. Çözüm olur mu bilmiyorum.Application.DisplayAlerts = False
Dim oIE As InternetExplorer
Dim oHDoc As HTMLDocument
Set oIE = New InternetExplorer
With oIE
.Visible = False
.Navigate Web_URL
End With
Do While oIE.Busy = True Or oIE.ReadyState <> 4
DoEvents
Loop
Set oHDoc = oIE.Document
With oHDoc
.......
End With
Do While oIE.ReadyState <> READYSTATE_COMPLETE Or oIE.Busy: DoEvents: Loop
......
oIE.Quit
Set oIE = Nothing
Set oHDoc = Nothing
windows ayarları ile belki yapabilirim ama bu güvenliğimi neredeyse tamamen kapatır o yüzden kod la yapmayı deniyorumKodunuzu paylaşmanız iyi olurdu...İşimiz kolaylaşırdı...
Aşağıdaki gibi bir yaklaşım belki çözüm olur...
Ya da ekteki ayarlar...
Kod:Dim oIE As InternetExplorer Dim oHDoc As HTMLDocument Set oIE = New InternetExplorer With oIE .Visible = False .Navigate Web_URL End With Do While oIE.Busy = True Or oIE.ReadyState <> 4 DoEvents Loop Set oHDoc = oIE.Document With oHDoc ....... End With Do While oIE.ReadyState <> READYSTATE_COMPLETE Or oIE.Busy: DoEvents: Loop ...... oIE.Quit Set oIE = Nothing Set oHDoc = Nothing
Application.DisplayAlerts = False
Dim XMLreq As New MSXML2.XMLHTTP60
Dim XMLreq As New MSXML2.ServerXMLHTTP60