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