Import an XML file
Sub ImportXML(path As String) Application.ImportXML DataSource:=path, ImportOptions:=acStructureAndData End Sub