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

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

Amigo,

mande um exemplo para melhor entender?

att;

Ney

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

E como está sendo enviado o resultado para o Excel?
Quais os comandos?

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

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

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

Sim isso mesmo ahteixeira

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

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

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!

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.

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?

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.

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 .

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

Abraço