Tenho um Relatorio do qual quero exportar os dados para um arquivo em excel ja existente a partir da célula A3
pesquisei neste forum o obtive o codigo de JPaulo, abaixo:
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.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("FolhaTeste").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
Agora preciso adaptar de Tabela para Relatorio, estou com dificuldades, pois não sei como fazer e gostaria da ajuda dos colegas (strSQL = "SELECT * FROM tblExemplo;").
pesquisei neste forum o obtive o codigo de JPaulo, abaixo:
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.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("FolhaTeste").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
Agora preciso adaptar de Tabela para Relatorio, estou com dificuldades, pois não sei como fazer e gostaria da ajuda dos colegas (strSQL = "SELECT * FROM tblExemplo;").