XML VBA Access 2010导入

问题描述:

我想在我的代码VBA中集成一条导入XML文件的指令。 在我的条件的else分支中,我想添加一个命令来导入XML文件。你能告诉我一些东西(一个VBA指令是否可以导入)?XML VBA Access 2010导入

Private Sub Commande0_Click() 
     Dim rep As String 
     rep = Dir("C:\Users\Toufik\Desktop\XML\*.*", vbDirectory) 
     Do While (rep <> "") 
     If (GetAttr("C:\Users\Toufik\Desktop\XML\" & rep) And vbDirectory) = vbDirectory Then 
      MsgBox "Directory " & rep 
     Else 
      MsgBox "File " & rep 
     End If 
     rep = Dir 
     Loop 
    End Sub 

如果你想使用VBA,你应该看看Application.ImportXML方法将XML数据导入Access中,描述如下:

http://msdn.microsoft.com/en-us/library/ff823157%28v=office.14%29.aspx