Aqui há duas macros. Já tentou executar as duas? Dá o mesmo erro nas duas? Você fez referência à biblioteca Micrsoft Scripting Runtime? Anexe o arquivo. Execute o código passo a passo, apertando F8, veja em qual linha está dando erro.

Pelo jeito, você não sabe o que é Option Explicit:

https://docs.microsoft.com/pt-br/dotnet/visual-basic/language-reference/statements/option-explicit-statement
https://www.youtube.com/watch?v=RWk9NKJNNSY

Olá, muito obrigado pelo vídeo.

sim, tentei usar as duas porém eu não consegui, por gentileza, você poderia verificar o que eu estou fazendo de errado?

Já referenciei, a planilha está salva na pasta indicada pelo código.

Muito obrigado pela atenção e ajuda.

anexa planilha com detalhes.

Private Sub CommandButton1_Click()

Call ListaArquivos

End Sub

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
Next
End If

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

End Sub

Desculpe pelo erro com o sub

A macro deu erro, por favor, você poderia me informar o que estou fazendo de errado

Fiz algumas alterações no código acima. Favor verificar. Aqui percorreu os arquivos, depois deu erro de automação. Aí já não sei o que é.

Deu certo no seu computador?

No meu não deu certo.

Por favor, diga que deu certo no seu computador, você era a minha salvação

Deu erro

Nesse caso não tem o que fazer, isso mesmo?

Sobre esse erro, não sei o que fazer.

Agradeço muito pela atenção a minha dúvida.

Vou deixar esse tópico em aberto, quem sabe alguém consegue ajudar.

muito obrigado.

Altere na linha--> ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=caminho & Arquivo.Name
Para --> ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=Arquivo

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:Tempxml"

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:=Arquivo
Next
End If

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

End Sub

Olá, bom dia!

Eu fiz como foi informado, porém continua com erro de automação.

Por gentileza, você poderia baixar os arquivos que eu postei e tentar executar a macro?

Muito obrigado pela atenção.

Antes de postar minha resposta, já havia baixado e testado os arquivos; e conforme postei rodou ok, e trouxe info nos campos da tabela.
A unica alteração foi o diretorio, que nos meus testes foi em "C:Testexml", segue o arquivo conforme "rodei"

Procure executar essa rotina com o F8, e nas linhas que passar, possicione o cursor sobre a variavel e veja o valor assumido