VBA导入没有标题的Xml数据

Question

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

我的问题是我只想要一个表，每次导入新数据都要添加到同一个表中。

以下是我正在测试的内容，但是每次我导入新数据时，他都会创建一个新表

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

谢谢