Loop through xml files and import each

[argniw]

I would like to loop through all xml files in a directory and use the
xml import method to append the data tables in my database. How would
I loop through the files in one directory and pass the file name to
that method?

 

[pietlinden]

I would like to loop through all xml files in a directory and use the
xml import method to append the data tables in my database. How would
I loop through the files in one directory and pass the file name to
that method?

Private Sub Command2_Click()
Dim strFile As String

strFile = Dir("C:\My Documents\*.xml")

Do Until strFile = ""
Application.ImportXML strFile, acAppendData
Debug.Print strFile
strFile = Dir
Loop


End Sub