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

    Compartilhe
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    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
    avatar
    marceloarboit
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    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
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    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
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    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: Seg 25 Set 2017, 03:31