ActiveWorkbook.RefreshAll -dış veri al problemi

[fcw1031]

Excellde 4 tane dış veri al var,vb kodda ActiveWorkbook.RefreshAll ile yeniliyorum. Yenileme sonucu veri dönmezse 4dünden herhangi birinden hata veriyor,sayfaya ulaşamadı gibi. Vb kodda alınamayan dış veriyi nasıl yenileyebilirim kod içerisinde?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YENİLE()
    On Error GoTo Hata
    ActiveWorkbook.RefreshAll
    GoTo Son
    Exit Sub
Hata:
    ActiveWorkbook.RefreshAll
Son:
    MsgBox "Yenileme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[fcw1031]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YENİLE()
    On Error GoTo Hata
    ActiveWorkbook.RefreshAll
    GoTo Son
    Exit Sub
Hata:
    ActiveWorkbook.RefreshAll
Son:
    MsgBox "Yenileme işlemi tamamlanmıştır.", vbInformation
End Sub

öncelikle ilginiz için teşekkürler, fakat kod çalışmadı, f8 ile kodları takip ettiğimde hata olsada(veriyi alamasada) on errorlu kısımdan hata'ya gitmiyor hiç