MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Copiar dados de Relatorio para arquivo em Excel ja existente

    avatar
    edycarlo
    Novato
    Novato


    Respeito às regras : 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 Empty Copiar dados de Relatorio para arquivo em Excel ja existente

    Mensagem  edycarlo 9/10/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
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 12/10/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.
    avatar
    edycarlo
    Novato
    Novato


    Respeito às regras : 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 Empty Re: Copiar dados de Relatorio para arquivo em Excel ja existente

    Mensagem  edycarlo 12/10/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
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 15/10/2015, 02:48

    Sendo assim, sim.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:25