Merkez Bankası Döviz Çekerken Excel Donuyor

[ceylankral]

Merhaba, 5 farklı bilgisayarımızda aynı excel dosyasını kullanıyoruz. Kullandığımız dosya, merkez bankasından kurları çekmekte. vba kodu aşağıdaki gibi;

Sub PEAKUP_TCMB_TUM_KURLAR()

Dim xml As Object, adres As String, tablom As Object, sat As Byte

Range("A2:G100") = ""

Set xml = CreateObject("MSXML2.DOMDocument")

xml.async = False

xml.validateOnParse = False

adres = "https://www.tcmb.gov.tr/kurlar/today.xml"

xml.Load adres

Set tablom = xml.SelectNodes("//Currency")

If tablom.Length = 0 Then GoTo cik:

sat = tablom.Length - 1

For i = 0 To sat

Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text

Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text

Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text

Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text

Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text

Next i

cik:

Set tablom = Nothing: Set xml = Nothing: adres = vbNullString: sat = Empty

End Sub

Verileri yenile butonum

Sub verileri_yenile()
'
' verileri_yenile Makro
'

'
    ActiveWorkbook.RefreshAll
End Sub

3 bilgisayarda verileri sorunsuz çekmekte. Ama diğer 2 bilgisayarda, verileri güncelle butonuna tıkladığım anda excel donuyor. Kapatmak zorunda kalıyorum. Düne kadar çalışıyordu. Bugün 2 bilgisayarda çalışmaz oldu.
5 bilgisayarda da windows 10 kurulu ve tüm güncelleştirmeler kuruludur. 5 bilgisayarda da office 2016 mevcuttur.

Sebebi nedir acaba?

 

[Haluk]

Bence, verileri almak için kullandığınız "verileri_yenile" prosedürünü hiç kullanmayın çünkü TCMB'den kurları çeken diğer prosedürü tetiklemiyor, yani konuyla ilgisiz görünüyor. Sadece, varsa dosyadaki dış bağlantıları güncellemeye yarıyor..... Sıkıntı olan bilgisayarlardaki sorunun kaynağı bu olabilir.

TCMB'den verileri almak için; butona direkt olarak "PEAKUP_TCMB_TUM_KURLAR" isimli prosedürü atayın......

.