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

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:



Esse é o arquivo exportado em excel uma bost4 kkkk:




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

up....

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


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

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

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

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

Essa QryTemp é um form?

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

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

up!

Bom dia, não sei se ajuda mas uso este comando no exportar :

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim sessao, folha, iRow, i, xlsheet
Set sessao = CreateObject("Excel.Application")

Set db = CurrentDb()

SQL = "SELECT .............."
Set rs = db.OpenRecordset(SQL)

sessao.Workbooks.Add
Set folha = sessao.Worksheets(1)


iRow = 7

If Not rs.EOF Then
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
folha.Cells(iRow, i + 1).Value = rs.Fields(i)
folha.Cells(iRow, 1).HorizontalAlignment = -4108 ' centraliza a primeira coluna
folha.Cells(iRow, 6).NumberFormat = "0.00%"
Next
iRow = iRow + 1
rs.MoveNext
Loop

End If

folha.Cells(1, 1) = "TITULO"
folha.Range(folha.Cells(1, 1), folha.Cells(1, 6)).SELECT ' seleciona a primeira linha e até a sexta coluna
folha.Range(folha.Cells(1, 1), folha.Cells(1, 6)).merge ' mescla a primeira linha e até a sexta coluna
folha.Cells(1, 1).HorizontalAlignment = -4108
folha.Cells(1, 1).Font.Size = 14
folha.Cells(2, 1) = "TEXTO 01 "
folha.Cells(2, 1).Font.Size = 14
folha.Cells(3, 1) = "TEXTO 02"
folha.Cells(3, 1).Font.Size = 14
folha.Cells(4, 1) = "TEXTO 03"
folha.Cells(4, 1).Font.Size = 14
folha.Cells(5, 1) = "TEXTO 04"
folha.Range(folha.Cells(5, 1), folha.Cells(5, 6)).SELECT ' seleciona a primeira linha e até a sexta coluna
folha.Range(folha.Cells(5, 1), folha.Cells(5, 6)).merge ' mescla a primeira linha e até a sexta coluna
folha.Cells(5, 1).HorizontalAlignment = -4108
folha.Cells(5, 1).Font.Size = 14

folha.Cells(6, 1) = "Qtd"
folha.Cells(6, 1).HorizontalAlignment = -4108
folha.Cells(6, 1).Interior.Color = RGB(218, 221, 227) 'ou assim .Interior.ColorIndex = 5

folha.Cells(6, 2) = "Fornecedor"
folha.Cells(6, 2).HorizontalAlignment = -4108
folha.Cells(6, 2).Interior.Color = RGB(218, 221, 227)
folha.Cells(6, 2).ColumnWidth = 15 'largura da coluna

e assim em diante ....

Olá egnaldo eu utilizo formulário desvinculado, essa função copia o que está na tela?

vou testar ela utiliza-se alguma biblioteca de referência ?

Oi, não copia o que está na tela, como pode ver tem que abrir um recordset, que pode ser uma tabela temporária, e não utiliza alguma biblioteca específica.

Very hard...

acredito que essa questão está dificil pra ser resolvida! ainda não consegui estava tentando da forma que o Alexandre indicou porém ele trás apenas o design da tabela

Boa tarde,
poderá encontrar o caminho das pedras nesse meu exemplo:
https://www.maximoaccess.com/t36386-exportar-todas-as-tabelas-vinculadas-local-odbc-para-excel

Marcelo boa tarde,

Primeiramente parabéns pelo seu app ficou mto bom, realmente

Porém exportar os dados do Grid pra dentro de um query e depois criar um arquivo de saída é facil, eu já consigo fazer isso, porém isso me afeta de diversas formas, vamos lá

eu tenho uma query com 50 colunas, cada coluna tem um titulo no Banco de Dados SQL, os titulos são tipo ID_LSTPRE, LST_NOM, LST_ORD e assim por diante, a minha postagem é justamente por isso ao exportar os dados o Usuário precisa identificar os dados pelo cabeçalho da coluna,

Eu estou utilizando Alias do SQL pra suprir essa deficiência....

Select ID_LSTPRE AS [Código],
LST_NOM AS [Nome da Lista],
LST_ORD AS [Nº da Ordem],
FROM TCOM_LSTPRE

outra forma que me afeta, realmente o intuito é somente exportar os dados, mas que tal exportar os dados de uma maneira já pronta e com layout conforme o usuário determinou lá no aplicativo ?

Eu não sei o impacto de trabalhar ao menos com os forms de pesquisas vinculados, eu tenho um aplicativo antigo que é todo vinculado e agora ele tá me dando dor de cabeça....

Boa tarde, como não houve respostas e acredito eu ser algo impossível de se fazer...

Eu utilizo um formulário desvinculado, onde executo esse código no formulário principal para que o subformulario (folha de dados) seja carregado

o strWhere é uma String onde guarda os filtros etc

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strWhere, dbOpenSnapshot)
Set Me.FolhaDados.Form.Recordset = rs

eu precisava saber como faço pra exportar um recordset para excel ?

eu precisava saber como faço pra exportar um recordset para excel ?

Salve os dados em uma tabela temporária e execute um procedimento de exportação padrão.