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]Exportar consulta para Excel

    Compartilhe

    snogueira66
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 01/02/2017

    [Resolvido]Exportar consulta para Excel

    Mensagem  snogueira66 em Qui 4 Maio 2017 - 17:32

    Pessoal boa tarde,

    Estou precisando exportar para uma única planilha .xls duas consulta.

    Exportar para uma unica consulta estou utilizando o codigo abaixo:

    Private Sub Comando22_Click()
    On Error GoTo 0
    Dim strConsulta1, strNomePLanilha

    Data = Forms!Menu.txt_data
    nome = nome & Mid(Data, 1, 2)
    nome = nome & Mid(Data, 4, 2)
    nome = nome & Mid(Data, 9, 4)

    strConsulta1 = "CS_HelpLine_Infoglobo" (nome da consulta)

    Caminho = Application.CurrentProject.Path

    strNomePLanilha = Caminho & "\" & strConsulta1 & "_" & nome & ".xls"

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta1, strNomePLanilha


    End Sub

    Desde já agradeço.

    Sergio Nogueira
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar consulta para Excel

    Mensagem  JPaulo em Sex 5 Maio 2017 - 10:09

    Basta o amigo duplicar as linhas de codigo;

    Código:
    Private Sub Comando22_Click()
    On Error GoTo 0
    Dim strConsulta1$
    Dim strConsulta2$
    Dim strNomePLanilha$

    Data = Forms!Menu.txt_data
    nome = nome & Mid(Data, 1, 2)
    nome = nome & Mid(Data, 4, 2)
    nome = nome & Mid(Data, 9, 4)

    strConsulta1 = "CS_HelpLine_Infoglobo" '(nome da consulta 1)
    strConsulta2 = "SegundaConsulta" '(nome da consulta 2)

    Caminho = Application.CurrentProject.Path

    strNomePLanilha = Caminho & "\" & strConsulta1 & "_" & nome & ".xls"

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta1, strNomePLanilha
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta2, strNomePLanilha

    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

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

    snogueira66
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 01/02/2017

    Exportar consulta para Excel

    Mensagem  snogueira66 em Sab 6 Maio 2017 - 0:15

    JPaulo boa noite,

    Meu amigo obrigado funcionou corretamente.

    Att,
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar consulta para Excel

    Mensagem  JPaulo em Sab 6 Maio 2017 - 19:34

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

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

    rafaelsleal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/08/2014

    Re: [Resolvido]Exportar consulta para Excel

    Mensagem  rafaelsleal em Qui 8 Jun 2017 - 19:18

    Boa tarde!

    Vocês poderiam colocar um Access como exemplo.

    Sou iniciante e gostaria muito de apreender

      Data/hora atual: Ter 21 Nov 2017 - 10:12