Импорт XML VBA Access 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

Если вы хотите импортировать данные XML в Access с помощью VBA, вам следует проверить Application.ImportXML метод, описанный здесь:

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