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

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

    Compartilhe

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

    Formatar texto para Numero antes de exportar para excel

    Mensagem  Rafael Silva em Seg 14 Out 2013, 19:06

    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


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Qua 16 Out 2013, 20:09

    Up !


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qua 16 Out 2013, 22:22

    Ola,

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



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

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Sex 18 Out 2013, 14:07

    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 !


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 18 Out 2013, 16:13

    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"


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

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Sex 18 Out 2013, 17:01

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



    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Sab 19 Out 2013, 20:22

    Boa Tarde !


    Resolvi com uma sugestão do JPaulo no tópico abaixo
    [Você precisa estar registrado e conectado para ver este link.]


    Obrigado !


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

      Data/hora atual: Qua 07 Dez 2016, 08:35