[Resolvido]Exportar um Relatorio para Excel 2007

Boa tarde a todos.

Solicito mais uma vez ajuda de voces, para esta questao que para mim esta sendo bastante complicado, mais para voces que sao grande mestre em access com certeza sera muito facil.

A questao e o sequinte tenho uma consulta Rel_Financeiro_Dependente Ok que tem como colunas Mat_Siape, MêsAno, NomeDependente, Data_Nascimento,Dt_Admissão,Apólice, Cap_Segurado, Sexo, CPF, PremioII, Ativo.
so que no criterio no campo MêsAno tem este codigo >=[forms]![Painel_Controle]![FatDep1] E <=[forms]![Painel_Controle]![FatDep2], este codigo serve para enviar a um relatorio.

gostaria que exporta-se data.

Caro Amigo

Não entendi a sua dúvida. Você tem um filtro no campo data da sua consulta que filtra entre datas. Tem aqui no forum exemplos de exportação. Você pode usar na consulta do relatório o Exportar como (Excel) e nome da consulta.

Amigo reabri novamente o tópico. Você está a usar o 2003 ou o 2007? Você pode exportar o relatório para excel directamente clicando com o botão direito do rato e seleccionado exportar>>escolher Excel e enviar o relatório.

Bom dia, Caro Amigo.

Eu peguei um exemplo de exportar para excel conforme foi dito, mais deu um problema o meu excel e 2007 e do exemplo e 2003.
Deu esse erro (Erro de compilação: Variavel nao definida)
Este erro esta nesta linha de condigo.

'salva a planilha
XPlanilha.ActiveWorkbook.SaveAs filename:=sTemp, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'fecha o Excel
XPlanilha.Quit
'descarrega da memória
Set XPlanilha = Nothing
End If
Rd.Close
Set Rd = Nothing
Set DB = Nothing
MsgBox "A planilha foi gerada com êxito." _
& vbCrLf & "Está em " & sTemp, vbInformation, "ATENÇÃO"
End Sub

Como posso transformar este codigo para 2007.

Em princípio não deveria haver problema, pois não existe código especial para o 2007. Você colocou o procedimento todo aí?

Desculpe nao coloquei, ai esta o procedimento todos.

Public Sub ExportarParaExcel(ByVal ssql As String, _
ByVal sDataInicial As String, ByVal sDataFinal As String)
'Envia dados de uma consulta ou tabela para o Excel
'Autor: Carlos Moura em 10/05/2000 e-mail: crpmoura@ig.com.br

Dim DB As Database, iLinha As Integer, intCampos As Integer
Dim i As Integer, XPlanilha As Object, sTemp As String
Dim Rd As Recordset

Set DB = CurrentDb
Set Rd = DB.OpenRecordset(ssql, dbOpenForwardOnly)
If Rd.RecordCount > 0 Then
'cria referencia ao EXCEL
Set XPlanilha = CreateObject("Excel.Application")

'cria uma pasta de planilhas
XPlanilha.Workbooks.Add

'seleciona a primeira planilha
XPlanilha.Workbooks(1).Sheets(1).Select

'incrementa a linha
iLinha = iLinha + 1

'insere texto e data na planilha
XPlanilha.Range("A" & CStr(iLinha)).Value _
= "Intervalo de Pesquisa de " & sDataInicial & " a " & sDataFinal
'Aplica negrito
XPlanilha.Range("A" & CStr(iLinha)).Font.Bold = True
'Aplica cor azul
XPlanilha.Range("A" & CStr(iLinha)).Font.ColorIndex = 5

intCampos = Rd.Fields.Count

For i = 0 To intCampos - 1
'coloca o titulo dos campos na 2 linha
XPlanilha.Cells(2, i + 1).Value = Rd.Fields(i).Name
'aplica negrito
XPlanilha.Cells(2, i + 1).Font.Bold = True
Next i

iLinha = iLinha + 1

'transfere os dados
Do While Not Rd.EOF
iLinha = iLinha + 1 'incrementa a linha
i = 0
For i = 0 To intCampos - 1
XPlanilha.Cells(iLinha, i + 1).Value = Rd(i)
If IsDate(Rd(i)) Then
XPlanilha.Cells(iLinha, i + 1).NumberFormat = "dd/mm/YY"
End If
Next i
Rd.MoveNext
Loop

'formata novo nome da planilha
sTemp = "C:\Temp\Rel" & Format(Now, "ddmmyy_hhnn") & ".xls"
'se o diretório não existe, cria
If Dir$("C:\Temp", vbDirectory) = "" Then MkDir "C:\Temp"
'se o arquivo já existe, deleta
If Dir$(sTemp) <> "" Then Kill sTemp

'salva a planilha
XPlanilha.ActiveWorkbook.SaveAs filename:=sTemp, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'fecha o Excel
XPlanilha.Quit
'descarrega da memória
Set XPlanilha = Nothing
End If
Rd.Close
Set Rd = Nothing
Set DB = Nothing
MsgBox "A planilha foi gerada com êxito." _
& vbCrLf & "Está em " & sTemp, vbInformation, "ATENÇÃO"
End Sub

Amigo:

Você quer fazer isso por código mesmo?

Veja aqui o simples deste artigo no access 2007


Muitas vezes é necessário converter os dados armazenados em um banco de dados para uma outra forma, como uma planilha do Excel. Você pode querer tirar vantagem de algumas das únicas do Excel capacidades analíticas ou dados simplesmente compartilhar com alguém familiarizado com o Access. Seja qual for o motivo, o processo de conversão é bastante simples e rápida.

Vamos levar alguns minutos para percorrer o processo, passo a passo.

Nota: Estas instruções se aplicam ao Microsoft Access 2007. Instruções também estão disponíveis para aqueles que utilizam versões anteriores do Access.
Dificuldade: Fácil
Tempo necessário: 10 minutos
Veja como:
1.Abra o banco de dados que você deseja exportar dados no Microsoft Access 2007
2.Using painel de navegação, selecione a tabela, o relatório do formulário ou consulta que você deseja exportar.
3.Choose guia Dados Externos na Faixa de Opções.
4.Clique no botão Excel na seção de exportação da guia Dados Externos.
5.Provide um nome de arquivo de exportação e selecione o formato do Excel que você gostaria de usar para sua exportação.
6.Click OK para iniciar a exportação.

Amigo:

Veja também este exemplo:

Exportar data para o excel

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000275

Retorne logo que possível se deu certo

Caro amigo Vieira, realmente eu gostaria este codigo.
Gostaria de saber onde esta o erro neste codigo.

Não estou vendo nada de mal na rotina à excepção de uma coisa; Mude XLS para a nova extensão do Excel no 2007, xlsx. Para mim o problema está ai, uma vez que tudo me parece correcto na rotina de código.

Ja modifiquei e o problema ainda continuar.

Pois amigo

Ou contacta o Carlos Moura, porque a rotina é dele ou passa para outra. Não estou vendo nada de mal nessa rotina à excepção da extensão.

Amigo tente esta rotina do Mestre JPaulo:

Private Sub SeuBotão_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.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Sheet1").Activate
strSQL = "SELECT * FROM teste;"
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

Muito obrigado pela sua ajuda, este codigo funcionou perfeitamente.

Obrigado pelo retorno o fórum agradece

Bom Trabalho