MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Compartilhe

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 4/7/2017, 04:01

    Olá senhores,
    Fiz um botão que envia o resultado da consulta direto para o execel.
    Porem notei que dentro de cada celula do excel que recebeu os valores da consulta aparece um apostrofe a mais.
    Como remove-lo?
    Pelo excel mesmo ou pelo access?

    Muito Obrigado Neutral Neutral
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  Sidney em 4/7/2017, 21:08

    Amigo,

    mande um exemplo para melhor entender?

    att;

    Ney

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    TIRAR APOSTROFE DA CONSULTA QUANDO ENVIA PARA EXCEL.

    Mensagem  APALOOSA em 5/7/2017, 01:03

    Olá Ney, não sei se estou sendo claro, mas é o seguinte.
    Em uma consulta que tenho aqui envia o resultado direto para uma pasta que dentro tem uma planilha que recebe o resultado dessa consulta.
    Até ai tudo bem, envia certinho, meu problema não é esse.

    Meu Problema:

    Nas celulas dessa planilha que recebeu a consulta notei que em todas as celulas com valores, aparece um apostrofe junto com o texto, ex:

    produto
    'shampoo

    Notou o apostrofe dentro da celula? Ele só aparece quando clico dentro da celula.
    Isso prejudica quando tenho q copiar esses valores para outra planilha, pois claro o apostrofe vai junto (e eu não queria isso)
    veja a figura....

    Valeu Ney!!
    Obrigado pela atenção
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 308
    Registrado : 23/01/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  thiagomcosta em 5/7/2017, 12:34

    E como está sendo enviado o resultado para o Excel?
    Quais os comandos?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  ahteixeira em 5/7/2017, 14:27

    Olá a todos,

    Rubens, como podemos ajudar se não postou o código que está a usar.

    Tente o Replace, se tiver dúvidas aperte o F1.

    Abraço

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 5/7/2017, 17:06

    O comando foi inserido no evento "ao clicar" de um botão que criei.
    Como disse ele funciona perfeitamente e envia a consulta diretamente para o excel.
    Meu proble, repito, é, quando vou verificar os dados na planilha GoodPick, noto que existe um apostrofe em cada celula. Gostaria de um meio de esse apostrofe não aparecer.



    Private Sub Comando156_Click()

    On Error GoTo Err_Comando156_Click
    Dim strConsulta, strNomePLanilha
    strConsulta = "GoodPick_Hoje"
    strNomePLanilha = "C:\ATIVIDADE TECNICA\Goodpick_Hoje.xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha
    Exit_Comando156_Click:
    Exit Sub

    Err_Comando156_Click:
       MsgBox Err.Description
       Resume Exit_Comando156_Click
       
    End Sub
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  ahteixeira em 5/7/2017, 17:39

    Ola, o apóstrofo aparece se executar a consulta diretamente?
    Abraço

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 5/7/2017, 17:46

    Sim isso mesmo ahteixeira
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  ahteixeira em 5/7/2017, 17:57

    Olá, então na consulta pode fazer o tratamento.
    Use o replace, algo assim:
    Replace(nomeCampo,"'","")
    Estou ne celular, se tiver dificuldades efetue uma pesquisa.
    Abraço

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 5/7/2017, 18:00

    Ok mas em que parte do código que enviei eu coloco o Replace?

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 5/7/2017, 18:02

    Ok mas em que parte do código que enviei eu coloco o Replace? Lembrando que o apostrofe não aparece no campo  e sim lá na célula da planilha que recebeu os valores da consulta como mostrei na imagem. Coloquei antes do



    ......

    Replace(nomeCampo,"'","")

    Exit_Comando156_Click:
    Exit Sub


    Mas deu erro de compilação!

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 5/7/2017, 18:14

    Fiz um teste aqui em outro computador que tem excel 2010. Não aparece o apostrofe.
    Vou verificar as configurações do outro excel que esta no outro pc, deve ser um problema de configuração dele.
    Se não conseguir resolver volto a comunicar, valeu pela atenção.
    Muito obrigado a todos.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 308
    Registrado : 23/01/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  thiagomcosta em 5/7/2017, 18:32

    Todos os métodos que eu tentei aqui continuam a colocar o apostrofo na frente. Inclusive se eu digitar o valor na mão, o Excel continua colocando o apostrofo automaticamente.

    Isso é alguma configuração do Excel e não problema com seu código.

    Este apostrofo apenas indica que o valor da célula é um texto e não um valor numérico. Está dando problema isso?

    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  Phillip_Junior em 5/7/2017, 18:47

    Olá amigo!


    Você poderia enviar um pequeno exemplo dentro do seu banco de dados tipo a parte que faz o envio. Assim analisaremos e retornaremos.



    .................................................................................
    Phillip_Junior
    Analista de Sistemas

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  APALOOSA em 5/7/2017, 19:05

    Obrigado pessoal, é exatamente o que o Thiago Costa disse , uma questão de incompatibilidade de valores da células q estão como texto em.numeros, percebi que só acontece isso se eu por exemplo colocar preenchimento ( cor de fundo) na célula, depois disso se eu tentasse salvar ele dizia que havia incompatibilidade do Excel 2003 2007 ( acho q pq uso o Excel 2010.)
    A solução que encontrei foi formatar apenas as fontes e o tamanho da célula sem mexer em cor.
    Ta resolvido , ficou uma planilha confiável e com os dados claros. Por enquanto tá ótimo. Obrigado dei o tópico como resolvido. Mais uma vez obrigado a todos pela a atenção a mim dispensada. Valeu mesmo .
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tirar Apóstrofe da consulta quando envia para Excel

    Mensagem  ahteixeira em 5/7/2017, 23:22

    Olá a todos,
    Rubens, obrigado pelo retorno.
    O fórum agradece.

    Abraço

      Data/hora atual: 15/11/2018, 04:42