Exportar Dados Para O Excel

[Dequinha®]

Tenho uma planilha que obtem os dados de uma query no access por código vba.

Os dados ficam armazenados num recordset. Consigo exibir uma mensagem com a quantidade de registros e o que quero fazer é exportar estes dados da consulta gerada para a planilha...

[Coringa]

Não seria mais simples fazer uma consulta ao banco de dados access direto no excel ? Tipo, obter dados externos?

Se puder me manda um arquivo de exemplo pra eu entender melhor...

Duas cabeças pensam melhor que uma...

Falow

[Dequinha®]

Como a query tem um parâmetro informado pelo usuário no excel (Data fim e Inicio) foi necessário o sql no código....

[Coringa]

Entendi, VBA num é bem o meu forte... precisaria simular o hambiente pra descobrir como fazer.

[Lisandro Oliveira]

Não seria mais simples fazer uma consulta ao banco de dados access direto no excel ? Tipo, obter dados externos?

Se puder me manda um arquivo de exemplo pra eu entender melhor...

Duas cabeças pensam melhor que uma...

Falow

Bom dia pessoal,

Dequinha se você quer trazer qualquer dado do Access para o excel, o melhor é você fazer o que o Coringa disse:

-Dados/obter dados externos/criar nova consulta ao banco de dados

-Escolha "Banco de dados Ms Access*"

-Selecione o banco

-Selecione a tabela ou consulta / os campos / avançar... e concluir

Observação:

Antes de você fazer isso você pode ligar a macro, ai depois é só colocar em um botão que ele puxará direto do access p/ o Excel.

Abs

Lisandro Oliveira

[Dequinha®]

OK..

A macro cria um select que faz a busca na consulta no access...

.CommandText = Array( SELECT * FROM `caminho\teste.mdb`.`Consulta1`")

Mas como colocar a clausula where no select? Qual a sintaxe?

[Lisandro Oliveira]

OK..

A macro cria um select que faz a busca na consulta no access...

.CommandText = Array( SELECT * FROM `caminho\teste.mdb`.`Consulta1`")

Mas como colocar a clausula where no select? Qual a sintaxe?

Ufa..., Funcionou...

Vamos lá:

Sub Macro1()

Dim dataini, datafim As Date

dataini = InputBox("Digite a data Inicial", , "01/01/2004")

datafim = InputBox("Digite a data Final", , "01/04/2004")

di = Format(dataini, "yyyy-mm-dd")

df = Format(datafim, "yyyy-mm-dd")

With ActiveSheet.QueryTables.Add(Connection:= _

"ODBC;DSN=Banco de dados MS Access;DBQ=C:\temp\lis.mdb;DefaultDir=C:\temp;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _

, Destination:=Range("A5"))

.CommandText = Array( _

"SELECT cliente.codigo, cliente.nome, cliente.data" & Chr(13) & "" & Chr(10) & "FROM `C:\temp\lis`.cliente cliente" & Chr(13) & "" & Chr(10) & "WHERE (cliente.data >= {ts '" + di + " 00:00:00'} And cliente.data<={ts '" + df + " 00:00:00'})" _

)

.Name = "Consulta de Banco de dados MS Access"

.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

End Sub

Parece tá meio confuso né??, mas como você disse a parte do select é a chave:

.CommandText = Array( _

"SELECT cliente.codigo, cliente.nome, cliente.data" & Chr(13) & "" & Chr(10) & "FROM `C:\temp\lis`.cliente cliente" & Chr(13) & "" & Chr(10) & "WHERE (cliente.data >= {ts '" + di + " 00:00:00'} And cliente.data<={ts '" + df + " 00:00:00'})" _

)

Veja bem, o "+ di +"

o sinal de "+" é a concatenação, e o di e o df são suas variaves que foram definidas no começo do codigo:

Dim dataini, datafim As Date

dataini = InputBox("Digite a data Inicial")

datafim = InputBox("Digite a data Final")

di = Format(dataini, "yyyy-mm-dd")

df = Format(datafim, "yyyy-mm-dd")

Dessa forma será exibida uma janela para digitar a data inicial e a data final.

veja aí, qualquer coisa retorne

Até mais

Abs

Lisandro Oliveira

[Lisandro Oliveira]

CLIQUE AQUI PARA ACESSAR A PÁGINA DO BOLETIM - BANCO DE DADOS NO EXCEL

ah so mais uma coisinha, a data do inputbox você tira fora!!!

dataini = InputBox("Digite a data Inicial", , "01/01/2004")

datafim = InputBox("Digite a data Final", , "01/04/2004")

deixando so assim:

dataini = InputBox("Digite a data Inicial")

datafim = InputBox("Digite a data Final")

eu utilizei essas datas somente para testar, beleza??

fui...

[Dequinha®]

Caramba...

Estou tão atarefada no trabalho q nem te respondi...e acabei conseguiindo fazer antes de ler o post praticamente da mesma forma.

Mesmo assim Obrigada!

[Lisandro Oliveira]

Caramba...

Estou tão atarefada no trabalho q nem te respondi...e acabei conseguiindo fazer antes de ler o post praticamente da mesma forma.

Mesmo assim Obrigada!

Sem problema, o que importa é que você conseguiu fazer

Até mais...

[Dequinha®]

Voltando ao assunto...

Quando são 2 querys...onde a primeira serve de origem para segunda? Como fazer? o excel não aceita...

[Lisandro Oliveira]

Voltando ao assunto...

Quando são 2 querys...onde a primeira serve de origem para segunda? Como fazer? o excel não aceita...

Depende, como seria a consulta?? uma filtrando com data e a outra...??, se for o caso pode-se criar uma tabela temporaria e jogar a 1º query lá, depois fazer outra query...

abs

Lisandro Oliveira

[Dequinha®]

Valeu Li...

Deu certo com tabela temp!

[Lisandro Oliveira]

Valeu Li...

Deu certo com tabela temp!

Falow