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.
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.