exportar consulta para ficheiro excel já criado.

boa noite a todos.

Preciso da vossa ajuda para o seguinte:
Tenho uma bd de nome "sgo" e pretendo inserir um botão num formulário, em que ao clicar no mesmo faça uma consulta (sgo consulta) e exporte o resultado dessa consulta para uma folha de excel (sgo.xls) previamente criada.

Tou a iniciar-me neste mundo que é o access pelo que os meus conhecimentos ainda são muito limitados.

Agradeço desde já a vossa ajuda.

Ola seja bem vindo ao forum;

No evento VBA ao pressionar do seu botão;

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
'se o seu excel estiver junto ao banco
' strLivro = CurrentProject.Path & "\SeuExcel.xls"
'se o seu excel estiver num pasta especifica
strLivro = "C:\SuaPasta\SeuExcel.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("NomeDaFolha").Activate
strSQL = "SELECT * FROM SuaConsulta;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveSheet.Range("A1:AZ65000").EntireColumn.Delete
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub

Obrigado pela resposta mas coloquei o seguinte:

Private Sub Comando35_Click()

Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = "C:\SGO1.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("DADOS ACCESS").Activate
strSQL = "SELECT * FROM CONSULTA SGO;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveSheet.Range("A1:AZ65000").EntireColumn.Delete
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing

End Sub

Mas ao clicar no botão comando35 nada acontece.

Se estiver a utilizar o Access 2007 ou superior, veja as seguranças de Macro.

E este é o nome da sua consulta ?

"CONSULTA SGO"

sim, a minha consulta é CONSULTA SGO
a tabela é SGO
ficheiro excel é SGO

já consegui fazer com que me abra o ficheiro excel, no entanto os dados não são exportados.

dá-me um erro. Diz que não localiza tabela de entrada ou consulta e ao fazer depurar diz que é em:

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Ola;

Como o nome da consulta tem espaços, tem de estar dentro de colchetes;

Assim;

strSQL = "SELECT * FROM [CONSULTA SGO];"

Olá JPaulo

Obrigado pela ajuda mas continua igual.

Será por ter um critério na minha consulta que não dá? É que pretendo fazer a minha consulta selecionando apenas um registo tendo colocado um campo "Nº SGO".

Não testei, mas penso que sim, não deve ter criterio na consulta para esse Recordset.

A solução é essa consulta, para criação de tabela e fazer então a exportação dessa tabela.