Dış Veri Bağlantı Yenileme Sonrası Bilgi

[tuvons]

Merhaba,

"Activeworkbook.RefreshAll" ile sayfadaki bağlantıları yeniliyorum fakat bittiği zamanı tespit edemiyorum. Sayfamda 4 adet bağlantı var, bunlar ayrı ayrı bittiğinde ekrana yazmasını sağlayabilir miyim?

 

[alicimri]

bittiği zamanı tespit edemiyorum.

Derken tekrar Refresh Olmasını mı kastediyorsunuz
Deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox time
End Sub

 

[tuvons]

Merhaba @alicimri
İşe yaramadı worksheet_change olayı.
"Activeworkbook.RefreshAll" yaptığımda alt tarafta "Arka Plan Sorgusu Çalıştırılıyor" şeklinde yazı beliriyor. Sorgu sonucu gelene kadar kalıyor bu yazı. Aslında istediğim bu şekilde sorgu sonucu gelene kadar ekranda sorgu devam ediyor yazdırmak ve bu durumu bi değişkene tanımlamak.

 

[alicimri]

Activeworkbook.RefreshAll satırının altına MsgBox time yazarak deneyin.

 

[tuvons]

Activeworkbook.RefreshAll satırına geldiği zaman yenileme süresince beklemiyor, MsgBox time işe yaramadı. Activeworkbook.RefreshAll'dan hemen sonra msgbox geliyor ama bağlantı o sırada devam ediyor.

 

[alicimri]

Bu bağlantıların hepsi aynı sayfada mı?

 

[alicimri]

power query istediğinizi kendisi yapıyor ama her bağlantı için ayrı sayfa oluşturuyor. İsterseniz indirip deneyin