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

XML VBA Access 2010导入

1 个答案: