XML 导入语法的后期绑定转换

Question

我有一个 Access 应用程序，它实际上只是一堆办公应用程序（Word、Excel、Ppt 和 Outlook）的自动化服务器，它导入信息，通过表单收集信息并生成各种文件。

它不用作传统意义上的数据库，而是用户在现场使用所有自动化技巧的远程文件，然后在构建了需要的所有文件后将其丢弃。

最近，这里的人们帮助我转换为后期绑定，以使我免受目标系统上破坏功能的引用的影响。效果很好！

所以现在我有一些 xml 导入代码，需要设置 xml v5 才能运行。现在我之前遇到的问题是 Excel、Powerpoint 和 Excel。 Outlook 对象库引用从 Office 版本更改为版本（2003 = 11.0、2007 - 12.0 等），但我想知道这里是否会遇到同样的问题。让事情变得更复杂的是，我不知道它可以在服务器/操作系统上运行（XP、Vista、2003、2008 SP2 等）。老实说，我不知道这是否重要，所以这就是我提到它的原因。

那么，如果它实际上会产生问题，那么有人知道为此声明的后期绑定转换示例吗？它似乎与创建和办公应用程序不一样...

Sub PullingDataFromNodes()
   dim xmlDoc as MSXML2.DOMDocument50
   dim xmlNodeList As MSXML2.IXMLDOMNodeList
   dim myNode as MSXML2.IXMLDOMNode

   Set xmldoc = New MSXML2.DOMDocument50
   xmldoc.async = False
   xmldoc.Load ("C:/SomeFolder/xml.xml")

   Set xmlNodeList = xmldoc.SelectNodes("//DataFieldNode")
   Set myNode = xmlNodeList.item(0)

   'etc...more of the same....pull data from node, place data into variable, then place 
   '  data in variable into recordset, use it to update table kind of thing

所以我尝试使用 CreateObject 来实现这一点，但它似乎不起作用...任何人都可以提供这方面的建议吗？

当我可以使用 argus 时，我使用 xmlImport...但是这个特定的解决方案是通过 Web 应用程序提供的数据，它们既没有嵌入架构，而且我没有样式表或 .xsd

Answer 1

我有类似的代码，使用 MSXML2.DOMDocument.3.0，所以我将其切换到 5，它仍然有效。我不知道不同版本的情况。我只能建议你尝试这种方式，看看会发生什么。

Sub PullingDataFromNodes()
   dim xmlDoc As Object
   dim xmlNodeList As Object
   dim myNode As Object

   Set xmldoc = CreateObject("MSXML2.DOMDocument.5.0")
   xmldoc.async = False
   xmldoc.Load "C:/SomeFolder/xml.xml"

   Set xmlNodeList = xmldoc.SelectNodes("//DataFieldNode")
   Set myNode = xmlNodeList.item(0)