Este fórum está sendo desativado

[BrunoLuiel]

Bom dia Amigos! Meu primeiro passo é importar o código fonte do XML, e depois importar o XML. Com este código abaixo eu consigo importar um XML, mas eu gostaria de importar todos os arquivos de extensão ".xml". Alguem pode me ajudar?

Sub teste()
ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import Url:=(ThisWorkbook.Path & "\11210111354043000191550010000137401849152114-nfe.xml")
End Sub

Eu tentei isso mas não funcionou

Sub teste()
ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import Url:=(ThisWorkbook.Path & "\*.xml")
End Sub