Option Explicit

Public Sub ListaArquivos()
    'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
    Dim FSO As New FileSystemObject
    Dim result() As String
    Dim Pasta As Folder
    Dim Arquivo As File
    Dim Indice As Long
    Dim caminho As String
caminho = "C:WCONFER"

    ReDim result(0) As String
    If FSO.FolderExists(caminho) Then
        Set Pasta = FSO.GetFolder(caminho)

        For Each Arquivo In Pasta.Files
          '  Indice = IIf(result(0) = "", 0, Indice + 1)
           ' ReDim Preserve result(Indice) As String
           ' result(Indice) = Arquivo.Name

ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=caminho & Arquivo.Name & ".xml"
        Next
    End If

   ' ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
End Sub



Public Sub ListaArquivos2()
    'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
    Dim FSO As New FileSystemObject
    Dim result() As String
    Dim Pasta As Folder
    Dim Arquivo As File
    Dim Indice As Long
    Dim caminho As String
caminho = "C:WCONFER"

    ReDim result(0) As String
    If FSO.FolderExists(caminho) Then
        Set Pasta = FSO.GetFolder(caminho)

        For Each Arquivo In Pasta.Files
          '  Indice = IIf(result(0) = "", 0, Indice + 1)
           ' ReDim Preserve result(Indice) As String
           ' result(Indice) = Arquivo.Name

ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=caminho & "" & Arquivo.Name & ".xml"
        Next
    End If

   ' ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
End Sub

Muito obrigado pela atenção quanto a minha dúvida.

Eu tentei aplicar a macro, porém eu não consegui executar.

mensagem de erro: Erro de Análise de XML.

A planilha está na pasta "c:/wconfer", porém não vai

Por favor, assim que possível você poderia me ajudar?

Em anexo, seguem: planilha, tela contendo o erro, arquivo xml utilizado.

Muito obrigado por toda ajuda.