XML VBA 访问 2010 导入答案

【问题标题】：XML VBA Access 2010 importXML VBA 访问 2010 导入
【发布时间】：2013-05-07 12:16:19
【问题描述】：

我想在我的代码 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

【问题讨论】：

标签： xml vba ms-access ms-access-2007 xml-import

【解决方案1】：

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

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

【讨论】：