How to import multiple xml file into excel

Hello JIMZCE,

Thank you for your reply.

Here is  some step you can perform. please let me know the result.

if u are using Excel 2007 or 2010

Step : Click on Data from ribbon > From other sources > from XML data import > navigate to your .xml file and click on open. >ok >ok

this is the manual way to import a .xml file.

if it work for you then the macro should work.

please reply me with results. :)

Option Explicit

Sub GetLmsDtata()

On Error Resume Next

Dim xRow As Long

Dim path As String

Dim strSheetName As String

Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "C:\Users%username%"

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = Application.DefaultFilePath & ""

.Title = "Please select a folder

contains xml Files"

.InitialFileName = InitialFoldr$

.Show

If .SelectedItems.Count <> 0 Then

xDirect$ = .SelectedItems(1) & ""

xFname$ = Dir(xDirect$ & "*xml")

Do While xFname$ <> ""

path = (xDirect$ & xFname$)

ActiveWorkbook.XmlImport URL:= _

path, _

ImportMap:=Nothing, Overwrite:=True, Destination:=ActiveCell

Selection.End(xlDown).Offset(1, 0).Select

xFname$ = Dir()

Loop

End If

End With

End Sub