Eliminar espaço duplo na importação de Excel

Galera,

Tenho um código de importação muito bom,,, inclusive foi passado por alguém aqui do Fórum, desculpe mas esqueci quem passou.

' Este é o código que utilizo para procurar o arquivo
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hWnd, "Inserir Imagem", strPastaInicial, _
"Arquivos eletronicos (*.xlsx)" & vbNullChar & "*.xlsx")
If Len(strCaminho) > 0 Then
Me.Caminho_xmlimpot = strCaminho
End If

' este código utilizo para pegar o caminho do arquivo na caixa e importo para a tabela cadastro
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "cadastro", Me.Caminho_xmlimpot, True

Gente, este modelo de importação é demais, o problema é que ao importar arquivo do excel, fica um monte de espaço duplos depois das informações.

Queria eliminar estes espaços na importação... Se for possível.

Olá, poste pequeno exemplo do projecto e ficheiro de excel, para ser mais fácil qualquer utilizador do fórum poder ajudar.

Entretanto atualizei o título do tópico e movi para a sala Módulos e VBA , por entender mais adequado.
Abraço

Ola

Esse trecho de codigo é meu mesmo.

No entanto com o comando "DoCmd.TransferSpreadsheet acImport", não conseguirá fazer qualquer fomatação dos campos.

Após importar, pode utilizar a função interna TRIM(), essa função remove todos os espaços não necessários de um campo.

Ou seja;

Após importar, fazer uma consulta de UPDATE usando essa função.

Se necessitar de ajuda dê um grito.

Ok.