VBA ImportXml数据不包含标题

我需要从XML网页（networking服务）导入数据到Excel工作表。 它工作得很好，除了表总是添加在标题。

我的问题是，我只想要一个表，每次我导入新的数据被添加到相同的..

这里是我正在testing的内容，但是不用多说，他每次在导入新数据时都会创build一个新表

Sub Importation() ' ' Importation Macro ' Import des données selon un parametre ' Touche de raccourci du clavier: Ctrl+Shift+I ' Dim annee As String Dim url As String url = "http://www.simpleweb.org/wiki/WS/XML-based_Management" Dim lngStartRow As Long Dim withHeader As Boolean With ActiveSheet If .Range("$A$1") = "" Then withHeader = True lngStartRow = 1 Else withHeader = False lngStartRow = .Range("$A$" & .Rows.Count).End(xlUp).Row + 1 End If ActiveWorkbook.XmlImport url:=url, ImportMap:=Nothing, Overwrite:=False, Destination:=Range("A" & lngStartRow) End With End Sub 

谢谢