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

    Exportar do access para excel por abas

    Compartilhe

    reinaldommo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 03/07/2012

    Exportar do access para excel por abas

    Mensagem  reinaldommo em Qui 25 Set 2014, 02:48

    Boa boite,

    Como poderia exportar do access uma consulta, para um excel existente e por aba e em qual celular começar se mudar a formatação da planilha?

    Exemplo tenho um consulta 1 = Tabela 1 e outra consulta 2 = Tabela 2.

    Quero exportar essas duas consultas, para um excel existente "xxx".

    A tabela 1, para aba 1 da planilha "xxx" e a tabela 2, para aba 2 da planilha "xxx"

    Poderiam me ajudar?

    silvrod
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/12/2011

    Re: Exportar do access para excel por abas

    Mensagem  silvrod em Qui 25 Set 2014, 13:14

    Reinaldo, bom Dia!

    Tenho algo parecido, fiz uma macro direto no excel, onde ele se conecta com o access, faz a vinculação aonde você deseja e depois exclui a conexão.


    poy
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/01/2012

    exportar do access para excel

    Mensagem  poy em Qui 25 Set 2014, 15:40

    Reinaldo,

    Você tem que importar a partir do excel.

    A seguir um exemplo de código a ser usado no excel :

    Sheets("Dados B").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
    "ODBC;DSN=MS Access Database;DBQ=" & Drv_Dados & ":\Sifiger_Dados.mdb;DefaultDir=" & Drv_Dados & ":;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
    , Destination:=Range("A1"))
    .CommandText = Array( _
    "SELECT BalanceteAnual.Conta, BalanceteAnual.Descrição, BalanceteAnual.Valor01, BalanceteAnual.Valor02, BalanceteAnual.Valor03, BalanceteAnual.Valor04, BalanceteAnual.Valor05, BalanceteAnual.Valor06, B" _
    , _
    "alanceteAnual.Valor07, BalanceteAnual.Valor08, BalanceteAnual.Valor09, BalanceteAnual.Valor10, BalanceteAnual.Valor11, BalanceteAnual.Valor12, BalanceteAnual.ValorAnoAnt" & Chr(13) & "" & Chr(10) & "FROM `" & Drv_Dados & ":\Sifiger_Dados`.BalanceteAn" _
    , "ual BalanceteAnual" & Chr(13) & "" & Chr(10) & "ORDER BY BalanceteAnual.Conta")
    .Name = "Consulta de MS Access Database_3"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
    End With

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