Загрузка XML в Excel через VBA

"ЖЕСТКО ЗАКОДИРОВАННЫЙ" СПОСОБ ТАКОВ:

начиная от

<result>
   <entry>
      <published_date>20130201</published_date>
      <post_count>18</post_count>    
   </entry>
  <entry>
      <published_date>20120201</published_date>
      <post_count>15</post_count>    
   </entry>

и вы хотите получить excel с двумя столбцами:

**published_date** |  **post_count**
20130201       |           18
20120201       |           15

так что мы можем предположить, что в вашем XML вы всегда будете иметь

<result><entry><Element>VALUE</Element><Element...n>VALUE</Element...n></entry>

важно: Откройте редактор VBA в PowerPoint, Excel.. Слово и добавить ссылки на " Microsoft XML, v3.0 "( Эта ссылка предназначена для Office 2000... возможно, другие).

источник:http://vba2vsto.blogspot.it/2008/12/reading-xml-from-vba.html

сотрудник.В XML

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<EmpDetails>
<Employee>
<Name>ABC</Name>
<Dept>IT-Software</Dept>
<Location>New Delhi</Location>
</Employee>
<Employee>
<Name>XYZ</Name>
<Dept>IT-Software</Dept>
<Location>Chennai</Location>
</Employee>
<Employee>
<Name>IJK</Name>
<Dept>HR Operations</Dept>
<Location>Bangalore</Location>
</Employee>
</EmpDetails>

КОД ДЛЯ ЧТЕНИЯ ВЫШЕ XML

Sub XMLfromPPTExample()
Dim XDoc As MSXML2.DOMDocument
Dim xEmpDetails As MSXML2.IXMLDOMNode
Dim xEmployee As MSXML2.IXMLDOMNode
Dim xChild As MSXML2.IXMLDOMNode

Set XDoc = New MSXML2.DOMDocument
XDoc.async = False
XDoc.validateOnParse = False
XDoc.Load ("C:\Emp.xml")
Set xEmpDetails = XDoc.documentElement
Set xEmployee = xEmpDetails.firstChild
For Each xEmployee In xEmpDetails.childNodes
For Each xChild In xEmployee.childNodes
MsgBox xChild.baseName & " " & xChild.Text
Next xChild
Next xEmployee
End Sub

в вашем случае, конечно, вам нужно адаптировать свою рутину:

результат --> EmpDetails в предоставленном коде
запись --> сотрудник в предоставленном коде

плюс любые другие необходимые регулировка.

таким образом, вы можете иметь столько, сколько "запись" и "запись дочерних" элементов вы хотите.

на самом деле, петля через все элементы внутри вашей "записи" вы получите свой столбец, тогда каждая новая запись является новой строкой.

к сожалению, у меня нет excel на MAC, поэтому я просто поставил логику, вы должны проверить sintax самостоятельно... таким образом, вы создаете таблицу EXCEL на нужном листе.

Dim col = 1; Dim row=1;

For Each xEmployee In xEmpDetails.childNodes
    col = 1
    For Each xChild In xEmployee.childNodes
       Worksheets("NAMEOFTHESHEET").Cells(col, row).Value = xChild.Text
       MsgBox xChild.baseName & " " & xChild.Text
       col = col + 1;
    Next xChild
row = row+1;
Next xEmployee

в CORRET WAY ДОЛЖЕН БЫТЬ ТАКИМ:

LoadOption:=xlXmlLoadImportToList?

вы получаете XML из вызова URL, но я настоятельно рекомендую попробовать работать с XML-файлом на диске в начале и проверить, правильно ли он действителен. Так что вы должны сделать, это получить образец XML из этого "веб-сервиса", а затем сохранить его на диске. Попробуйте загрузить его следующим образом:

   Sub ImportXMLtoList()
    Dim strTargetFile As String
    Dim wb as Workbook

         Application.Screenupdating = False
         Application.DisplayAlerts = False
         strTargetFile = "C:\example.xml"
         Set wb = Workbooks.OpenXML(Filename:=strTargetFile,        LoadOption:=xlXmlLoadImportToList)
         Application.DisplayAlerts = True

         wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet2").Range("A1")
         wb.Close False
         Application.Screenupdating = True
    End Sub