Ficheiro CSV

Boas
é possivel configurar um botão para exportar um relatório no formato CSV?
obrigado

Dê uma pesquisada por Exportar no vba do Access. Lá tem exemplos completos para todos os tipos de saída. Aqui no fórum tambem tem.

Obrigado Criquio,
Já estive a dar uma vista de olhos mas não tem nada relacionado com CSV,

http://maximoaccess.forumeiros.com/t2928-exporta-tabela-access-para-bloco-de-notas

Obrigado Jpaulo
Não é bem isso que procuro,
eu quero exportar os dados que estão num relatório já filtrados por uma consulta com critérios.
no formulário há um botão que ao ser pressionado exporta esse retaliatório.
para XLS funciona, mas eu quero só os dados e não toda a tralha que leva o XLS
obrigado

Porque não exporta a consulta ?

sim tambem pode ser só a consulta pois só preciso dos dados
mas como?

Procure aqui mesmo por DoCmd.TransferText

Este teu codigo funciona, só preciso alterar duas coisas

1º em vez de ir buscar os dados a tabela ir a consulta ou ao relatório,
2º guardar em C:\teste.csv

Private Sub Command0_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.csv"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Teste").Activate
strSQL = "SELECT * FROM tblExemplo;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub

Se funfa melhor ainda.

Altere você mesmo o que pretender, use e abuse.

JPaulo desculpa a maçada e estar a ocupar o teu precioso tempo mas será que poodes fazer a alteração para mim, já tentei mas não funcionou,

a consulta tem o nome "HorasBombeirosExportar"

Obrigado JPaulo

o Codigo apresenta o seguinte erro:

Compile error:
User-defined type not defined

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("HorasBombeirosExportar", dbOpenSnapshot)

'Inicia um novo Livro de Excel
Dim xNovoLivro As New Excel.Application
Dim xLivro As Excel.Workbook
Dim xPlanilha As Excel.Worksheet

Set xLivro = xNovoLivro.Workbooks.Add
Set xPlanilha = xLivro.Worksheets(1)

'Adiciona os dados a partir da primeira linha
xPlanilha.Range("A1").CopyFromRecordset rs
xNovoLivro.Visible = True
xNovoLivro.UserControl = True
xNovoLivro.DisplayAlerts = False
xNovoLivro.ActiveWorkbook.Save

xLivro.SaveAs FileName:= _
"C:\teste.csv", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

xNovoLivro.Application.Quit
Set xNovoLivro = Nothing
'Fecha o Recordset aberto
rs.Close
db.Close
End Sub

Habilite a referencia Microsoft Excel Object Library

Obrigado JPaulo,
assim ja funciona, porem ele ao guardar faz um ficheiro do Excel com a extensão CSV mas o formato é do excel e não CSV.
Ao abrir o CSV com o bloco de notas esta tudo desconfigurado com muitos caracteres e deveria estar tudo em linhas com os dados certos

Boas
este código serve-me na quase na perfeição, só que ele vai buscar os dados as tabelas ou consultas.
mas eu quero que ele va forçosamente buscar os dados a um relatorio,
é possivel?
o que alterar?



Private Sub Command0_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = "C:\Users\Desktop\teste.csv"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Teste").Activate
strSQL = "SELECT * FROM HorasBombeirosExportar;"
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

Boas
bom, já resolvi a questão de ir buscar os dados a consulta usando o código que está no post anterior, porem há um novo problema,
a consulta tem um critério entre datas e assim o código já não funciona.

Como resolver?

Boas,
alguém me pode dar uma ajuda?