Criei um relatorio no access e atraves de um botão de comando eu exporto esse relatorio para o excel. Mas quando vou abri-lo no excel ele fica desconfigurado, ou seja os nomes da colunas ficam diferentes do nome que coloquei no relatorio no access. Gostaria de saber se tem como deixar o relatorio coinfigurado no excell igual ao do access.
3 participantes
relatorio do access para o excel
neo- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 78
Registrado : 06/12/2010
- Mensagem nº1
relatorio do access para o excel
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº2
Re: relatorio do access para o excel
Exemplifique para entendermos melhor. Tambem poste o código completo para ajudar no entendimento.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Gilberto Rocha- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010
- Mensagem nº3
Re: relatorio do access para o excel
Prepare o arquivo xls com a formatação que deseja e depois exporte.
Código do JPaulo
Dim strArq as String
Dim strSql as String
Set xls = CreateObject("Excel.Application")
strArq = "C:\SeuArquivoXlsx.xlsx"
xls.Workbooks.Open (strArq)
xls.Visible = False
xls.Worksheets("Plan1").Activate
strSql = "SELECT * From SuaTabela;"
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
xls.ActiveSheet.Range("A5:F200").select
xls.selection.ClearContents
xls.ActiveSheet.Range("A5").select
'Apaga da linha 5 em diante
xls.ActiveSheet.Range("A5:AZ65000").Delete
xls.ActiveCell.CopyFromRecordset rst
xls.selection.CurrentRegion.select
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
Código do JPaulo
Dim strArq as String
Dim strSql as String
Set xls = CreateObject("Excel.Application")
strArq = "C:\SeuArquivoXlsx.xlsx"
xls.Workbooks.Open (strArq)
xls.Visible = False
xls.Worksheets("Plan1").Activate
strSql = "SELECT * From SuaTabela;"
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
xls.ActiveSheet.Range("A5:F200").select
xls.selection.ClearContents
xls.ActiveSheet.Range("A5").select
'Apaga da linha 5 em diante
xls.ActiveSheet.Range("A5:AZ65000").Delete
xls.ActiveCell.CopyFromRecordset rst
xls.selection.CurrentRegion.select
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
.................................................................................
Resolveu? Clique em resolvido!
Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
Seja um representante em sua cidade!
Código de cliente para testes: congregafacil
SisFAT Cursos Online
www.congregafacil.com
Analista de BI SR
neo- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 78
Registrado : 06/12/2010
- Mensagem nº4
Re: relatorio do access para o excel
Explicando melhor: Quando criamos um relatório no access na opção "Modo Design" conseguimos alterar o cabeçalho da página tirando os nomes dos campos da tabela e colocando os nomes que quisermos por exemplo:
"NomCli" para "Nome Cliente". Só que mandando para o excel o titulo, ou a primeira linha da tabela fica com os nomes dos campos e não os nomes do cabeçalho da pagina no relatorio.
"NomCli" para "Nome Cliente". Só que mandando para o excel o titulo, ou a primeira linha da tabela fica com os nomes dos campos e não os nomes do cabeçalho da pagina no relatorio.
» [Resolvido]Como exportar um relatório do Access mantendo o mesmo visual para o Excel?
» [Resolvido] Exportar relatório do access para o excel sem fazer imprimir depois de salvar
» [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde
» [Resolvido]Importar dados de Excel para Access (um campo em access recebe valor de dois campos do excel)
» [Resolvido]Exibir opção para Exportar o relatório para o Excel
» [Resolvido] Exportar relatório do access para o excel sem fazer imprimir depois de salvar
» [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde
» [Resolvido]Importar dados de Excel para Access (um campo em access recebe valor de dois campos do excel)
» [Resolvido]Exibir opção para Exportar o relatório para o Excel