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

    [Resolvido]Exportar do Access para o Excel

    Compartilhe

    aconceicao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/09/2013

    Exportar do Access para o Excel

    Mensagem  aconceicao em Qua 30 Out 2013, 00:12

    Pessoal,

    Sou novato no VBA e preciso exportar dados de uma consulta para o Excel pois alguns dados ainda preciso do Excel, mas tentei fazer algo, criei a consulta e criei um botão e no procedimento ao clicar tentei algo assim.

    Private Sub Comando37_Click()
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
    Set xls = CreateObject("Excel.Application")
    strLivro = CurrentProject.Path & "\Pasta2.xls"
    xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("plan1").Activate
    strSQL = "SELECT*FROM Produtividade AP Consulta Geral;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveCell.CopyFromRecordset rst
    Set xls = Nothing
    End Sub

    Mas não funcional e da um erro 3131 de Sintaxi no FROM.

    Se alguem puder me ajudar.

    Agradeço muito

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Exportar do Access para o Excel

    Mensagem  criquio em Qua 30 Out 2013, 00:26

    Tente colocar o asterisco entre espaços.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    aconceicao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/09/2013

    Exportar dados do access para o excel

    Mensagem  aconceicao em Qua 30 Out 2013, 02:16

    Muito obrigado pela ajuda Criquio,

    Mas não deu certo o problema e neste comando ele da o seguinte erro:
    Erro no tempo de execução 3131
    erro de sintaxe na cláusula FROm

    Peço ajuda.

    strSQL = "SELECT*FROM Produtividade AP Consulta Geral;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    Só para lembrar estou enviando dados de uma consulta

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]Exportar do Access para o Excel

    Mensagem  giba_ em Qua 30 Out 2013, 16:12

    posso estar sendo simplista mas ai vai

    exporta sem destino

    DoCmd.OutputTo acQuery, "nome consulta", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0

    exporta com destino

    DoCmd.OutputTo acQuery, "nome consulta", "MicrosoftExcelBiff8(*.xls)", "C:\TEMP\nome_consulta.xls", False, "", 0

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Exportar do Access para o Excel

    Mensagem  criquio em Sex 01 Nov 2013, 17:40

    Continua sem espaços antes e depois do asterisco. O que é Produtividade AP Consulta Geral? É tudo o nome da consulta? Se for, aconselho a mudar esse nome retirando os espaços. Algo como ProdutividadeAPConsultaGeral. Veja nesse link dicas de nomeação de controles e elementos no Access. Caso insista em deixar assim (já disse, aconselho a mudar), deve colocar o nome entre colchetes:

    strSQL = "SELECT * FROM [Produtividade AP Consulta Geral]"


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Exportar do Access para o Excel

    Mensagem  Uilson Brasil em Sex 01 Nov 2013, 17:47

    Com a licença do Mestre Criquio...

    Se preferir pode utilizar este código, muito simples, porém muito funcional.
    Obs. Exporta para o excel utilizando o próprio utilitário da Microsoft.

    Código:
    DoCmd.OpenQuery "suaconsulta", acViewNormal, acEdit
    DoCmd.RunCommand (acCmdExportExcel)
    DoCmd.Close acQuery, "suaconsulta"

    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    aconceicao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/09/2013

    Exportar do Access para o Excel

    Mensagem  aconceicao em Dom 03 Nov 2013, 14:44

    Pessoal Com a ajuda de vcs consegui chegar além do meus objetivos usei praticamente todas as respostas ainda consegui criar o código que segue:

    Com esse código eu consigo exportar dados de duas consultas ou tabelas para um determinado arquivo Excel em abas plan1 e plan2 e manipular os gráficos em uma 3° aba (plan3), clicando em um botão do access.

    Se servir para alguém está a disposição

    Obrigado pela ajuda meus caros.

    Private Sub Comando40_Click()
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
    Set xls = CreateObject("Excel.Application")
    strLivro = CurrentProject.Path & "\NOME DO AQUIVO EXCEL.xlsx"
    xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("plan1")ABA DO EXCEL QUE QUER COLAR AS INFORMAÇÕES.Activate
    strSQL = "SELECT * FROM NOME DA CONSULTA OU TABELA;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A2")CÉLULA QUE QUER QUE COMECE AS INFORMAÇÕES.Select
    xls.ActiveCell.CopyFromRecordset rst

    xls.Worksheets("plan2")2ª ABA DO EXCEL QUE QUER COLAR AS INFORMAÇÕES.Activate
    strSQL = "SELECT * FROM NOME DA CONSULTA OU TABELA;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A2")CÉLULA QUE QUER QUE COMECE AS INFORMAÇÕES.Select
    xls.ActiveCell.CopyFromRecordset rst
    Set xls = Nothing
    End Sub

      Data/hora atual: Ter 06 Dez 2016, 05:45