MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    Exportar para excel com a personalização do grid feito pelo usuário

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 02/08/2018

    Exportar para excel com a personalização do grid feito pelo usuário Empty Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  mfmaiafilho 17/9/2021, 20:06

    Boa tarde Srs.

    Utilizo atualmente Form + SubForm em todas as telas iniciais do sistema, como por exemplo de consulta....

    Eu criei recentemente um organizador de Grid, na realidade é onde você consegue salvar a personalização do Subformulário, Fonte, tamanho, Negrito, Italico etc..

    a questão é eu tenho um botão Exportar em cada uma dessas telas pra exportar por padrão a fonte RecordSet, porém eu utilizo esse comando pra fazer isso...

    Código:
    DoCmd.OutputTo acOutputQuery, "QryTemp", acFormatXLSX, varFile & ".xlsx", True

    a grande questão é que ele não trás o grid como está em formulario e o tamanho das colunas vem padrão ou seja fica amontuado....

    Esse é meu grid no formulário já com a personalização do usuário:

    Exportar para excel com a personalização do grid feito pelo usuário Grid10

    Esse é o arquivo exportado em excel uma bost4 kkkk:

    Exportar para excel com a personalização do grid feito pelo usuário Export10


    gostaria de uma maneira fizesse essa exportação de acordo com o SubFormulário....
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 02/08/2018

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  mfmaiafilho 20/9/2021, 15:27

    up....
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 19/03/2012

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  augustopimenta 23/9/2021, 13:11

    Bom dia ..
    Utilizo esse código ai abaixo. Me atende bem ..

    Código:

    Dim objExcel As Object
    Dim strPlanilha As String
    Dim Msg As String

                'Indica o local e o nome do arquivo exportado
                strPlanilha = "C:\ControleSCIH\Exportados\" & "Relatório_Por_Setor" & "_" & Format(Date, "dd-mm-yy") & " " & Format(Now, "hhmmss") & ".xls"
                DoCmd.OutputTo acOutputQuery, "qryMicroorgPorSetorTabela", acFormatXLS, strPlanilha, 0
               
                Set objExcel = CreateObject("Excel.Application")
       
                'Esconde o arquivo
                objExcel.visible = False
       
                'Cria o arquivo
                With objExcel
                  .Workbooks.Open (strPlanilha)
                  .Selection.CurrentRegion.Select
                  .Selection.AutoFilter 'Já cria um auto-filtro na planilha Excel
                  .Range("A1").Select
                  .Workbooks(1).Close SaveChanges:=True
                  .Quit
       
                'Abre o local de salvamento
                MsgBox "Exportado Com Sucesso...", vbInformation
                Shell "C:\WINDOWS\explorer.exe """ & "C:\ControleSCIH\Exportados\" & "", vbNormalFocus
       
                End With
    avatar
    anderson_brito
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 29/05/2017

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  anderson_brito 23/9/2021, 13:26

    Tentou usar apenas o xls ao inves de xlsx
    use tbm o acOutputForm

    desta forma:
    DoCmd.OutputTo acOutputForm, "QryTemp", acFormatXLSX, varFile & ".xls", -1
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  Alexandre Fim 23/9/2021, 14:25

    Mizael?

    Descomplica!!
    Cria uma tabela apenas de repositório (tipo temporária) e grava os dados da query nela.
    Em seguida, vc exporta esta tabela para o Excel.
    Desta forma, já vai filtrada. Mas antes, vc dá um UPDATE nesta tabela, nos campos Inativo = "S" ou "N"

    Espero ter ajudado

    []'s

    FIM
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 02/08/2018

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  mfmaiafilho 23/9/2021, 17:45

    Boa tarde Srs.

    anderson_brito achei interessante essa forma, porém eu trabalho com forms desvinculados, quando faço exportação da maneira como vocÊ indicou ele vem todo o design mas não vem os dados.... precisaria pensar em criar algo temporário..

    augustopimenta vou testar seu exemplo hoje a tarde!

    Alexandre Fim sua ideia foi muito boa , vou tentar fazer pra ver como fica o resultado mano

    Obrigado!

    Tmjs
    avatar
    anderson_brito
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 29/05/2017

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  anderson_brito 23/9/2021, 18:46

    Essa QryTemp é um form?

    na sua msg vc disse que ja tem o subformulario com os dados que acredito ser essa QryTemp. é isso mesmo?
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 02/08/2018

    Exportar para excel com a personalização do grid feito pelo usuário Empty Re: Exportar para excel com a personalização do grid feito pelo usuário

    Mensagem  mfmaiafilho 26/9/2021, 18:07

    Boa tarde Anderson, Qry = Query = Consulta, Temp = Temporária,

    é uma consulta temporária criada ao Clicar no botão Exportar, após dá o DoCmd.Output acOutputQuery eu apago a QryTemp,

    Cara, tentei fazer com a acOutputForm, fica com o Design que o usuário colocou, só não trás os dados, pois os meus formularios são desvinculados, mas vou tentar fazer essa façanha ainda...

      Data/hora atual: 16/10/2021, 22:28