Substitua sua macro importar_xml() por essa abaixo:

Sub importar_xml()
Dim Arquivo As String
Dim Origem As String

Application.DisplayAlerts = False

Origem = "C:ACL DATASetor FiscalRessarcimento ICMSXMLEntradas"
Arquivo = Dir(Origem & "*.xml", vbArchive)

Do While Arquivo <> ""
ThisWorkbook.XmlMaps("importar").Import Origem & "" & Arquivo
Arquivo = Dir
Loop

Application.DisplayAlerts = True
End Sub

Alexandre,

Bom dia!

Substitui pelo código que você me passou. Tá importando todos os xml's, mas está subscrevendo quando importar um arquivo. Tem como ir acrescentando todos a tabela do mapa, ou seja, não subscrever e ir mantendo na planilha?

Não sei se consegui explicar direito, mas agradeço desde já!

Alexandre,

Já descobri o que faltava. Confirguração do mapa pra não subscrever. Muito obrigado pelo apoio.

Bom dia!!

Luiz, para manter o fórum organizado, caso sua dúvida tenha sido esclarecida, por favor marque seu tópico como resolvido!!!

Veja em:

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att