Import Multiple XML Files

I'm trying to write a macro that would import multiple XML files from a single folder into Excel. The current path I would use would be to go to Data->From Other Sources->From XML Import and then select each individual file. I'm looking for a way to do this entire folder at once. Any help on starting this macro out would be helpful.

It turned out to be pretty simpe to write. Here's how I did it:

Sub xmlImport()
    fld = "\\filepath\folder"
    i = 1
    found = False
    fil = Dir(fld & "*.xml")
    Do While (fil <> "")
        found = False
        Location = fld & fil
        ActiveWorkbook.xmlImport URL:=Location, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A" & i)
        Do
            If Cells(i, 1) = "" Then
                found = True
            Else
                i = i + 1
            End If
        Loop Until found
        fil = Dir
    Loop
End Sub