[Resolvido]Exportar consulta para EXCEL ao clicar em botão

pinto_duarte32 30/12/2012, 17:02

pinto_duarte32: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 71
Registrado : 25/12/2012

Mensagem nº1

Exportar consulta para EXCEL ao clicar em botão

Mensagem pinto_duarte32 30/12/2012, 17:02

Boas,

Como é que se faz para colocar um botão num relatório que ao clicar exporte os dados de uma determinada consulta para um determinado ficheiro em excel já existente e abra directamente esse ficheiro ao mesmo tempo?

Obrigado

criquio 30/12/2012, 17:04

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Exportar consulta para EXCEL ao clicar em botão

Mensagem criquio 30/12/2012, 17:04

Dê uma pesquisada no fórum. Temos diversos tópicos resolvidos para ambos os casos.

.................................................................................

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.

pinto_duarte32 30/12/2012, 17:35

pinto_duarte32

pinto_duarte32: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 71
Registrado : 25/12/2012

Mensagem nº3

Re: Exportar consulta para EXCEL ao clicar em botão

Mensagem pinto_duarte32 30/12/2012, 17:35

Boas,

Encontrei este código mas nao funciona! Clico no botao e nao acontece nada. Pode ajudar-me?

Private Sub Command36_Click()

DoCmd.TransferSpreadsheet acExport, , Me.RecordSource, "C:\Users\Duarte\Desktop\teste.xls"
If MsgBox("Deseja transferir dados para o excel?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso do Sistema") = vbOK Then
End If
DoCmd.GoToRecord , , acNewRec
Me.cbxNome.SetFocus
End Sub

criquio 30/12/2012, 17:46

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº4

Re: [Resolvido]Exportar consulta para EXCEL ao clicar em botão

Mensagem criquio 30/12/2012, 17:46

Primeiro, se você quer que a ação seja executada apenas se a resposta for sim, deve trocar as linhas DoCmd... e If MsgBox... de lugar.
Segundo, o caminho inserido existe?
Terceiro, verificou nele se o arquivo foi criado?