VBA-Excel: Чтение данных из XML-файла

Question

я следующий XML-данные, которые исходит от REST вызова,

<?xml version="1.0" encoding="UTF-8"?> 
<response> 
    <result> 
     <cs>1</cs>        
     <cs>2</cs> 
     <cs>3</cs> 
     <cs>4</cs> 
    </result> 
    <result> 
     <br>A</br>        
     <br>B</br> 
    </result> 
</response> 

Я хочу, чтобы прочитать эти данные в Excel, как, Excel Format

, и здесь длина тегов cs и br не фиксирована, для каждой информации они будут разными.

Answer 1

Что-то вроде этого должно работать на вас. Обратите внимание, что я не беспокоюсь о форматировании каждой из ячеек: Сначала сделайте это Нажмите «Сервис»> «Ссылки». Проверьте эти библиотеки - Microsoft WinHttp Services, версия 5.1 - Microsoft XML v6.0

Sub TestXML() 
    URL = "https://example.abc.com" 'Your URL 
    AuthorizationCode = "Basic <Password>" 'Please put only encrypted password 

    Dim ws As Worksheet 
    Dim objHTTP As New WinHttp.WinHttpRequest 
    Dim jsonString As String 
    Dim Resp As New DOMDocument 
    Dim Result As IXMLDOMNode 
    Dim i As Integer, j As Integer 

    objHTTP.Open "get", URL, False 
    objHTTP.SetRequestHeader "Accept", "application/xml" 
    objHTTP.SetRequestHeader "Content-Type", "application/xml" 
    objHTTP.SetRequestHeader "Authorization", AuthorizationCode 
    objHTTP.Send 

    Debug.Print objHTTP.Status 
    Debug.Print objHTTP.ResponseText 

    Set ws = Sheets("sheet1") 
    ws.Select 
    Range("A1").Select 
    Cells.Clear 
    Resp.LoadXML objHTTP.ResponseText 
    Set lists = Resp.DocumentElement 

    x = 2 
    y = 1 
    For Each listNode In lists.ChildNodes 
     x = 2 
     Cells(1, y).Value = lists.ChildNodes(y - 1).ChildNodes(0).BaseName 
     For Each fieldNode In listNode.ChildNodes 
      Cells(x, y).Value = fieldNode.Text 
      x = x + 1 
     Next fieldNode 
     y = y + 1 
    Next listNode 
End Sub