如何使用VBA从ISBNDB.com API中提取XML数据？

我以前从未使用过XML，虽然我一直试图在网上拼凑东西，但我一事无成（而且不止一种方式！）

我正在尝试设置一个vba模块，当有人单击Access窗体上的按钮时，该模块将运行。该函数将使用传递的ISBN#，并使用ISBNDB.com API返回书籍的不同属性

我已经获得了API的访问字符串：

我需要知道如何使用数据来解析返回到我的一个表中的内容，例如Title、Author、Publisher等

以下是我的访问字符串返回的可视树：

---

有人能帮我吗？如前所述，我一直试图从web上把这个过程拼凑起来，但毫无进展。

您可以从URL加载一个XML DOM文档，然后使用其方法访问选定节点的文本。下面的示例使用XPath标识节点，但也可以使用其他方法：

getElementsByTagName

<代码>选择节点；等等

我写了这个晚绑定的示例。在探索文档方法和属性时，您可能更喜欢使用早期绑定进行开发。。。设置Microsoft XML的引用

Dim strUrl作为字符串
将strXPathBase设置为字符串
'早期绑定需要引用Microsoft XML
'Dim objDoc As MSXML2.DOMDocument
'Set objDoc=New MSXML2.DOMDocument
'后期绑定，不需要引用
作为对象的Dim objDoc
设置objDoc=CreateObject（“MSXML2.DOMDocument”）
strUrl=”https://isbndb.com/api/books.xml" & _
“？访问键=NSOY388Z&结果=文本”&_
“&index1=isbn&value1=0007102968”
objDoc.async=False
对象加载结构
strXPathBase=“//ISBNdb/BookList/BookData/”
调试。打印“标题：&”_
objDoc.SelectSingleNode（strXPathBase和“Title”）.Text
调试。打印“发布者：&”_
objDoc.SelectSingleNode（strXPathBase和“PublisherText”）.Text
设置objDoc=Nothing

尝试启用对

Microsoft XML，v6.0

的引用。这为您提供了一个很好的对象模型，而不是试图将XML解析为普通字符串数据。我只使用过一两次，所以我不能提供更多帮助，但这就是我要开始的地方，使用

DOM

文档来读取XML，而不是字符串解析。