xml - XML VBA 访问 2010 导入

Question

我想在我的代码 VBA 中集成一条导入 XML 文件的指令。在else我的条件分支中，我想添加一个命令来导入 XML 文件。您能给我一些建议吗（执行导入的 VBA 指令）？

   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

Answer 1

如果您想使用 VBA 将 XML 数据导入 Access，您应该查看该Application.ImportXML方法，如下所述：

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