XML VBA Access 2010 import

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