MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Copiar dados de Relatorio para arquivo em Excel ja existente

    Compartilhe

    edycarlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 06/03/2014

    Copiar dados de Relatorio para arquivo em Excel ja existente

    Mensagem  edycarlo em Sex 09 Out 2015, 22:21

    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;").

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 554
    Registrado : 02/10/2011

    Re: Copiar dados de Relatorio para arquivo em Excel ja existente

    Mensagem  rubenscouto em Seg 12 Out 2015, 07:42

    mas qual o motivo de exportar para o excel? não serve em outro formato? se for para criar relatorios, o access tem muito mais recursos que o excel.

    edycarlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 06/03/2014

    Re: Copiar dados de Relatorio para arquivo em Excel ja existente

    Mensagem  edycarlo em Seg 12 Out 2015, 17:44

    Concordo, mas tenho q dar saída de tais dados mensal em formato excel, pois que recebera tais informações exige em excel.


    Obrigado

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 554
    Registrado : 02/10/2011

    Re: Copiar dados de Relatorio para arquivo em Excel ja existente

    Mensagem  rubenscouto em Qui 15 Out 2015, 02:48

    Sendo assim, sim.

      Data/hora atual: Sex 09 Dez 2016, 03:51