Эквивалент MSXML2.DOMDocument в Mac - PullRequest
       67

Эквивалент MSXML2.DOMDocument в Mac

0 голосов
/ 04 августа 2020

У меня есть следующий макрос, встроенный в 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...