- Katılım
- 19 Temmuz 2010
- Mesajlar
- 53
- Excel Vers. ve Dili
- 2007
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;
Verileri yenile butonum
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?
Kod:
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
Kod:
Sub verileri_yenile()
'
' verileri_yenile Makro
'
'
ActiveWorkbook.RefreshAll
End Sub
5 bilgisayarda da windows 10 kurulu ve tüm güncelleştirmeler kuruludur. 5 bilgisayarda da office 2016 mevcuttur.
Sebebi nedir acaba?