Merkez Bankası günlük döviz kurlarını çekmede hata

[çıtır]

Site den aldığım,sanırım Halit Bey'in hazırladığı aşağıdaki kodlarla Merkez bankasından günlük döviz kurlarını çekiyordum.Yaklaşık 20 gündür.

.Refresh BackgroundQuery:=False

satırında hata alıyorum.Nasıl düzeltilebilir?Yardımcı olur musunuz?

Sub deneme()
Dim s1 As Worksheet
Set s1 = Sheets("DÖVİZ")
Application.ScreenUpdating = False
s1.Select
Dim alan As Range
s1.Range("A1:H50").Clear
With Sheets("DÖVİZ").QueryTables.Add(Connection:= _
"URL;http://www.tcmb.gov.tr/kurlar/today.xml", Destination:=s1.Range("$A$1"))
.Name = "today_1"
.Refresh BackgroundQuery:=False
End With
s1.Range("AB1000").Value = "10000"
s1.Range("AB1000").Copy
Set alan = s1.Range("D3:G20")
alan.Select
For Each evn In alan
If Left(evn.Value, 2) = 10 Then
evn.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
evn.Value = CDbl(evn.Value)
ElseIf Left(evn.Value, 1) > 0 Then
evn.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks:=False, Transpose:=False
ElseIf Left(evn.Value, 1) = 0 Then
evn.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
evn.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks:=False, Transpose:=False
End If
Next evn
s1.Range("D25:D26,D28,D30:D37,D40").PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks:=False, Transpose:=False
s1.Range("D27,D29,D38,D41").Replace What:=".", Replacement:=","
s1.Range("D44").Value = Range("D44").Value / 100000
s1.Range("D45").Value = Range("D45").Value / 100000

s1.Range("D25:D41").HorizontalAlignment = xlRight
s1.Range("h2").HorizontalAlignment = xlRight
Application.CutCopyMode = False
Columns("D:G").NumberFormat = "#,##0.0000"
s1.Range("D44").NumberFormat = "#,##0.00000"
s1.Range("D39").NumberFormat = "#,##0"
s1.Cells(2, "H") = Format(Now, "dd.mm.yyyy")

WorksheetFunction.Trim (s1.Cells(2, "H"))
Cells.Font.Size = 8: Columns.AutoFit: Range("A1").Select

Application.ScreenUpdating = True
End Sub

 

[halit3]

Kod yapısına bakınca Bu kodları ben yazdığımı hatırlıyamadım ancak kodlar bende çalışıyor

 

[çıtır]

Bende de daha önce çalışıyordu.20 gündür aşağıdaki hataları alıyorum.Neden olabilir.Nasıl düzeltebilirim.Kodları siteden aldım.Hazırlayan arkadaşa ve şahsınıza teşekkür ederim.

 

[halit3]

Kodları başka bir dosyaya ekledim iki sayfada da bir dene

 

[çıtır]

Maalesef çalışmadı Halit Bey. Aynı hatayı veriyor.Gösterdiğiniz ilgi için teşekkür ederim.

 

[assenucler]

Sayın Halit3 Üstadım,

Kodlar bende çalıştı.

Sevgi ve saygılar.