XmlImport一线表不拉（使用VBA）

Question

当表只有一行时，VBA不会获取XML表的标题。有没有办法来解决这个问题？我正在使用：

ActiveWorkbook.XmlImport url:=url, ImportMap:=Nothing, Overwrite:=True, Destination:=Worksheets("A").Range("A1")