[Resolvido]Formatar texto para Numero antes de exportar para excel

Boa noite senhores !

Estou tentando formatar os campos de uma consulta antes de exportar para excel mas nao estou conseguindo.

Não da erro mas tbm não exportar.

.....
strSQL = "Select Tipo, CDbl(Peso)as Peso1,.....varios outros campos From Qry_RelatorioDiario"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.Worksheets("IMPORTAR").Activate
xls.ActiveSheet.Range("A35").Select
xls.ActiveCell.CopyFromRecordset rst


Já Tentei tbm...
strSQL = "Select Tipo, CLng(Peso)as Peso1
strSQL = "Select Tipo, Round(Peso,2)as Peso1
strSQL = "Select Tipo, Int(Peso)as Peso1


Se eu usar somente strSQL = "Select Tipo, Peso From Qry_RelatorioDiario" Funciona mas o campo vai para o excel como texto e preciso que vá como numero.


Alguma sugestão!

Obrigado

Up !

Ola,

O amigo já tentou dar a formatação direto na consulta Qry_RelatorioDiario" ?

Obrigado e Desculpe a demora JPaulo !

Na consulta eu ja formato os campos da seguinte forma.

Format(Round(100-((Int(Sum(Qry_Relatorio_Parcial.Minutos_DiaAnt))/(1440*Qtde))*100),2),'Standard') AS ConsD,


Depois faço um consulta União e esse consulta é que vai ser importada.


Obrigado !

Ola;

Então antes de mais faça o teste enviando tudo para o Excel, usando o Select * à consulta união;

strSQL = "Select * From Qry_RelatorioDiario"

Ja tentei tambem, mas fica no excel como texto do mesmo jeito!

Boa Tarde !


Resolvi com uma sugestão do JPaulo no tópico abaixo
http://maximoaccess.forumeiros.com/t13298-resolvidoconverter-texto-em-numero


Obrigado !