Office 2016 da Çalışmayan İnternet Veri Alma Kodu

[askm]

Kolay gelsin.
Daha önce office 2010 64 bit yüklü idi ve çalışan kod. Şimdi Office 2016 de çalışmaz oldu.
Do until de dönüp kalıyor. Do until yerine Application.Wait Now + TimeSerial(0, 0, 3) kullansam da focus yapmıyor.

Do Until IE.readyState = 4: DoEvents: Loop
     Do While IE.Busy: DoEvents: Loop
'''''''''''
            .document.getElementbyid("tip").Focus
            .document.getElementbyid("tip").Value =

 

[Zeki Gürsoy]

F8 tuşu ile yavaş yavaş çalıştırmayı deneyin. Sorun office versiyonu ile değil, web sayfası ile alakalıdır.

 

[askm]

F8 ile denedim. Do until kısmında dönüp duruyor. Onu yerine time kullanırsam da sayfa açıyor ama Set focus yapmıyor. Id leri kontrol ettim. Aynı.

 

[Zeki Gürsoy]

Sayfa adresi nedir? Ben de deneyebilir miyim?

 

[askm]

Çalıştığım sayfa kapalı ortam ama. Farklı sayfalarda da aynı sorunla karşılaşıyorum. Örneğin face vb gibi.

 

[askm]

Örneğin aşağıdaki kodlar 2010 da çalışıyor, 2016 da çalışmıyor.

Private Sub CommandButton1_Click()

If TextBox1.text = "" Then
MsgBox "Lütfen Listeden Seçim Yapınız"
Exit Sub
End If

Dim ie As Object
Dim kontrol As String

Set ie = CreateObject("internetexplorer.application")

With ie

.Navigate "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"
.Visible = True
Do Until ie.ReadyState = 4: Loop

kontrol = InStr(ie.Document.Body.innerHTML, "Çikis")

If InStr(ie.Document.Body.innerHTML, "Çikis") > 0 Then
ie.Navigate "javascript:document.forms['logoutform'].submit();"
Do Until ie.ReadyState = 4: Loop
ie.Navigate "https://uyg.sgk.gov.tr/SigortaliTescil"
Do Until ie.ReadyState = 4: Loop
End If

ie.Document.All("j_username").Value = "52567652222"
ie.Document.All("isyeri_kod").Value = "2"
ie.Document.All("j_password").Value = "2872"
ie.Document.All("isyeri_sifre").Value = "6305"

ie.Document.All("isyeri_guvenlik").Select

'Bekleme Yap
Application.Wait Now + TimeValue("00:00:05")

'Giriş Butonuna tıkla
Set inp = ie.Document.getelementsbytagname("input")
For Each itm In inp
If itm.Type = "submit" And itm.Name = "buttonOK" Then
itm.Select
itm.Click
End If
Next itm
Do
Loop While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE

End With

Set ie = Nothing

End Sub