用Access.Application载入xml文件老出错

雪球一号

小弟对ACCESS编程不怎么懂，弄这个主要是为了解决批量导入xml文件到ACCESS的问题，试了半天老出错，请高手指点一下，不胜感激

我用的是ACCESS2010，代码是在网上找的，针对的是ACCESS2003，不知道这个有没有影响

//////////////////////////////////////////////////////////////////////////////////

Option Compare Database

Public Sub ImportXml()

Dim MyFile As String

Dim strPath As String

Dim strFile As String

Dim cnAccess As New Access.Application

''strPath为文件夹的路径，strFile为文件夹里的文件

strPath = "C:\Users\Administrator\DataScraperWorks\maerwo_meigu\test\"

strFile = strPath & "*.xml"

''Set cnAccess = CreateObject("Access.Application")

cnAccess.OpenCurrentDatabase "D:\My Documents\Documents\Working\MeiGu.accdb"

MyFile = Dir(strFile, vbNormal) ''获得符合条件的文件名

MyFile = strPath & MyFile

''************到这一步时出错************

''错误：方法‘ImportXml’作用于对象‘_Application'时失败

''**************************************

''不过有两次运行过了这一步，但是在下面同样的地方也报这个错误

cnAccess.ImportXml MyFile, 1

MyFile = Dir ''如果和上次一样，DIR可以这么省写

Do While MyFile <> "" ''循环查找

   

  cnAccess.ImportXml (strPath & MyFile), 2

   

  MyFile = Dir ''如果和上次一样，DIR可以这么省写

Loop

End Sub

/////////////////////////////////////////////////////////////////////