Question

我需要以XML格式从网站检索数据并将其保存在Access数据库中。虽然我能够成功提取数据，但是在解析数据时遇到了问题。具体来说，我似乎只能读取返回的第一条记录，并且不知道如何循环浏览其余记录。

这是源XML外观的一个示例。这是特定人的工作经历，因此名称，职务和日期字段将随每条记录而变化。在此示例中，此人有7个就业记录，每个都有不同的公司。

<DataRow>
<DataItem name="Symbol">00123S-E</DataItem>
<DataItem name="Company ID">061ABC-E</DataItem>
<DataItem name="Company Ticker">@NA</DataItem>
<DataItem name="Company Name">L.L. Bean, Inc.</DataItem>
<DataItem name="Title">Independent Director</DataItem>
<DataItem name="Function Code">IND</DataItem>
<DataItem name="Function Description">Independent Dir/Board Member</DataItem>
<DataItem name="Start Date">20140508</DataItem>
<DataItem name="End Date">@NA</DataItem>
</DataRow>

这是我认为可以使用的Access VBA代码：

Private Sub bNewFetch_Click()
    Dim xmldoc As MSXML2.DOMDocument
    Dim xmlElement As MSXML2.IXMLDOMElement
    Dim xmlSelection As MSXML2.IXMLDOMSelection
    Dim myLineItem As Object

    Set xmldoc = New MSXML2.DOMDocument
    xmldoc.async = False
    xmldoc.Load [Here's where the URL goes]

    Set xmlSelection = xmldoc.selectNodes("//DataRow")

    For Each xmlElement In xmlSelection
        Set myLineItem = xmldoc.selectNodes("//DataRow/DataItem")
        Debug.Print myLineItem(3).Text
    Next xmlElement
End Sub

不幸的是，该代码没有返回此人所服务的7家不同公司的名称，而是返回了“ L.L. Bean，Inc.”。 7次似乎知道有7条记录，但是与其逐步浏览这些记录并返回每条记录的相关公司名称，不如从第一条记录中重复公司名称。

有人能建议我需要做些什么，以便从每个返回的记录中检索所有数据，而不仅仅是第一条记录吗？

预先感谢您的任何建议。

解决方案：

感谢BankBuilder指出我的检索循环问题。解决方案是将最后一个For / Next语句替换为：

    For Each xmlElement In xmlSelection
        Debug.print xmlElement.selectSingleNode("DataItem[@name='Company Name']").Text
    Next xmlElement

Answer 1

由于循环中的这一行，您仅打印第一个DataRow的公司名称：

Set myLineItem = xmldoc.selectNodes("//DataRow/DataItem")

它将从第一个元素中提取数据，而不管循环中当前的元素如何。

用Debug.print xmlElement.selectSingleNode("DataItem[@name='Company Name']").Text替换循环中的当前代码。这将在当前DataRow中打印DataItem的公司名称（即循环中的xmlElement）

通过VBA将多个XML记录导入MS Access时出现问题

1 个答案: