Importando os resultados de uma consulta do Microsoft Access para o Excel pode ser feito de várias maneiras , incluindo uma abordagem utilizando links dinâmicos , para os usuários do Excel 2007 ou posterior. Os usuários do Excel 2003 ou anterior pode concluir a importação usando uma macro do Access , que trabalha com objetos de automação do Microsoft Office. Coisas que você precisa
Microsoft Excel e Access, versão 2003 ou posterior
Show Mais instruções
um

Open Access e crie a seguinte tabela de dados de amostra , que tem campo nomes na linha superior . Clique em \\ "Criar > Tabela \\" para criar a tabela.
Jogo />
terremoto, 12/1/2009 , $ 6,01 < br /> terremoto, 12/3/2009 , 7,98 dólares
herói da guitarra, 2009/12/05 , 4,98 dólares
guitar hero , 12/6/2009 , 5,98 dólares
< ; " . jogos \\ " br /> Salve a tabela (pressionando \\ " controle - s \\" ) com o nome \\
2

Crie uma nova consulta para a tabela de jogos clicando \\ "Criar > design da Consulta , \\ " botão direito do mouse sobre o texto " Query1 \\" na aba da consulta , e clicando \\ \\ "SQL View. \\ "
< br /> Digite a seguinte declaração na janela de código SQL:

jogos SELECT * INTO myqueryres
de jogos
WHERE ( ( ( games. . jogo) Like ' * tar * '))
GO

Salve a consulta ( por pressnig \\ " controle -s \\") como \\ " MINHACONSULTA . \\ "
3

Execute a consulta clicando duas vezes \\ " MINHACONSULTA \\ "no painel de navegação, em seguida, fechar o Access e abra o Microsoft Excel.
4

Clique em \\ " Data \\ " e escolha \\ "Do Access. \\ " No " Selecionar fonte de dados \\ " caixa de diálogo \\ , abra o banco de dados Access que você criou a tabela de jogos dentro Selecione a tabela \\ " myqueryres \\" do \\ " Selecione a tabela \\ " caixa de diálogo , em seguida, pressione \\ " OK \\ " na caixa de diálogo \\ " Importar Dados \\ " . Observe que o Excel tem importado a consulta.
5

Fechar Excel , lembrando o nome do arquivo quando você salvar o arquivo. Re- abrir o acesso . Rever \\ " MINHACONSULTA \\" na \\ "SQL View \\ " com a seguinte redacção :

jogos SELECT * INTO myqueryres
De jogos < br /. > WHERE ( ( ( games.game ) Like ' * ua * '));
6

Salve e re- executar a consulta, em seguida, fechar o Access e voltar a abrir o arquivo do Excel que você criou o ligação mesa dentro Seleccione \\ " Data \\ " e escolha \\ " Conexões, \\ " e pressione o botão \\ " Atualizar \\ " no " Conexões da Pasta de Trabalho \\ " caixa de diálogo \\. Feche a caixa de diálogo e observe que os resultados da consulta mudaram.
7

(para usuários do Excel 2003) Complete as etapas 1 e 2. Run \\ " MINHACONSULTA \\", em seguida, pressione \\ "alt \\ " + \\ " F11 \\ " para entrar no Visual Basic ambiente de desenvolvimento integrado (IDE). Pressione \\ " Inserir \\ " e selecione \\ "Módulo \\", em seguida, cole o seguinte código do programa para a nova janela de código :


Sub Pública sendToExcel ()

'''''''' '''''' '''''' '''' '
Definir curdb = CurrentDb < , br /> Definir recs = curdb.OpenRecordset (\\ " myqueryres \\")
st = \\ " jogo \\ " e \\ ", \\ " e \\ Data da Venda " \\ " e \\ ", \\ " e \\ " totalsale \\ "& vbCr

Set xlapp = CreateObject (\\ " Excel.Application \\ ")
xlapp.Workbooks.Add />
xlapp.ActiveSheet.Cells ( r, c) = rua
r = 2 < br /> st = \\ "\\"
Do While Not recs.EOF
st = CT & recs ! [ jogo ] & \\ ", \\ " & _ < ; ! ! br /> cons [ DataVenda ] & \\ ", \\ " & recs [ totalsale ] & vbCr
xlapp.ActiveSheet.Cells (r, c) = rua
; recs.MoveNext
r = r + 1
st = \\ "\\"
loop />
; xlapp.ActiveWorkbook.SaveAs (\\ "c: \\ \\ accessquery.xls \\")
xlApp.Quit

End Sub
8

Clique em \\ "Ferramentas \\ " e escolha \\ " Referências \\", marque a caixa de seleção \\ "Objetos do Microsoft Excel \\ " para que a sua macro pode reconhecer as funções que o Excel disponibiliza. < br . " F5 \\ " >
9

executar a macro , colocando o cursor em qualquer lugar na sub-rotina sendToExcel e pressionando \\
10

clique duas vezes no arquivo \\ " c: \\ \\ accessquery.xls \\ "do Windows Explorer, e observe os resultados da consulta no Microsoft Excel quando se abre.