У меня есть следующий макрос, встроенный в Excel, который отлично работает в Windows, но не отвечает в Ma c. Я предполагаю, что проблема в MSXML2.DOMDocument
. Я использую основной файл Excel как в Ma c, так и в Windows P C. Есть ли решение для работы с файлом как Ma c, так и P C?
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