XML导入语法的后期绑定转换
我有一个Access应用程序，它实际上只是一堆办公应用程序(Word、Excel、Ppt和Outlook)的自动化服务器，可以导入信息，通过表单收集信息，并生成各种文件。
它不是传统意义上的数据库，而是用户在现场使用的远程文件，用于所有自动化技巧，然后在构建完所有需要的文件后丢弃。
最近，这里的朋友们帮我解决了转换到后期绑定的问题，这样我就可以避免在目标系统上被破坏的引用扼杀了功能。它工作得很好！
因此，现在我有了一些需要设置xml v5才能运行的xml导入代码。现在我之前遇到的问题是Excel、Powerpoint和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来做这件事，但似乎work....can没有人对此提供建议？
当我可以使用argus....but时，我会使用xmlImport这个特定的解决方案是针对通过web应用程序提供的数据，它们既没有嵌入模式，也没有样式表或.xsd
回答 1
Stack Overflow用户
发布于 2011-05-06 12:37:10
我有类似的代码，使用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)https://stackoverflow.com/questions/5899696
复制相似问题
腾讯云开发者
