Relatório ACCESS para EXCEL incluso design

[zebra2011]

Boa tarde, pessoal!

Venho aqui pedir ajuda ao Fórum do SCRIPTBRASIL referente a uma dúvida e dificuldade na qual tenho, não somente eu e sim, outras pessoas que poderão resolver esta dúvida com esse fórum.

Tenho uma tabela na qual contém os campos NOME, E-MAIL, NOTA e TELEFONE, e de padrão o ID do registro no ACCESS, transformeu o mesmo em modo FORMULÁRIO estiloso, e em seguida coloquei um botão no formulário para abrir o relatório em modo "Exibição de Relatório", na qual apliquei a função "CONDICIONAL" que pinta a linha toda de amarelo caso a nota seja menor que 1% "... [NOTA]<'1%'..." - até ai tudo bem, ele pinta normalmente, todo funcional.

A dúvida é, quando faço a exportação pro EXCEL ou quando seleciona todo e copio no EXCEL, ele não vai com o DESIGN do relatório que criei, quero saber, como faço para exportar para o EXCEL já com todos os resultados inclusive com o DESIGN do relatório (colunas pintadas em amarelo se a nota for 0%).

Andei pesquisando na internet, há muitas respostas, porém a maioria são incompletas, não explica passo-a-passo. Existe a possibilidade vincular o ACCESS com o EXCEL (criar um design no próprio EXCEL) depois só clicar no botão RELATORIO que abre a plainhla do EXCEL já com as cores desejados? Não sei se fui claro.

O ideial seria quando abro o RELTORIO DO ACCESS ele desse opção para passar pro excel só que com o DESIGN já montado, porque não tem graça, quando exporto pro excel e depois ter que ficar arrumando o design (toma muito tempo).

Alguém pode me ajudar?

[Iceguy]

Usa esse código:

DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="NomeDoRelatorio", OutputFormat:="xls"

E troca NomeDoRelatorio pelo nome do seu relatório entre " (aspas) mesmo

Se você quiser pode colocar sem o , OutputFormat:="xls" que daí ele pergunta em que formato você quer exportar

Editado Agosto 9, 2011 por Iceguy

[zebra2011]

Certo, esse caso, ele vai gerar no design que fiz na planilha? Onde coloco esse código, pode por favor, me explicar passo-a-passo... grato!

[Iceguy]

Insere um botão no seu formulário, e cancela o assistente, daí você muda o nome dele pra Exportar e depois clica dnovo com botão direito e coloca "Criar Evento" e escolhe de código, depois cola isso lá

[zebra2011]

Olá, tentei realizar esse procedimento, porém apareçe a seguinte mensagem:

O Microsoft Access não pode localizar o objeto DoCmd

O que pode ser?

[Iceguy]

Isso é um código de VBA

no botão exportar que você fez, clique com o botão direito nele e selecione "Construir Evento..." aí abre essa tela

Aí você seleciona Construtor de código. Na tela que vai abrir tem lá uma função +- assim:

Private Sub Comando0_Click()

End Sub

aí você coloca o código lá dentro da Sub, fica assim:

Private Sub Comando0_Click()

DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="NomeDoRelatorio", OutputFormat:="xls"

End Sub

[zebra2011]

olha eu denovo...... fiz o procedimento so que apareceu uma mensagem dizendo que o formato xls não esta disponivel e agora?

[Iceguy]

tira o , ObjectType:="xls" do comando

[zebra2011]

certo, so q não tem a opcao xls

[Iceguy]

achei aqui

http://msdn.microsoft.com/en-us/library/aa...fice.11%29.aspx

Cometi um erro, era

DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="NomeDoRelatorio", OutputFormat:=acFormatXLS

[zebra2011]

o erro persiste

[zebra2011]

Alguma solução??

[zebra2011]

ERRO EM TEMPO DE EXECUÇÃO "2103"

O nome de relatório "TESTE" que você inseriu na folha de propriedades ou macro esta incorreto ou refere-se a um relatório que não existe.

Pode me ajudar?

[Iceguy]

Não aparece essa tela?

[zebra2011]

Essa tela não. A minha versão do Office é 2007, tem algum problema?

No caso, ObjectName:="NomeDoRelatorio", , tenho que especificar o somente o nome do relatorio que esta no ACCESS ou o que quero abrir, juntament com seu caminho ex: c\meus documentos\arquivo.xls??

[Iceguy]

relatório do access, daí vem essa tela aí (na versão 2007) e você escolhe o formato, daí abre uma save box e você escolhe onde deseja salvar

[zebra2011]

realmente não consegui, pode me dar um exemplo? porque ele da o erro mencionado acima

[zebra2011]

Alguém pode me ajudar, nessa causa?

[Andy SC]

acho que isso pode ser util pois pra mim resolveu...... veja os exemplos a baixo ok

Para importar:

Const acAppendData = 2

Set objAccess = CreateObject("Access.Application")

objAccess.OpenCurrentDatabase "C:\XML\XML2.mdb"

objAccess.ImportXML "C:\XML\FUNCI.xml", acAppendData

Para exportar:

Const acExportTable = 0

Set objAccess = CreateObject("Access.Application")

objAccess.OpenCurrentDatabase "C:\XML\XML2.mdb"

objAccess.ExportXML acExportTable, "FUNCIONARIOS", "c:\XML\FUNCI.xml"

Declarar o objAccess:

Set objAccess = CreateObject("Access.Application")

=====================================================================================================

Que tal este exemplo?

Public Function exportar_dadosExcel()

strfich = "C:\testes2000\tassociados.xls"

Kill strfich

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tASSOCIADOS", strfich, True, ""

End Function

João Mateus

=====================================================================================================

DoCmd.TransferSpreadsheet acExport, 8, "Cns_201_Exportar", "C:\Fatura82004\Julho04.xls", True, "Sheet3!"

=====================================================================================================

DoCmd.TransferSpreadsheet acExport, 0, "NOME_DA_CONSULTA", "C:\PLANILHA.XLS", False, ""

=====================================================================================================

DoCmd.TransferSpreadsheet acExport, 0, "NOME_DA_CONSULTA", "C:\PLANILHA.XLS", False, "USERS!b2:j2500"

=====================================================================================================

Gostaria de saber se tem como especificar a partir de que célula ele vai jogar os valores no excel ( Ex.: C3 )

Public Sub ExcelTeste()

Dim objAPP As Object

Dim objwk As Object

Dim objSh As Object

Dim rst As ADODB.Recordset

Set objAPP = CreateObject("Excel.application")

objAPP.SheetsInNewWorkbook = 1

Set objwk = objAPP.Workbooks.Add

Set objSh = objwk.ActiveSheet

Set rst = CurrentProject.Connection.Execute("Select * from tabela")

objSh.Cells(3, 3).CopyFromRecordset rst

rst.Close

objwk.SaveAs "C:\teste.xls"

objwk.Close

objAPP.Quit

tambem tem este que pode ser util em alguns casos......

Exemplo:

Exemplo de como transferir uma tabela do Access através de Macro para uma planilha do Excel em células ou pastas específicas:

Nome da pasta: teste.xls

Nome da guia (planilha): teste1

Células: C3 a G10

A Macro abaixo executa essa tarefa:

Ação Argumentos

-------------------------------------------------------------------------

TransferirPlanilha Tipo de transferência - Exportar

Tipo de planilha eletrônica - Microsoft Excel 97

Nome da Tabela - Nome da tabela no mdb

Nome do Arquivo - C:\caminho\teste.xls

Contém nomes de campos - Sim

Intervalo - teste1!C3:G10