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] É possível exportar subformulário e/ou consulta?

    Compartilhe

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    [Resolvido] É possível exportar subformulário e/ou consulta?

    Mensagem  Gabriel Brunichaki em Qui 18 Fev 2016, 15:50

    Buenas!!

    É possível exportar um subformulário (que pega os dados de uma consulta) ou a própria consulta para o Excel? Consigo fazer com tabelas, apenas.

    Aguardo. Smile


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    marceloarboit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 09/07/2015

    Re: [Resolvido] É possível exportar subformulário e/ou consulta?

    Mensagem  marceloarboit em Qui 18 Fev 2016, 17:32

    Olá,

    Acredito que o critério seja o mesmo. Eu utilizo o seguinte código para exportar consulta:

    Código:


    DoCmd.OutputTo acQuery, "Nome da Consulta", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0


    Abs.,
    Arboit

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido] É possível exportar subformulário e/ou consulta?

    Mensagem  Gabriel Brunichaki em Qui 18 Fev 2016, 19:16

    Boa, valeu!

    E formulário/subformulário, tem como?


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido] É possível exportar subformulário e/ou consulta?

    Mensagem  Gabriel Brunichaki em Sex 19 Fev 2016, 15:00

    Resolvido!

    Private Sub Comando215_Click()

    Me.MySubForm.SetFocus
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
    Dim xlapp As Object
    Set xlapp = CreateObject("Excel.Application")

    With xlapp

    .Workbooks.Add
    .activesheet.PasteSpecial
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Visible = True
    .Range("a1").Select

    End With

    End Sub


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

      Data/hora atual: Sex 09 Dez 2016, 09:35