MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    cisouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 14/11/2012

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

    Mensagem  cisouza em Qua 15 Jul 2015, 17:40

    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qui 16 Jul 2015, 13:31

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qui 16 Jul 2015, 14:00

    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.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 04:56