Kod çalışıyor Oğuz Bey sadece linki düzeltmeniz gerekli, kodunuz aşağıdaki gibi revize etmelisiniz

Sub Kur()



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



'ThisWorkbook.Worksheets("Kurlar").

Range("A2:G100") = ""



Set xml = VBA.CreateObject("MSXML2.DOMDocument")

xml.async = False

xml.validateonparse = False

adres =  "https://www.tcmb.gov.tr/kurlar/today.xml"    ' "https://www.tcmb.gov.tr/kurlar/today/xml" şeklinde yazmışsınız link hatalı doğrusu yandaki gibi olmalı

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