0

这是我的问题..

我目前已经构建了一个代码,因此我可以通过 URL 导入我的 XML 数据。问题是当我使用此代码时,它会丢弃任何没有数据的列。我需要包含这些列,因为我有预先设定的公式,可以用数据填充其他工作表。我想我需要一个 XML 映射才能这样做。然后我创建了一个代码,以便通过 XSD URL 将 XML 映射引入文件。在逐步浏览 VBA 之后,我注意到通过以下代码将正确的 XSD 映射带入文件:

Dim strRestXSD As String 'References URL to retrieve XSD
Dim oMap As xmlmap
Set oMap = ActiveWorkbook.XmlMaps.Add(strRestXSD)

问题出在下面的代码中。我使用下面的代码,然后使用附加到 XML URL 的字符串提取 XML。无论出于何种原因,当想要使用上面标识的 XMLMap 时,都会忽略 ImportMap。下面的代码实际上创建了一个新地图,并忽略了使用上面的代码创建的地图。

Dim strRestURL As String XML data

ActiveWorkbook.XmlImport URL:=strRestURL, ImportMap:=oMap, Overwrite:=False,
Destination:=Range("A$1" & lngRow)

有人知道我可以在不丢失空列的情况下导入 XML 数据的方法吗?或者您知道我可以将我的 XML 映射映射到 XML 导入的方法吗?

在此先感谢您的帮助!

阿里·阿克巴里

4

1 回答 1

-1

Setting Destination:=Nothing 应该将数据导入现有地图。此外,您可能需要设置 Overwrite:=True; 否则,将追加现有映射表中的数据。

于 2014-04-15T17:15:30.477 回答